Форум по VBA и MS Office

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

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

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

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