vba - 删除word文档中所有重复文本实例的宏

Question

我正在寻找一种简单的方法来删除 Word 2007 文档中的重复文本。如果查找/替换命令有一些快捷方式，我没有看到它。否则，有人可以推荐我如何编写一个如下所示的宏:

1- 选择一个文本块(可以是多个段落，有项目符号等)。
2- 运行宏或执行命令。
3- 宏或命令删除所选文本块的所有实例。

这里有什么见解吗？

Answer 1

Selection.Text 返回当前选择的文本。

原则上，您的 Replace 命令的语法是:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = Selection.Text
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

您替换为空字符串，从而删除要查找的文本的每个实例。

但是:您当然必须决定如何处理所选文本的格式，可能必须首先分析您选择的块，因为替换可能不适用于 Selection.Text 忽略的控制字符......这只是开始，您需要指定您想要什么，然后再次询问，您自己或我们。同时记录宏和单词 vba 引用是您的 friend 。