Remove Paragraph marks from artistic text

[knowbodynow]

I have a routine that automatically renames pages. Later I use the page name as the name for a file containing an exported graphic. However, I've discovered a problem if the text I use has extra paragraph returns at the end. This messes up the page name and later causes my export to fail. I want to remove the paragraph marks. I've tried:

Dim p As Page
 Dim s As Shape
    
    For Each p In ActiveDocument.Pages
    For Each s In p.ActiveLayer.FindShapes(Type:=cdrTextShape)
    Replace(s.Text.Story, Chr(182), "")
    p.Name = Trim(s.Text.Story)
     
    Next s
    Next p

But this doesn't remove the paragraph marks. Is there any way I can do this?

Thanks,

Chris (Hunt)

[Alex]

Chris,

First, to start, a new paragraph mark is represented as a character with code 10, that is, Chr(10), or using predefined VBA's constant vbLf, and not the paragraph sign, Chr(182). Well, this is valid for Paragraph Text only. In Artistic Text object, new line start with character 13, or vbCr for short. This is the same character as soft line return (Shift-Enter) in Paragraph text, because essentially a artistic text object is one single paragraph of text...

The problem number two is that you can't just do something like this:

Replace(s.Text.Story, Chr(182), "")

Just because it will have no effect. The reason for this is that Shape.Text.Story will return the string contained in the text object, then the Replace function will remove the specified character and return the new string which you ignore. You need to use the string returned by the Replace:

s.Text.Story = Replace(s.Text.Story, vbCr, "")

Or, if you don't need to actually change the text object and just use the text contained within it, you can always do something like this:

Sub RenamePage()
    Dim strText As String
    If ActiveShape Is Nothing Then Exit Sub
    If ActiveShape.Type <> cdrTextShape Then Exit Sub
    strText = ActiveShape.Text.Story
    strText = Replace(strText, vbCr, "") ' Remove soft returns
    strText = Replace(strText, vbLf, "") ' Remove paragraph breaks
    strText = Trim(strText) ' Remove any space in front/at the back of the text
    ActivePage.Name = Left(strText, 32) ' Use no more than 32 characters
End Sub

[knowbodynow]

That's great, Alex. You make it very clear and usable. Since I started using VBA CorelDraw has become twice the program - thanks to you.

Best wishes,

Chris