提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何查找和突出显示Word文档中的重复段落?

假设你有一个可能有数百个页面的大型Word文档,现在,你想要检查是否有重复的段落,然后突出显示它们是否突出,以便你可以处理重复的句子。 如何在Word文档中快速轻松地找到并突出显示重复的段落?

使用VBA代码查找并突出显示Word文档中的重复段落


使用VBA代码查找并突出显示Word文档中的重复段落

若要查找并突出显示Word文档中的重复段落,以下VBA代码可以帮到您,请执行以下操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 然后点击 插页 > 模块,将下面的代码复制并粘贴到打开的空白模块中:

VBA代码:查找并突出显示Word文档中的重复段落:

Sub highlightdup()
    Dim I, J As Long
    Dim xRngFind, xRng As Range
    Dim xStrFind, xStr As String
    Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = 1 To .Paragraphs.Count - 1
            Set xRngFind = .Paragraphs(I).Range
            If xRngFind.HighlightColorIndex <> wdYellow Then
                For J = I + 1 To .Paragraphs.Count
                    Set xRng = .Paragraphs(J).Range
                    If xRngFind.Text = xRng.Text Then
                        xRngFind.HighlightColorIndex = wdBrightGreen
                        xRng.HighlightColorIndex = wdYellow
                    End If
                Next
            End If
        Next
    End With
End Sub

3。 然后按 F5 运行此代码的关键,所有重复的句子一次突出显示,第一个显示的重复段落用绿色突出显示,其他重复段用黄色突出显示,请参见屏幕截图:

doc highlight重复句子1



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 1 months ago
    It throws Compile error: Syntax error, the code is 100% as the example.
  • To post as a guest, your comment is unpublished.
    dvid · 11 months ago
    I tried, and it works fine!
    I just wanted to know - could I do the same thing - but not a whole paragraph, but a sentence with a few words I'd set up - like 10 words?
  • To post as a guest, your comment is unpublished.
    Juliana · 11 months ago
    Tentei e não funcionou, só da que parou de funcionar.