0

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

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

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

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

任何帮助将不胜感激。

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

4

1 回答 1

0

有几个选项:

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

于 2015-04-29T14:12:36.663 回答