Change Font Newbie Help

Hey All -

Old hand at VB here, but rather new at dealing with Corel VBA...

This works great if the text is selected with the text edit tool (i.e., individual text characters highlighted)... but NOT when it's generally selected using the pick tool.

ActiveShape.Text.Selection.Font = "Arial"
ActiveShape.Text.Selection.Size = 10

Would like to know how to make it change the font and size when it's selected only with the pick tool. Being forced to select all of the text by hand rather negates the advantages of doing this in a macro...

Thanks!!!!!

Nevermind, I think I found it from another thread...

ActiveShape.Text.Story.Font = "Arial"

It works, although I have NO IDEA what the "story" object is. Does anyone care to explain that instead..?

[shelbym]

Story simple returns all the text from all the text frames as a TextRange. As a TextRange you can then change many properties, such as Font, Fill, Alignment, Bullets and several others.

There are also several methods such as ChangeCase, Copy, Delete, Duplicate, Replace, IsSame, just to name a view.

-Shelby