DOI and Script collection/Macro in Word

Question

Hi experts,
My goal is to upload macro from file and after upload run this macro inside word document.
I try to upload macro from file in Script collection using get_script_collection(class I_OI_DOCUMENT_PROXY)  & add_script (class I_OI_SCRIPT_COLLECTION)
After that I want to execute macro using execute_script(class I_OI_DOCUMENT_PROXY) .
I always get error when executing macro that some object is missing. Probably macro is not correct written in file.
Can somebody give me example hove this macro must be written so I can execute him.
Thanks a lot,
Drazen

Answer 1

Hi Drazen Lovrencic ,
Even I am trying to execute the macro but facing problem. Below is the my code of adding vb script(macro) to the excel spreadsheet and executing it. but stil not working. I am getting error message "Cannot initialize control"
  TYPES:
    TS_SOURCE_CODE  TYPE TEXT1024,
    TT_SOURCE_CODE   TYPE STANDARD TABLE OF TS_SOURCE_CODE WITH DEFAULT KEY.
  TYPES: BEGIN OF TY_SCRIPT,
         VALUE(80) TYPE C,
         END OF TY_SCRIPT.
  DATA: LS_SOURCE_CODE  TYPE TY_SCRIPT,"TS_SOURCE_CODE,
           LT_SOURCE_CODE  TYPE TABLE OF TY_SCRIPT,
           L_RETURN_CODE TYPE SOI_RET_STRING.
Building the Script - every line has to end with cr/lf
  LS_SOURCE_CODE-VALUE = 'Sub Macro1()'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
   LS_SOURCE_CODE-VALUE = 'ActiveSheet.Buttons.Add(234, 57, 109.5, 29.25).Select'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = 'Selection.OnAction = "button"'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = 'Range("G9").Select'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = 'ActiveSheet.PageSetup.PrintArea = ""'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = 'With ActiveSheet.PageSetup'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = '.Orientation = xlLandscape'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = '.PaperSize = xlPaperA4'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = '.FitToPagesWide = 1'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = '.FitToPagesTall = 1'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = 'End With'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
  LS_SOURCE_CODE-VALUE = 'End Sub'.
  CONCATENATE LS_SOURCE_CODE-VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF
  INTO LS_SOURCE_CODE-VALUE.
  APPEND LS_SOURCE_CODE
           TO LT_SOURCE_CODE.
BREAK-POINT.
DATA: L_SCRIPT_COLLECTION TYPE REF TO i_oi_script_collection.
DATA: table_url(256).
DATA: DOC_COOKIE TYPE I.
      L_RETURN_CODE = c_oi_errors=>ret_document_not_open.
      CALL METHOD c_oi_errors=>create_error_for_retcode
        EXPORTING
          retcode  = L_RETURN_CODE
          no_flush = ''
        IMPORTING
          error    = gc_error.
CALL FUNCTION 'DP_CREATE_URL'
      EXPORTING
        type    = ''
        subtype = ''
      TABLES
        data    = LT_SOURCE_CODE
      CHANGING
        url     = table_url.
DATA: CONTAINER_CONTROL TYPE REF TO C_OI_CONTAINER_CONTROL_PROXY.
CREATE OBJECT CONTAINER_CONTROL.
    CALL METHOD container_control->add_document_script
      EXPORTING
        NO_FLUSH       = 'X'
        document_cookie = doc_cookie
        script_name     = 'Macro'
        script_type     = '1'
        script_url      = table_url
      IMPORTING
        error           = gc_error.
    APPEND gc_error TO gt_error_table.
Calling the script:
  CALL METHOD GC_DOCUMENT->EXECUTE_MACRO
    EXPORTING
      MACRO_STRING = 'Macro_demo_1'
      SCRIPT_NAME  = 'Macro'
      NO_FLUSH     = SPACE
   IMPORTING error = gc_error.
APPEND gc_error TO gt_error_table.