[Klaus Linke]

"vavtwo" wrote:
Hello- I received a Word Macro Enabled Documnet in font Trebuchet. I can
not
read the document and when I highlight the document and select Arial - the
document changes to blocks no letters. Any suggestions?


Hi,

It's a problem that is sometimes caused by the text having been assigned a
symbol font accidentally (by Word or by the user).

There's a macro by Microsoft in the KnowledgeBase somewhere that repairs the
text, but I can't find it at the moment.
The macro below will fix it too (... I tried it on your text, and it starts
with "MARCH FOR BABIES").

If you don't know how to run macros, see
http://word.mvps.org/faqs/macrosvba/CreateAMacro.htm

Regards,
Klaus


Sub FixTextAccidentallyUsingDecorativeFonts()
' Should fix text that has been accidentally formatted
' in a decorative font, and change it to "Arial"
Dim myRange As Range
Dim myStoryRange As Range
For Each myStoryRange In ActiveDocument.StoryRanges
Set myRange = myStoryRange.Duplicate
Do
With myRange.Find
.ClearFormatting
.Text = "[" & ChrW(&HF000) & "-" & ChrW(&HF0FF) & "]"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
If .Execute Then
With myRange.Find
.Text = "^u" & Trim(STR(AscW(myRange.Text) And &HFFFF&))
.Replacement.Text = ChrW(AscW(myRange.Text) - &HF000)
.Replacement.Font.Name = "Arial"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
End With
myRange.Find.Execute Replace:=wdReplaceAll
Else
Exit Do
End If
End With
Loop
Next myStoryRange
End Sub