Excel VisualBasic Script

Sub WordLateBinding()
    Dim wdApp As Object, wdDoc As Object
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\Word.docx")
    wdApp.Visible = True
    Set wdApp = Nothing
    Set wdDoc = Nothing
End Sub