Docx to rtf

[ranjan]

I want to convert the active document from .docx to .rtf and save in the active document path and save with the same active document file name.

Example:-

Input: c:\123.docx

Output: c:\123.rtf

Please help me in this regard’s…

I tried the below one but am not getting the same active file name in the same path, could you help me in this regards.

Sub rtf_test()

Dim strFname As String
Dim oDoc As Document
Dim strPath As String

    strFname = "Filename" 
    Set oDoc = ActiveDocument
    strPath = ActiveDocument.path & "\"
    
   oDoc.SaveAs2 FileName:=strPath & "Filename.rtf", FileFormat:=wdFormatRTF
   
      
End Sub

Any help is highly appreciated...



Thank you so much.