DOI中执行带参数的宏

1、ABAP程序

      CALL METHOD document->execute_macro
        EXPORTING
          macro_string = '模块1.Insert'
          param1       = '7'
          param_count  = 1
        IMPORTING
          error        = errors.
      CALL METHOD error->raise_message
        EXPORTING
          type = 'E'.

 

2、宏

Sub Insert(num As Integer)
'
' Insert Macro
' 宏由 Barry 录制，时间: 2008-8-12
'

'
  For i = 1 To num
      Rows("4:4").Select
      Selection.Copy
      Range("A5").Select
      Selection.Insert Shift:=xlDown
  Next

 

  Application.CutCopyMode = False
 
End Sub