Docx to rtf

ranjan · #1 02-06-2022, 12:06 PM

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.

Code:

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.

spillerbd · #2 02-06-2022, 01:39 PM

You are not defining the FIle name correctly. ActiveDocument.Name

Code:

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 & ActiveDocument.Name & ".rtf", FileFormat:=wdFormatRTF
   
      
End Sub

spillerbd · #3 02-06-2022, 01:40 PM

I recorded the process and then updated the Name property to variable and got this code

Code:

Sub SaveAsRTF()
'
' SaveAsRTF Macro
'
'
    ChangeFileOpenDirectory _
        ActiveDocument.Path
    ActiveDocument.SaveAs2 FileName:=ActiveDocument.Name & ".RTF", FileFormat:= _
        wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=0
    ActiveDocument.Close
End Sub

gmayor · #4 02-06-2022, 10:04 PM

What you need is

Code:

Sub rtf_test()
Dim oDoc As Document
Dim strPath As String
    Set oDoc = ActiveDocument
    oDoc.Save
    If Not ActiveDocument.path = "" Then
        strPath = ActiveDocument.FullName
        strPath = Left(strPath, InStrRev(strPath, Chr(46))) & ".rtf"
        oDoc.SaveAs2 FileName:=strPath, FileFormat:=wdFormatRTF
    Else
        oDoc.SaveAs2 FileName:="Filename.rtf", FileFormat:=wdFormatRTF
    End If
    Set oDoc = Nothing
End Sub

ranjan · #5 02-08-2022, 10:28 AM

Thanks a lot for making required changes ....

It works exactly what i required....

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
xml to docx	yacov	Word	2	04-20-2020 12:05 AM
Merge a .docx into a table in existing .docx	MarkAtTheBeach	Word Tables	3	10-26-2018 12:55 PM
Docx???	word perfect	Word	1	01-18-2013 05:15 AM
Doc v Docx	Frustrated	Word	3	12-12-2011 10:34 PM
.docx	ding dong	Word	3	11-01-2009 12:43 PM