Форум по VBA и MS Office

Как с помощью макроса изменить формат word-документа?
Например, исходный формат "doc", нужно сделать формат "docx".

Нужно использовать метод "Document.SaveAs".
Этот макрос изменяет формат у активного документа (это документ, который отображается на мониторе).

Sub Макрос()

    Dim Var
   
    Var = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, "."))
    ActiveDocument.SaveAs FileName:=Var & "docx", FileFormat:=wdFormatXMLDocument

End Sub

спасибо