Thread: [Solved] How to find&replace several items at once?
View Single Post
 
Old 12-03-2013, 01:42 AM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
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
For the 'Û', add:
& "|Û"
to the FList definition and add:
|x
to the RList definition, where 'x' is the replacement character (you don't seem to have specified it).

As for the font, the macro doesn't make any changes - it leaves everything as it found it. If the issue is that the replacement characters are in the wrong font, insert:
.Replacement.Font.Name = "Balaram"
after:
.MatchWholeWord = False
and change:
.Format = False
to:
.Format = True
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote