To save a document with a new name, use the SaveAs method
Sub Main() Dim wdApp As Word.Application Set wdApp = GetObject(, "Word.Application") wdApp.ActiveDocument.SaveAs "C:\MemoTest.docx" End Sub