Word VisualBasic Script

Sub main()
    Dim wdApp As Word.Application
    
    Set wdApp = GetObject(, "Word.Application")
    wdApp.Documents.Save
End Sub