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

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

--
Don Guillett
SalesAid Software

"Ayato" wrote in message
.. .
How to call a wod document file from an Excel vba code ?