Sub test()
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
Dim wordDoc As Object
Set wordDoc = wordApp.documents.Open(Filename:="c:\users\domenic\desktop\sample.docx") 'change the path and filename accordingly
'do stuff
'
'
wordDoc.Close savechanges:=True
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing
End Sub