メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

Word文書で重複する段落を見つけてハイライトするにはどうすればよいですか？

Author Xiaoyang Last modified

例えば、数百ページに及ぶ大きな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キーを押してこのコードを実行すると、すべての重複する文章が一度にハイライトされます。最初に表示される重複段落は緑色で、他の重複部分は黄色でハイライトされます。スクリーンショットをご覧ください：

All duplicate sentences highlighted with the first displayed duplicate paragraphs highlighted in green and other duplicates in yellow

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

Kutools for Word - 100以上の驚くべき機能でWordの操作体験を向上！

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ（書式維持）/ スーパー トランスレート（書式維持）/ AI編集 / AI校正...

📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式（PDF/TXT/DOC/HTMLなど）でソリューションをエクスポート / 一括PDF変換...

✏ テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...

🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...

➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...

🔍 高精度な選択: 特定のページや表、図形、見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...

⭐ スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...

🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応！

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみたいですか？今すぐKutools for Wordをダウンロード！🚀
 

✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます！

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む

📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ

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

Kutools for Word - 100+ のツールでWordをよりパワフルに

無料ダウンロード 今すぐ購入 Kutoolsの詳細はこちら