Если записать макрос то получится что то вроде
ActiveDocument.SaveAs2 FileName:="33331.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _...