call .DOC from an Excel VBA macro ?

[Ayato]

How to call a wod document file from an Excel vba code ?

 

[Don Guillett]

Here is one I use this time of year

Sub OpenDocument()
Dim wdApp As Word.Application
strFilename = "XmasListEnvelopes1.doc"
Set wdApp = CreateObject("Word.Application")
With wdApp
.Documents.Open Filename:=ThisWorkbook.Path & "\" & strFilename
.Visible = True
End With
Set wdApp = Nothing
End Sub