这是我的第一个问题,我必须检查大量文档并确保几个格式问题是正确的。此类问题的一个示例是确保所有句点“.”不是粗体、斜体、下划线等。另一个示例是确保所有“等”都不是粗体、斜体、下划线等。是斜体。
我有一个所需格式问题的列表。
我宁愿编写一个可以应用于每个文档的宏,而不是遍历每个文档并使用查找/替换功能。
我没有使用VBA的经验。另一方面,我有一些使用 C 语言和 C 语言编程的经验。
任何帮助将不胜感激。
顺便说一句,我不是要一个完整的程序,而是一个我可以从中学习并继续我自己的示例。
有几个选项:
1.在 Word 的开发人员选项卡下,您可以点击“录制宏”按钮,并在使用 ctrl + H 快捷键录制宏时多次查找和替换。
2.有多个较小的宏设置(例如下面的两个)点击“录制宏”并按照您想要的顺序运行它们。
Sub ItalicizeEct()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "ect."
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub RemoveBoldPeriods()
Dim PunctAllRng As Word.Range
Set PunctAllRng = ActiveDocument.Range
With PunctAllRng.Find
.Format = True
.Text = "."
.Font.Bold = True
.Replacement.Text = "."
.Replacement.Font.Bold = False
.Execute Replace:=wdReplaceAll
End With
End Sub
3.或者简单地编写一个大宏来完成你需要的所有编辑过程