Export & Import Text Strings in .CDR file

Hello All,

Is there any way to export & Import the text strings from .CDR file using Corel Scripts or VBA?

Thanks,
Shail

[shelbym]

Here is a simple way to export the text strings on the current page. Hopefully it will get you started.

Sub ExportText()
    Dim s As Shape
    
    Open "D:\Temp\MyText.txt" For Output As #1
    
    For Each s In ActivePage.FindShapes(Type:=cdrTextShape)
        Print #1, s.Text.Story
    Next s
    
    Close #1
End Sub

-Shelby

Hello,

Thanks for the code. I have modified to achieve my requirements. However, stuck in auto generating ID's for id attribute for source element....

Sub Export2XML()
Dim s As Shape
Dim xmlFile
    xmlFile = "D:\Temp\cdrStr.xml"
    
    Open xmlFile For Output As #1
    Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & _
              " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>"
              '' <  add xml-schema if it's needed here >
        Print #1, "<cdrstrings>"
        
        For Each s In ActivePage.FindShapes(Type:=cdrTextShape)
        
            Print #1, "<source id="">"
            Print #1, s.Text.Story
            Print #1, "</source>"
            Print #1, "<target>"
            Print #1, s.Text.Story
            Print #1, "</target>"
        Next s
        Print #1, "</cdrstrings>"
        Close #1
End Sub

[shelbym]

What would you like the source ID to be? You could use s.StaticID

-Shelby

Thanks! my requirement is export the text strings translate it and import back.
Is there any way to import back the strings in .cdr file using the same script.

Thanks,
Shail

[shelbym]

If you use the StaticID in your XML file, then when you need to import the new string you would find the shape with the StaticID and change the text to the new string. It should work just fine.

-Shelby

Thanks a Lot!