Find and Replace Subscripts Size at the End of a Word

[ch333]

Is there a way to to a universal find/replace of subscript size.  I'm thinking some VBA code.

This is what I want to do, find "Word_A" where the word is font size 12 pt and the subscript is font size 12 pt, and change only the subscript to font size 16 pt.  (i.e. "Word_A")

I'm thinking the easiest way is do a find subscript command and replace all subscripts with font size 16 pt.

Can anyone point me in the right direction with code; it's been a few years since I've messed with VBA.

Thanks,
Chris

[Jumpy]

Not that easy in VBA as you can't just analyse the shape.text. You'll have to use the "Characters" Object, I guess.

[wapperdude]

You might want to check out this link, it deals with "characters" .. http://blogs.msdn.com/b/visio/archive/2006/08/18/704811.aspx

Wapperdude