Word VBA Макросы: Как сохранить файл в формате rtf с помощью макроса?

[Blacit]

Как сохранить word-файл в формате rtf с помощью макроса?

[Администратор]

Макрос сохраняет активный файл (это файл, который отображается на мониторе) по указанному полному имени (путь + имя).

Sub Макрос()
   
    Dim FN As String
   
    FN = "C:\Users\User\Desktop\Файл.rtf"
    ActiveDocument.SaveAs FileName:=FN, FileFormat:=wdFormatRTF
   
End Sub

[Blacit]

Огромное спасибо.