Excel VisualBasic Script

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