View Single Post
 
Old 05-17-2011, 02:56 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2007
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Hi b0x4it,

Finding any set of characters (or a particular character) is just a matter of changing the Find expression in the macro. So, for all Greek characters, change:
.Text = "[0-9]"
to:
.Text = "[" & ChrW(&H374) & "-" & ChrW(&H3FF) & "]"
The 'Greek' find spans all the characters you see in Insert|Symbol for the Greek & Cyrillic script. You can narrow the range if you want, but it won't make a significant difference to the macro's speed. There is also an extended Greek character set, with a different ChrW range, but I'd be surprised if they were being used in the equations.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote