Launch Word.Doc using eg.Code

[wazza]

Hi

I have been using the following code to open an Excel file. I wish to open a Word document - can i siply adjust this code? Ive tried but no luck...

rgrds


Set oapp = CreateObject("Excel.Application")
oapp.visible = true
Set wb = oapp.Workbooks.Open("C:\imports\testfile.xls")
set ws = wb.activesheet

 

[ghudson]

try...

Call Shell("C:\Program Files\Microsoft Office\Office\Word.exe C:\imports\testfile.doc", vbMinimizedFocus)

or

Application.FollowHyperlink "C:\imports\testfile.doc"

 

[john471]

Or

Sub lateBinding()
   Dim oapp As Object
    Set oapp = CreateObject("Word.Application")
    oapp.Documents.Open ("c:\myfile.doc")
    oapp.Visible = True
    oapp.Quit
    set oapp = nothing
End Sub

OR

Sub earlyBinding()
    'BUT FIRST.... Set a reference to the Microsoft Word Object Library
    Dim wrd As Word.Application
    Set wrd = New Word.Application
    wrd.Documents.Open ("c:\myfile.doc")
    wrd.Visible = True
    wrd.Quit
    set wrd = nothing
End Sub