word中如何用宏替换所有标点符号的字体，文字字体不变

发布网友发布时间：2022-04-20 03:56

我来回答

共3个回答

热心网友时间：2023-06-26 18:04

第一步，在查找框中英文输入法状态下输入一个问号，然后光标在查找内容框中闪时，点下面的格式-字体

第二步，在中文字体下拉框中选中你要被替换的方正宋体，其他内容无需改变，如果你的西文字体也被用过也个字体的话，西文字体下拉框中也选中该字体。其他不变，点确定。

第三步，在替换框中输入^&然后点下方的格式

第四步，选中宋体，其他不变。确定

第五步，全部替换。

热心网友时间：2023-06-26 18:05

第一，不需要用宏来替换。CTRL+A（选中整篇文档），CTRL+H（查找和替换），单击查找内容栏，再单击下面的“高级”，“格式”，然后选中要替换的字体或其它格式；“替换为”栏以同样的办法设为你需要的格式，单击全部替换就行了。
第二，如果必须用宏来完成。可以先花一点时间来录制一个宏（这个不用说了吧），然后运行这个录制的宏就行了。不需要自己动手去写代码的。追问以下宏通过测试，就是速度太慢：
Sub Macro5()
Dim i As Long
Dim aword
Dim wordCount As Long
wordCount = ActiveDocument.Range.Words.Count
i = 0
For Each aword In ActiveDocument.Range.Words
DoEvents
i = i + 1
If aword.Font.Name = "仿宋" Then
aword.Font.Name = "宋体"
End If
Next
End Sub

热心网友时间：2023-06-26 18:05

Sub 宏1()
Selection.WholeStory
Selection.Font.Name = "宋体"
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com