Word VisualBasic Script

Sub Main()
    Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")
    wdApp.ActiveDocument.SaveAs "C:\MemoTest.docx"
End Sub