word微软雅黑无法更改宋体

如题所述

选中需要更改字体的文字后,点击右上角的替换按钮。
“查找内容”那里是文档中的原文字,“替换为”那里需要手动输入该文字或其他你想要替换为的什么文字。然后点击全部替换。
这时候文档中的这类无法更改字体的文字就全部都改成了正常格式,我们就可以随心所欲地更改它们为其他格式。
不过如果文档中这个字过多,我们在想进一步更改它们为其他格式的时候可能会有些重复操作,会感觉很麻烦,不要慌,还可以在上一步查找替换的时候点击下方的“格式---字体”作进一步修改后再进行“全部替换”操作。
注意事项所有无法改变字体的文字都需要重复上诉全部替换的步骤。可以直接选中那一行的中文并将其设置为TimesNewRoman再把字体不对的数字删掉重写就好了!或者在需要输入数字的地方随便输入一汉字并将其设置为TimesNewRoman再输入数字便是TimesNewRoman字体了。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2023-02-25
打开 Word 并按下 ALT + F11 快捷键,打开 Visual Basic 编辑器。
在 Visual Basic 编辑器中,选择“插入”->“模块”,创建一个新的模块。
将以下代码复制并粘贴到新建的模块中:
Sub ReplaceFont()

'设置目标字体为宋体
Dim targetFont As String
targetFont = "宋体"

'遍历文档中所有的段落
For Each para In ActiveDocument.Paragraphs

'遍历每个段落中的单词
For Each wrd In para.Range.Words

'遍历每个单词中的字符
For i = 1 To Len(wrd.Text)

'如果字符的字体为微软雅黑,就将其更改为宋体
If wrd.Characters(i).Font.NameFarEast = "微软雅黑" Then
wrd.Characters(i).Font.NameFarEast = targetFont
End If

Next i

Next wrd

Next para

'弹出提示框,提示处理完成
MsgBox "已将所有微软雅黑字体的中文字符转换为宋体。", vbInformation, "提示"

End Sub
在代码中,将目标字体设置为“宋体”,你可以根据需要将其更改为其他字体。代码会遍历整个文档中的每个段落、每个单词和每个字符,并检查它们的字体是否为“微软雅黑”。如果是,它将把它们的字体更改为目标字体。
按下 F5 键运行宏。
运行完成后,会弹出提示框,提示处理完成。此时,所有使用“微软雅黑”字体的中文字符应该已经转换为“宋体”。
相似回答