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

VID

Code:

CREATE OBJECT gs_word 'Word.Application'.

CALL METHOD OF gs_word 'Documents' = gs_documents.
CALL METHOD OF gs_documents 'Add' = gs_actdoc.
CALL METHOD OF gs_actdoc 'Range' = gs_range.
CALL METHOD OF gs_actdoc 'Tables' = gs_tables.
GET PROPERTY OF gs_word      'Selection'       = gs_selection.
GET PROPERTY OF gs_range     'Characters'      = gs_characters.
GET PROPERTY OF gs_selection 'Font'            = gs_font.
GET PROPERTY OF gs_selection 'ParagraphFormat' = gs_parformat.

Установка шрифта
  set property of gs_font 'Size'   = 16.
  set property of gs_font 'Bold'   = 1.
  set property of gs_font 'Italic' = 0.
  set property of gs_font 'Name'   = 'Привет'.

Получение последнего символа с выделением (необходимо для перехода на новую строку, добавления текста и т.д.)
  get property of gs_characters 'Last' = gs_last.
  call method of gs_last 'Select'.

Вывод текста
call method of gs_selection 'TypeText'
    exporting #1 = 'Привет еще раз'.

Добавить таблицу

  GET PROPERTY OF gs_selection  'Range' = gs_range.

  CALL METHOD OF gs_tables 'Add'
    EXPORTING #1 = gs_range
              #2 = 2
              #3 = 3.
Перейти на другую строку
CALL METHOD OF gs_selection 'TypeParagraph'.

и много еще чего. Если есть вопросы, то можете в аську 474311189 или в Скайп asapiodch обращаться, по мере свободного времени охотно отвечу на вопросы, т.к. сам уже вторую неделю пишу приложение, принцип понял, так что помогу понять) только наверное завтра уже, ухожу.

vuces

Ксожалению ссылочка не активная

vuces

VID спасибо

John Doe

vuces написал(а):

Ксожалению ссылочка не активная

Очень даже активная. Если пользоваться IE или Мозиллой.

vuces

John Doe тоже респект

vuces

чет не получается вывод в таблицу
делаю так

CALL METHOD OF gs_tables 'Add'
EXPORTING #1 = gs_range
#2 = 2
#3 = 9.

CALL METHOD OF gs_tables 'Cells' = gs_cell
EXPORTING
#1 = '1' "first row
#2 = '1'. "first column
GET PROPERTY OF gs_cell 'Range' = gs_range .
SET PROPERTY OF gs_range 'Text' = 'Tест'.

vuces

С виводом все ок
*Добавить таблицу
GET PROPERTY OF gs_selection 'Range' = gs_range.
CALL METHOD OF gs_tables 'Add' = gs_table
EXPORTING #1 = gs_range
#2 = 2"row
#3 = 9."column
*вывод
CALL METHOD OF gs_table 'Cell' = gs_cell
EXPORTING
#1 = '1' "row
#2 = '2'. "column
GET PROPERTY OF gs_cell 'Range' = gs_range .
SET PROPERTY OF gs_range 'Text' = 'Тест'.

vuces

а вот как обеденить ячейки

*--Title
*--Selecting cell area to be merged.
CALL METHOD OF gs_table 'Cells' = gs_cell1
EXPORTING
#1 = 1 "Row
#2 = 1."Column

CALL METHOD OF gs_table 'Cells' = gs_cell2
EXPORTING
#1 = 2 "Row
#2 = 1."Column

CALL METHOD OF gs_table 'Range' = gs_cells
EXPORTING
#1 = gs_cell1
#2 = gs_cell2.

CALL METHOD OF gs_cells 'Select' = gs_selection .
*--Merging
CALL METHOD OF gs_selection 'Merge' .
*--Setting title data
CALL METHOD OF gs_table 'Cell' = gs_cells
EXPORTING
#1 = 1
#2 = 1.

GET PROPERTY OF gs_cells 'Range' = gs_range .
SET PROPERTY OF gs_range 'Text' = 'Тест'.

Parazit

Братцы, пожалейте абаперов, которым этот код в наследство останется в поддержку. Нафига форму отчета в абап-код зашивать?! Это же при малейшем изменении формы - целый геморрой!

vuces

У каждого програмера есть проджект менеджер

mvs87

Господа Абаперы, что то заморочка с центровкой текста.
как правильно работать с позиционированием?

Code:

*Получение последнего символа с выделением (необходимо для перехода на
*новую строку, добавления текста и т.д.)
  get property of gs_characters 'Last' = gs_last.
  call method of gs_last 'Select'.

*Вывод текста
call method of gs_selection 'TypeText'
    exporting #1 = 'Привет еще раз'.
* новая строка
CALL METHOD OF gs_selection 'TypeParagraph'.

***  центровка не центрует
call method of gs_parformat 'Alignmentt'
             exporting #1 = 'wdAlignParagraphCenter'.

* прбовал и так
* set property of gs_parformat 'Alignmentt' = 'wdAlignParagraphCenter'.

call method of gs_selection 'TypeText'
    exporting #1 = 'Привед медвед'.

непонятно, тут надо set property или call method

В макросах центровка так прописываеться
*Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Как правильно ?

Parazit

Хотя вопрос совсем не абаперский.
Alignmentt с одной T

mvs87

оказывается нужно было цифрами т.к. wdAlignParagraphCenter - консатнта...

Code:

*Вывод текста
call method of gs_selection 'TypeText'
    exporting #1 = 'Привет, я текст '.

* новая строка
call method of gs_selection 'TypeParagraph'.
set property of gs_parformat 'Alignment' = 1 .

call method of gs_selection 'TypeText'
    exporting #1 = 'Привед медвед'.

WhiteScorpio

vuces написал(а):

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

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

...

Text1 = 'Test'.

CALL METHOD OF oWORKBOOK 'TypeText' = TEXT1.

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

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

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

Ребята, ничего личного, но ReadTheFuckin'Manual. Следующий раз спросите: "Где могу найти хелл по...". Тем более help.sap.com всегда поможет. Дерзайте, и поменьше вопросов - так всем будет проще.

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

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

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