Sub UseGetObject() Dim wdDoc As Object Set wdDoc = GetObject(ThisWorkbook.Path & "\Word.docx") wdDoc.Application.Visible = True Set wdDoc = Nothing End Sub