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キーを押してこのコードを実行すると、すべての重複文が一括でハイライトされます。最初に表示される重複段落は緑色で、他の重複段落は黄色でハイライトされます（下図参照）。

最高のオフィス生産性ツール

Kutools for Word– 300 以上の卓越した機能で、Word 体験をさらにレベルアップ！100 の注目の機能！

🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ（書式を保持）／スーパートランスレート（書式を保持）／AI 編集／AI 校正…

📘ドキュメントマスタリー：ページ分割／文書の結合／選択範囲をさまざまな形式でエクスポート（PDF/TXT/DOC/HTML など）／一括 PDF 変換…

✏コンテンツ編集：複数ファイルにわたって一括検索と置換／すべての画像をリサイズ／表の転置行と列／表をテキストに変換…

🧹手間いらずのクリーンアップ：余分なスペースを一掃／セクション区切り／テキストボックス／ハイパーリンク／その他の削除ツールについては、削除グループをご覧ください…

➕クリエイティブ挿入：以下を挿入桁区切り記号／チェックボックス／ラジオボタン／QR コード／バーコード／複数の画像／詳細は挿入グループで…

🔍精密選択：特定のページ／表／図形／見出し段落／ナビゲーションを強化するにはその他の選択機能を活用…

⭐注目の拡張機能：任意の場所に移動／繰り返しテキストを自動挿入／ドキュメントWindows 間を切り替え／11 変換ツール…

🌍40 以上の言語をサポート：Kutools を好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語など、40 以上の言語に対応しています。

 

無料ダウンロード     今すぐ購入     詳細を見る

 

---

Office Tab– Office にタブ付きインターフェースを導入し、作業を大幅に簡単に

• Word、Excel、PowerPoint、Publisher、Access、Visio、Project でタブを使った編集・閲覧機能を有効にします。
• 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
• 日々の生産性を50％も向上させ、毎日数百回のマウスクリックをカットします！

無料ダウンロード     今すぐ購入     詳細を見る

 

---

✨ Kutools for Office – 1 回のインストールで、5 つの強力なツールがすぐに使える！

含まれるもの：Office Tab Pro・Kutools for Excel・Kutools for Outlook・Kutools for Word・Kutools for PowerPoint

📦 1 つのスイートですべての5 ツールを入手｜🔗 Microsoft Office とシームレスに連携｜⚡ 保存時間して、すぐに生産性を向上

⬇️ 今すぐダウンロード🎁 フルスイートを購入📖 詳細を見る

最高のオフィス生産性ツール

Kutools for Word– Word 向けの100+ツール

• 🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ／スーパートランスレート／AI 編集／AI 校正
• 📘ドキュメントマスタリー：ページ分割／文書の結合／一括 PDF 変換
• ✏コンテンツ編集：一括検索と置換／すべての画像をリサイズ
• 🧹手間いらずのクリーンアップ：余分なスペースを削除／セクション区切りを削除
• ➕クリエイティブ挿入：桁区切り記号を挿入／チェックボックスを挿入／QR コードを作成
• 🌍40 以上の言語をサポート：Kutools はあなたの言語に対応しています！40 以上の言語をサポート！

無料ダウンロード今すぐ購入Kutools について詳しく知る