如何用宏刷字体？

dvfctcyy · 发表于 2020-12-20 11:42

想把一篇文档中的所有仿宋换成方正仿宋、楷体换成方正楷体、宋体换成方正小标宋这样，试了录制宏，也生成了代码，但是无法再次起效，请问各位大佬可以用宏解决这个问题吗
感谢！

413191246se · 发表于 2020-12-20 12:04

* 楼主，如果字体名称不正确，请自行录制宏取得正确名称。

Sub aaaa_仿宋转方正()
With ActiveDocument.Content.Find
.ClearFormatting
.Font.NameFarEast = "仿宋"
With .Replacement
.ClearFormatting
.Font.NameFarEast = "方正仿宋"
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
'''
With ActiveDocument.Content.Find
.ClearFormatting
.Font.NameFarEast = "楷体"
With .Replacement
.ClearFormatting
.Font.NameFarEast = "方正楷体"
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
'''
With ActiveDocument.Content.Find
.ClearFormatting
.Font.NameFarEast = "宋体"
With .Replacement
.ClearFormatting
.Font.NameFarEast = "方正小标宋简体"
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
End Sub

复制代码

dvfctcyy · 发表于 2020-12-20 14:46

413191246se 发表于 2020-12-20 12:04
* 楼主，如果字体名称不正确，请自行录制宏取得正确名称。

试过了管用，感谢大佬！学到了！

遥控器78 · 发表于 2020-12-22 10:15

413191246se 发表于 2020-12-20 12:04
* 楼主，如果字体名称不正确，请自行录制宏取得正确名称。

文字的字体可以替换，但是如果有数字，数字还是原来的字体，比如“仿宋”改成“仿宋_GB2312”，数字还是“仿宋”请问怎么修改能让数字也变成“仿宋_GB2312”。

413191246se · 发表于 2020-12-23 02:21

* 楼上朋友，你好！——第 2 楼代码中，“07/17/27”这 3 行的代码是替换后的字体，只须将这 3 行“.Font.NameFarEast”中的“FarEast”(远东)删除即可，变成“.Font.Name”，这样，数字 OK 了。

* 第 2 楼代码中，“04/14/24”这 3 行的代码是要查找的字体。在所有 Windows 系统中都有常用的四款字体：宋仿楷黑，即：宋体/仿宋/楷体/黑体。在非 WindowsXP 系统中这四款字体就用这些字体名称；而 WindowsXP 系统中“仿宋”和“楷体”这两款字体名称要在后面加一个后缀，即“仿宋_GB2312”和“楷体_GB2312”。所以，如果想修改查找的字体名称，请在“04/14/24”中自行修改，并且注意是否为XP系统。

413191246se · 发表于 2020-12-23 02:31

4 楼朋友请试试：

Sub aaaa_仿宋转方正_英文也转方正()
With ActiveDocument.Content.Find
.ClearFormatting
.Font.NameFarEast = "仿宋_GB2312"
With .Replacement
.ClearFormatting
.Font.Name = "方正仿宋"
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
'''
With ActiveDocument.Content.Find
.ClearFormatting
.Font.NameFarEast = "楷体_GB2312"
With .Replacement
.ClearFormatting
.Font.Name = "方正楷体"
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
'''
With ActiveDocument.Content.Find
.ClearFormatting
.Font.NameFarEast = "宋体"
With .Replacement
.ClearFormatting
.Font.Name = "方正小标宋简体"
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
End Sub

复制代码

遥控器78 · 发表于 2020-12-23 14:11

413191246se 发表于 2020-12-23 02:31
4 楼朋友请试试：

完美解决了，十分感谢！

wdpfox · 发表于 2020-12-24 08:48

学习了，谢谢分享！

We meet by chance like patches of drifting duckweed,
May everything be fine with you everyday !
（你我萍水相逢，愿君一切安好！）

		自动登录	找回密码
密码			免费注册

[求助] 如何用宏刷字体？

评分

评分

评分