Executing a macro (for WORD)

Question

Hi everyone,
I created a macro in Word.
Now I am calling it successfuly from ABAP using i_oi_document_proxy->execute_macro.
Is there a way to pass a parameter from ABAP to the macro ?
Thanks in advance.

Answer 1

HI
GOOD
GO THROUGH THIS CODE , I HOPE YOU WILL GET SOME HELP YOU SOLVE YOUR PROBLEM.
                      EXAMPLE                      *
REPORT ZVALDATE . 
  Data: v_date(8).
  V_date = '20030102'.
VAL_DATE <DATE> <FORMAT>  <-- Passing Parameters
  val_date v_date 'YYYYMMDD'.
  if sy-subrc = 0.
    write: 'Valid Date' .
  elseif sy-subrc = 1.
    write: 'Invalid Date' .
  elseif sy-subrc = 2.
    write: 'Invalid Date Format' .
  endif.
                  END OF REPORT                    *
To use the macro "VAL_DATE" GLOBALLY, Insert the  *
below 2 macros in table TRMAC using Txn SM30.     *
Sytax :                                            *
VAL_DATA <Date> <Date format>.                     *
It return sy-subrc.                                *
      0 => Valid date - as per the specified format*
      1 => Invalid date                            *
      2 => Invalid date format                     *
<Date format> :                                    *
You can pass the following date formats            *
DDMMYYYY  MMDDYYYY  YYYYMMDD  YYYYDDMM             *
              Macro    VAL-DATE                    *
This macro validate Date according to the specified*
format.                                            *
           Created by Abhishek Kumar               *
           [email protected]                        * 
define val-dat.
  clear: %_date1, %_date2.
  %_date1(4)   = &1. "Year
  %_date1+4(2) = &2. "Month
  %_date1+6(2) = &3. "Date
  %_date2 = %_date1 - 1.
  %_date2 = %_date2 + 1.
  if %_date1 <> %_date2.
    sy-subrc = 1.
  else.
    sy-subrc = 0.
  endif.
end-of-definition.
              Macro    VAL_DATE                    *
           Created by Abhishek Kumar               *
           [email protected]                        *
define val_date.
  data %_date1 like sy-datum.
  data  %_date2 like sy-datum.
  data %_date3(8).
  case &2.
    when 'DDMMYYYY'.
      val-date &14(4) &12(2) &1+0(2).
    when 'MMDDYYYY'.
      val-date &14(4) &10(2) &1+2(2).
    when 'YYYYMMDD'.
      val-date &10(4) &14(2) &1+6(2).
    when 'MMYYYYDD'.
      val-date &12(4) &10(2) &1+6(2).
    when others.
      sy-subrc =  2.
  endcase.
end-of-definition.
THANKS
MRUTYUN