Sub Demo()
Dim wdApp As New Word.Application, wdDoc As Word.Document
With wdApp
  .Visible = False
  Set wdDoc = .Documents.Open(Filename:="Path & Filename", AddToRecentFiles:=False, Visible:=False)
  With wdDoc
    'Do your document processing here
  End With
  .Quit
End With
Set wdDoc = Nothing: Set wdApp = Nothing
End Sub