Find/Replace with CorelDraw 9 and VB 6

I'm new to Corel Draw and trying to do a find/replace on text in a cdr label. I'm able to open the label, but am having difficulties with the find/replace. I have tried some of the other methods in this forum, but just keep hitting a wall with Object doesn't support this property or method. (Yes, I have selected CorelDRAW 9.1 for Office Type Library). Are there other Corel libraries that I need, but don't have? Or am I just not doing this right?

Any help will be greatly appreciated!

[Alex]

Originally Posted by sfldan

I'm able to open the label, but am having difficulties with the find/replace.

What do you mean by "label"? Is it an artistic text object? Paragraph Text? Something else?

If you want to replace some text strings inside text objects in CorelDRAW 9 document, here is how you do it:

Sub Test()
    Dim s As Shape
    For Each s In ActivePage.Shapes
        If s.Type = cdrTextShape Then
            s.Text.Replace "text", "object", True
        End If
    Next s
End Sub

This code for Draw 9 goes through each shape on the current page, and if this shape is a text object, it replaces string "text" with "object" using case-sensitive search.

So, if you have a text object with, say, "Some text" string in it, you'll end up with "Some object".

I hope this helps.