Re: Range object and Special char "`"

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hi Pravin,

first I'd reset all of the doc to some harmless font
like Arial. Then, I think, there is no way but checking
each individual character. Like this:

Dim c As Range
Selection.WholeStory
Selection.Font.Name = "Arial"
Selection.Collapse
Set d = Dialogs(wdDialogInsertSymbol)
For Each c In ActiveDocument.Range.Characters
c.Select
d.Update
If d.Font <> "(normaler Text)" Then
MsgBox "gotcha"
' do what you like to this character
End If
Next

Note: "(normaler Text)" is the german version.
Could be something like "(standard text)" or "(ordinary text)"
or "(normal text)"
I don't know. I hate localizations.

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

.