vba - 用于格式化选定文本的 Microsoft Word 宏，例如所有 eg 实例的斜体

Question

这是我的第一个问题，我必须检查大量文档并确保几个格式问题是正确的。此类问题的一个示例是确保所有句点“.”不是粗体、斜体、下划线等。另一个示例是确保所有“等”都不是粗体、斜体、下划线等。是斜体。

我有一个所需格式问题的列表。

我宁愿编写一个可以应用于每个文档的宏，而不是遍历每个文档并使用查找/替换功能。

我没有使用VBA的经验。另一方面，我有一些使用 C 语言和 C 语言编程的经验。

任何帮助将不胜感激。

顺便说一句，我不是要一个完整的程序，而是一个我可以从中学习并继续我自己的示例。

Answer 1

有几个选项：

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.或者简单地编写一个大宏来完成你需要的所有编辑过程