[lmikle]

Вот код, который генерит Word для операции "Сохранить как":

Код:

Sub Macro1()
    ActiveDocument.SaveAs FileName:="Doc1.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub