Help with Replace Macro

Where I work we use CorelDRAW 12 to create stickers for our products. Well we are now going through a name change, and I basically have to go through a thousand corel files and do a text replace on each one.

The text taht is replaced is the same on every file, so I thought I would record a macro that would help save me some time. The macro shows nothing but "Recording of this command is not supported"

I read somewhere else that this error occurs because my macro deals with Text and not Graphics, and that the macro has to be coded manually.

I know nothing about VBA and I could really use some help on getting a small text replacement macro working.

Thank you

[shelbym]

A very simple replace text script would look like this:

Sub ReplaceText()

Dim s As Shape

For Each s In ActivePage.FindShapes(, cdrTextShape)
    s.Text.Replace "Old Company Name", "New Company Name", True, ReplaceAll:=True
Next s

End Sub

Basically it finds all the text objects on a page, then loops thru them looking for the words you want replaced. By setting the option after "New Company Name" to TRUE it is case sensitive.

Hope it helps,

Shelby