Excel VisualBasic Script

Sub late()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
End Sub