Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Font Problems
I saved a document in Microsoft Word 2003 with Wingdings text so that if
someone opened it, they wouldn't be able to read it. Now when I open it, it won't change back to Times New Roman. Help! |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Font Problems
See "WD2002: Symbol Characters Are Changed to Box Characters"
http://support.microsoft.com/?kbid=290978 -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA "Heather" wrote in message ... I saved a document in Microsoft Word 2003 with Wingdings text so that if someone opened it, they wouldn't be able to read it. Now when I open it, it won't change back to Times New Roman. Help! |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Font Problems
"Heather" wrote:
I saved a document in Microsoft Word 2003 with Wingdings text so that if someone opened it, they wouldn't be able to read it. Now when I open it, it won't change back to Times New Roman. Help! Hi Heather, Microsoft has a macro to fix the doc in this KB article: http://support.microsoft.com/kb/212396/en-us Below is a macro that may work better (applies the default paragraph font rather than "Arial", is simpler, and should run faster). If you need help with running macros, see he http://word.mvps.org/faqs/macrosvba/CreateAMacro.htm Regards, Klaus Sub ConvertSymbol2() Dim i As Long Dim sReplace As String If Selection.Type wdSelectionNormal Then Selection.Expand Unit:=wdStory End If Selection.Font.Name = "Arial" For i = &HF020 To &HF0FF If i = &HF05E Then sReplace = "^^" Else sReplace = ChrW(i - &HF000) End If Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = _ ActiveDocument.Styles(wdStyleDefaultParagraphFont) With Selection.Find .Text = ChrW(i) .Replacement.Text = sReplace .Format = True .Forward = True .Wrap = wdFindContinue .Format = False End With Selection.Find.Execute Replace:=wdReplaceAll Next i End Sub |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Font Problems
THANK YOU!!!!!
"Suzanne S. Barnhill" wrote: See "WD2002: Symbol Characters Are Changed to Box Characters" http://support.microsoft.com/?kbid=290978 -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA "Heather" wrote in message ... I saved a document in Microsoft Word 2003 with Wingdings text so that if someone opened it, they wouldn't be able to read it. Now when I open it, it won't change back to Times New Roman. Help! |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Font problems | Tables | |||
Still having Font Problems | Microsoft Word Help | |||
Font Problems | Microsoft Word Help | |||
Font problems in TOC | Page Layout | |||
Font problems | Microsoft Word Help |