| 1 | ; Example by big daddy |
|---|
| 2 | |
|---|
| 3 | ; Before running this: |
|---|
| 4 | ; 1. Create a Word Document |
|---|
| 5 | ; 2. Press Alt-F11 |
|---|
| 6 | ; 3. Double Click "ThisDocument" |
|---|
| 7 | ; 4. Paste the following macro |
|---|
| 8 | ; 5. Saveas "ByRef.doc" |
|---|
| 9 | |
|---|
| 10 | ; Comment from big daddy: |
|---|
| 11 | ; I would have expected the following to write "After" to the console, but instead it still has the value of "Before". |
|---|
| 12 | |
|---|
| 13 | #include <Word.au3> |
|---|
| 14 | |
|---|
| 15 | $vArg = "Before" |
|---|
| 16 | $sFilePath = @ScriptDir & "\ByRef.doc" |
|---|
| 17 | |
|---|
| 18 | $oWordApp = _WordCreate($sFilePath, 0, 0) |
|---|
| 19 | __WordMacroRun($oWordApp, "MacroTestByRef", $vArg) |
|---|
| 20 | _WordQuit($oWordApp, 0) |
|---|
| 21 | ConsoleWrite($vArg & @CR) |
|---|
| 22 | |
|---|
| 23 | Func __WordMacroRun(ByRef $o_object, $s_MacroName, ByRef $v_Arg1) |
|---|
| 24 | $o_object.Run($s_MacroName, $v_Arg1) |
|---|
| 25 | EndFunc ;==>__WordMacroRun |
|---|
