Как пересохранить документ в *.docx с помощью макроса?
Sub Макрос()
Dim FN As String
' Записываем полное имя (путь + имя) активного документа в переменную.
FN = ActiveDocument.FullName
' Удаляем из полного имени расширение и добавляем расширение "docx".
FN = Left(FN, InStrRev(FN, ".")) & "docx"
' Пересохраняем активный документ в docx-формат.
ActiveDocument.SaveAs2 FileName:=FN, FileFormat:=wdFormatXMLDocument
End Sub
Спасибо