Note: The other languages of the website are Google-translated. Back to English

Word文書で重複する段落を見つけて強調表示する方法は?

数百ページに及ぶ可能性のある大きなWord文書があるとします。次に、重複する段落があるかどうかを確認し、それらを目立たせるために強調表示して、重複する文を処理できるようにします。 Word文書で重複する段落をすばやく簡単に見つけて強調表示するにはどうすればよいですか?

VBAコードを使用してWord文書内の重複する段落を見つけて強調表示します


VBAコードを使用してWord文書内の重複する段落を見つけて強調表示します

Word文書内の重複する段落を見つけて強調表示するには、次のVBAコードを使用すると便利です。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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ハイライト重複文1


推奨される単語生産性ツール

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...