I have spent hours trying to get Word to solve this problem over the past 10 or 15 years years, and have always just given up and done it manually. But now I have hundreds of characters I need to change from the MS 明朝 font to SimSun.
My macro is from Microsoft, with the appropriate font names substituted in (I copied and pasted the font names from Word):
With Selection.Find
' Clear all previously set formatting for Find dialog box.
.ClearFormatting
' Set font to Find for replacement.
.Font.Name = "MS 明朝"
' Clear all previously set formatting for Replace dialog box.
.Replacement.ClearFormatting
' Set font to Replace found font.
.Replacement.Font.Name = "SimSun"
' Don't find or replace any text.
.Text = ""
.Replacement.Text = ""
' The following parameters must be set as follows
' to find only text formatted for the specified font.
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
' Perform the find and replace.
Selection.Find.Execute Replace:=wdReplaceAll
Nothing happens when I run this.
I would even be happy to just do a manual find and replace, but when I put the font in the find box, it "finds" English characters, too.
I would be happy to update Word if these Asian font issues were fixed, but when I contact Microsoft to ask about it, they give me the run around and won't tell me.