Word VisualBasic Script

Sub saveAs()
    ActiveDocument.saveAs "c:\d.doc"
End Sub