Application VisualBasic Script

Sub StartWord()
    Application.ActivateMicrosoftApp xlMicrosoftWord
End Sub