Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Word / 5 сообщений из 5, страница 1 из 1
21.04.2004, 13:37
    #32489598
nk_81
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word
...
Рейтинг: 0 / 0
21.04.2004, 13:42
    #32489613
nk_81
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word
Подскажите, пожалуйста:
Формирую отчетность в Wordе (текст и таблицы).
Делаю выравнивание:
oWord = CreateObject("Word.Application")
oWord.Visible = .t.
oWord.Selection.ParagraphFormat.Alignment= 2
Получается весь документ выравнивается по правому краю.
Как расположить таблицы по центру, а выравнивание в таблице сделать
по ширине.
Заранее спасибо!
...
Рейтинг: 0 / 0
21.04.2004, 13:57
    #32489659
nk_81
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word
И если кто-нибудь знает:как объединять ячейки в вордовской таблице из VF?
...
Рейтинг: 0 / 0
21.04.2004, 23:35
    #32490889
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word
А если макрос записать и глануть, что там?

> Как расположить таблицы по центру, а выравнивание в таблице сделать
по ширине.

Код: plaintext
1.
2.
3.
4.
For i =  1  To oWord.ActiveDocument.Tables.Count
    oWord.ActiveDocument.Tables(i).Rows.Alignment =  1  && wdAlignRowCenter
    oWord.ActiveDocument.Tables(i).Range.Select
    oWord.Selection.ParagraphFormat.Alignment =  3  && wdAlignParagraphJustify 
EndFor


> как объединять ячейки в вордовской таблице из VF?

В одной строке?

Код: plaintext
oWord.ActiveDocument.Tables(Number_of_Table).Rows(Number_of_Row).Cells.Merge
...
Рейтинг: 0 / 0
22.04.2004, 11:40
    #32491398
nk_81
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word
NNN Спасибо!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Word / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]