Problem about the macro in word using ole

Question

Hi,
   Now i have an urgent problem.
   I want to use ole2_object to control a word document by calling the macro.  i want to pass a parameter for the marco but i don't know how to pass it .  the main method i use as following:
    macro = 'startmerge."
    call method document->open_document_from_table
       exporting
             document_size  = doc_size
             document_table = doc_table[]
              open_inplace   = 'X'
             startup_macro   = macro.    " here is my problem?????
the macro's code as following:
Sub startmerge(file As String)
' startmerge Macro
' Macro recorded 2000-1-23 by Ryan
Dim fs     As Object
'Dim file As String
'file = "C:\SAPTEMP.JPG"
      Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists(file) Then
    Application.GoBack
    Selection.InlineShapes.AddPicture FileName:=file, LinkToFile:= _
        False, SaveWithDocument:=True
Else
MsgBox "no file found"
End If
Set myMerge = ThisDocument.MailMerge
If myMerge.State = wdMainAndSourceAndHeader Or _
    myMerge.State = wdMainAndDataSource Then
End If
With myMerge
    .MainDocumentType = wdEnvelopes
    .OpenDataSource Name:="c:\appraial_tmp.txt", ReadOnly:=True
    .Destination = wdSendToNewDocument
    .Execute
End With
End Sub
now i want to pass a value for the parameter 'file' in abap by calling a macro  'startmerge'.
Can anyone give me some advice? or give me some advice?
Thanks a  lot in advance.
                qiuguo

Answer 1

Hi, aRs,
    thank you very much . i have get the approach to solve this problem form the link you given. In abap sap have provided a method to call a marco using parameters.  Following is the kernel code:
    macro = 'startmerge'."()
    call method document->open_document_from_table
       exporting
             document_size  = doc_size
             document_table = doc_table[]
              open_inplace   = 'X'
            startup_macro   = macro.
   data: error like I_OI_ERROR.
   create object error.
    CALL METHOD DOCUMENT->EXECUTE_MACRO
       EXPORTING
         MACRO_STRING = macro
                        NO_FLUSH     = ' '
         PARAM1       = 'C:\3.JPG'
                        PARAM10      =
                        PARAM11      =
                        PARAM12      =
                        PARAM2       =
                        PARAM3       =
                        PARAM4       =
                        PARAM5       =
                        PARAM6       =
                        PARAM7       =
                        PARAM8       =
                        PARAM9       =
                         PARAM_COUNT  = 1
                        SCRIPT_NAME  =
                      IMPORTING
                        ERROR        = error
                        RETCODE      =
                      CHANGING
                        ERROR_STRING =
                        RETVALUE     =
so appreciate for you response.
     qiuguo