E
Erlan
Здравствуйте!
Написал на lotusScript код, который экспортирует данные из лотуса в ms word.
НО никак не могу справиться с этими ситуациями:
1) (Основная проблема) НЕ получается добавить вторую таблицу.
'создаю ворд документ на лету
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
objDoc.PageSetup.Orientation = wdOrientLandscape
Set objSelection = objWord.Selection
objSelection.Paragraphs(1).Format.Alignment = 1
objSelection.TypeText "TEST TEXT"
'добавил параграф
objSelection.Paragraphs.Add
Set objRange = objWord.ActiveDocument.Paragraphs(2).Range
'добавил таблицу 1
objDoc.Tables.Add objRange,1,9
With objDoc.Tables(1)
...здесь заполняю табличку
End With
'далее мне нужно отступить одну строку и вставить еще одну таблицу
'ВОТ ТУТ НАЧИНАЕТСЯ ПРОБЛЕМА
objSelection.Paragraphs.Add
Set objRange2 = objWord.ActiveDocument.Paragraphs.Last.Range
objDoc.Tables.Add objRange2,1,2
With objDoc.Tables(2)
...здесь заполняю табличку
End With
Код этот проверил, запихнув в макросы ворда. В ворде отработал как надо.
А вот в лотусе выдает ошибку. Пишет что нет таблицы с индексом 2 objDoc.Tables(2).
ПРОШУ помощи в составлении на лету документа ворд с двумя разными таблицами, одна под другой с отступом.
2) НЕ могу сделать страницу Альбомную ориентация страницы
objDoc.PageSetup.Orientation = wdOrientLandscape
Так же в ворде отрабатывает верно а в лотусе ориентация остается книжной
Написал на lotusScript код, который экспортирует данные из лотуса в ms word.
НО никак не могу справиться с этими ситуациями:
1) (Основная проблема) НЕ получается добавить вторую таблицу.
'создаю ворд документ на лету
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
objDoc.PageSetup.Orientation = wdOrientLandscape
Set objSelection = objWord.Selection
objSelection.Paragraphs(1).Format.Alignment = 1
objSelection.TypeText "TEST TEXT"
'добавил параграф
objSelection.Paragraphs.Add
Set objRange = objWord.ActiveDocument.Paragraphs(2).Range
'добавил таблицу 1
objDoc.Tables.Add objRange,1,9
With objDoc.Tables(1)
...здесь заполняю табличку
End With
'далее мне нужно отступить одну строку и вставить еще одну таблицу
'ВОТ ТУТ НАЧИНАЕТСЯ ПРОБЛЕМА
objSelection.Paragraphs.Add
Set objRange2 = objWord.ActiveDocument.Paragraphs.Last.Range
objDoc.Tables.Add objRange2,1,2
With objDoc.Tables(2)
...здесь заполняю табличку
End With
Код этот проверил, запихнув в макросы ворда. В ворде отработал как надо.
А вот в лотусе выдает ошибку. Пишет что нет таблицы с индексом 2 objDoc.Tables(2).
ПРОШУ помощи в составлении на лету документа ворд с двумя разными таблицами, одна под другой с отступом.
2) НЕ могу сделать страницу Альбомную ориентация страницы
objDoc.PageSetup.Orientation = wdOrientLandscape
Так же в ворде отрабатывает верно а в лотусе ориентация остается книжной