Using DDE to open Word file then run Word macro

[mflancour]

Hello. I want to write something that will open a MSWord file then run a MSWord macro on that file of some name. I was able to find a decent example of a DDE code in Access's help but it does not work. I get an "Overflow" error. Any way following is what I attempted to use:

Dim intI As Integer, intChan1 As Integer
Dim strTopics As String, strResp As String, strSheetName As String
On Error Resume Next
intChan1 = DDEInitiate("winword", "System&quot'**Error here**
If Err Then
Err = 0
Shell "Excel", 1
If Err Then Exit Sub
intChan1 = DDEInitiate("winword", "System&quot
End If
DDEExecute intChan1, "Application.run macroname:=""macro1""" '**not sure if this is correct
**verbage to run a macro**
DDETerminateAll

 

[Guest_imported]

Try Dim IntI as Long, Dim IntChan1 as Long. That should eliminate your overflow problem..