| param$ = "Test String" |
| DDEExecute "WinWord", "System", "TestMacro(""" + param$ + """)" |
| MsgBox( "Got the parameter: " + param ) |
| param$ = "Test String" |
| SendKeys "{Alt+Ctrl+Shift+f}" |
| SendKeys "param$ + "{enter}" |
| Dim param As String |
| param = InputBox("", "", "", 9999, 9999) |
| MsgBox( "Got the parameter: " + param ) |
| End Sub |
| I have actually used this technique to write macros such as "Make That a Lot Larger" and other macros to control text in Microsoft Word. |