EDITED REPLACED CODE SAMPLE WITH ENTIRE WORKING AGENT:
Option Public
Option Declare
Sub Initialize
Dim filepath As String
Dim wordDoc As Variant
Dim word As Variant
Set word = CreateObject("Word.Application")
filepath="C:\test"
Set wordDoc = word.Documents.Open(filePath &".doc", False, True, False)
word.visible=True
End Sub
This is working code, you will need a file named test.doc in the root of the c: drive for this to work, but this does work, I just ran it successfully, test with this and modify from there.