Word VBA Макросы. Как пересохранить документ в *.docx?

[Student]

Как пересохранить документ в *.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

[Student]

Спасибо