Word VisualBasic Script

Sub main()
    Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")
    wdApp.ActiveDocument.Close
    'or
    wdApp.Documents("Arrays.docx").Close
End Sub