Выделение ячеек в таблице Word через OLE

kalinka23

Добрый день!
Необходимо выделить несколько ячеек в таблице, а затем их объединить.
Записала VBS макрос в Word. Теперь пытаюсь перевести его на ABAP.
На VBS это выглядит следующим образом:

Code:

sub merge_cells()
ActiveDocument.Tables(2).Rows(3).Cells(1).Select
Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend
Selection.Cells.Merge
end sub

С первой и последней строчкой макроса все понятно. Не получается вторая.
Пробовала так:

Code:

         CALL METHOD OF o_selection 'MoveRight'
           exporting
           #1 = 'wdCharacter'
           #2 = '3'
           #3 = 'wdExtend'.

После выполнения sy-subrc = 2.
Пробовала так:

Code:

         CALL METHOD OF o_selection 'MoveRight'
           exporting
           #1 = 'Unit:=wdCharacter'
           #2 = 'Count:=3'
           #3 = 'Extend:=wdExtend'.

sy-subrc = 0. Но никакого эффекта не производит.
Как правильно интерпретировать эту строку на ABAP?

trop

в ole вызовах нужно заменять константы на числа, т.к. ole заворачивает внутр.типы abap в ole variant, т.е. сам пытается определить тип.
подсмотреть значения констант можно при отладке VBA скрипта, или, там же в VBA редакторе, в Object browser (F2)
вбиваем в поиск нужную константу, например wdCharacter, и видим, что она определена в классе WdUnits:

Code:

Const wdCharacter = 1
    Member of Word.WdUnits
Const wdExtend = 1
    Member of Word.WdMovementType
...
Function MoveRight([Unit], [Count], [Extend]) As Long
    Member of Word.Selection
значит вызов будет выглядеть примерно так:
         call method of o_selection 'MoveRight'
           exporting
           #1 = 1 "wdCharacter
           #2 = 3
           #3 = 1 "wdExtend
           .

kalinka23

Спасибо Вам огроменное!

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

Выделение ячеек в таблице Word через OLE

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