Sub Open_Word_Document()
'Opens a Word Document from Excel
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
'Change the directory path and file name to the location
'of your document
objWord.Documents.Open "C:\test.doc"
End Sub