Superscript Spaces

[Gerald Perna]

I need code that will "normalize" all superscript spaces
that occur before letters in a document, but not digits
just letters.

Does anyone have an idea?

Thanks.

Jerry

 

[Word Heretic]

G'day "Gerald Perna" <[email protected]>,

set a range object to use the doc content

Dim MyRange as Range


Now do a search. Init with

MyRange.Find.Font.Superscript=true

and

MatchWildcards=True

etc

and when exec with wdreplacenone test what comes after the MyRange

Like

Set TestRange=MyRange.Duplicate
TestRange.Collapse wdcollapseend
TestRange.movestart wdcharacter,-1
if testrange.="A" and testrange<"=Z" or ...

I need code that will "normalize" all superscript spaces
that occur before letters in a document, but not digits
just letters.

Does anyone have an idea?

Thanks.

Jerry

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
wordheretic.com

Replies offlist may require payment.