Word VisualBasic Script

Sub wordDoc()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Documents.Add
    End With
End Sub