Все тот же Word через OLE

VID

Помогите с проблемой.

Пытаюсь создать документ Word через OLE. Добавить просто текст уже не проблема)). А вот как добавить таблицу... Может кто-то делал такое или знает где можно примеры посмотреть. Сам процесс бы еще понять, что за чем делать надо. Заранее спасибо!

Пономарев Артем

Запишите макрос и смотрите что и зачем вызывается.

VID

Дело в том, что понятия не имею как и где записывать макросы. Расскажите пожалуйста, как его записать.

FILisiza

Макрос записать в WORD. Смотри Сервис - >Макросы - > Начать запись и выполни все действия, которые задумал. После делаешь остановить запись. Заходиш в Макросы, делаешь войти и смотриш код, который получился.

VID

А зачем нужна функция FLUSH и что она делает. Когда ее надо вызывать?

Shumov Nikita

Из абапа вы можете вызвать любой метод или свойство объектов WORD. Т.е. макрос можно писать в самом АБАПЕ, а следовательно передавать параметры в него. Создание таблицы средствами VBA, записали макрос, а потом тоже самое написали в АБАПЕ. Пример по таблице сейчас скину.

Shumov Nikita

Копирование таблицы - аналогично пишешь создание:

Code:

* выделяем таблицу

   CALL METHOD OF _doc 'RANGE' = _OLE2 NO FLUSH.
    GET PROPERTY OF _OLE2 'TABLES' = _ole1.
    CALL METHOD OF _ole1 'ITEM' = _OLE2 NO FLUSH
      EXPORTING #1 = I_NUMBER.
    CALL METHOD OF _OLE2 'SELECT'.
** Копируем
    GET PROPERTY OF _application 'SELECTION' = _ole1.
    CALL METHOD OF _ole1 'COPY'.

* Идем в конец документа
    CALL METHOD OF _doc 'RANGE' = _OLE2 NO FLUSH.
    GET PROPERTY OF _OLE2 'CHARACTERS' = _ole1.
    GET PROPERTY OF _ole1 'LAST' = _OLE2.
    CALL METHOD OF _OLE2 'SELECT'.
* Новый параграф
    GET PROPERTY OF _application 'SELECTION' = _ole1.
    CALL METHOD OF _ole1 'TYPEPARAGRAPH'.


    CALL METHOD OF _ole1 'PASTE'.

      GET PROPERTY OF _DOC 'BOOKMARKS' = _BOOKMARKS.
      GET PROPERTY OF _DOC 'TABLES' = _TABLES.

VID

огромное спасибо за пример! только еще просьба - не мог бы ты еще скинуть код до этого участка? интерессует именно создание ворд-приложения с начала.

Shumov Nikita

Совет почитай документацию по регистрации OLE объектов в SAP.
Код создания :
- Создание приложения ворд
CREATE OBJECT
_APPLICATION 'WORD.APPLICATION'.

- Создание документа
CALL METHOD OF
_APPLICATION
'DOCUMENTS' = _DOCS
.

- если не использовать локальный файл
IF i_localfilepath IS INITIAL.

CALL METHOD OF _DOCS 'ADD' = _DOC.

ELSE.
- если использовать локальный файл
ls_filepath = i_localfilepath. " путь
TRANSLATE ls_filepath USING '/\'.

- открываем локальный файл и работаем с ним
CALL METHOD OF
_DOCS 'OPEN' = _DOC EXPORTING #1 = ls_filepath .
IF sy-subrc <> 0.
ole2cerr.
RAISE file_not_found.
ENDIF.

ENDIF.

VID

рад бы почитать, только найти не могу где (((

а за пример большое спасибо!!! :pivo:

Shumov Nikita

http://help.sap.com/search/search_overview.jsp - посмотрите - этого вполне хватит.

Shumov Nikita

Извиняюсь - на поисковик ссылку кинул )
http://help.sap.com/saphelp_47x200/help ... ameset.htm - вот.

VID

ок, буду изучать)) спасибо еще раз!!!

vuces

Как вывести в WORD???

Word откривается, создаетса пустой документ ,
а вот вывести хоть какуюто строчку не удается и
ошибок не выдает

...

Text1 = 'Test'.

CALL METHOD OF oWORKBOOK 'TypeText' = TEXT1.

и так пробовал

CALL METHOD OF oWORKBOOK 'TypeText'
EXPORTING
#Text = TEXT1.

никакого результату,

John Doe

Прочтите для начала An Easy Reference for OLE Automation. Это снимет много головной боли.

Правила форума

Все тот же Word через OLE

Кто сейчас на конференции