如何在 Word 文件中找出並標示重複的段落？
假設您有一份篇幅龐大的 Word 文件，可能長達數百頁，現在想快速找出其中重複的段落並加以標示，以便醒目辨識與後續處理。那麼，該如何在 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 鍵執行此程式碼，所有重複的句子將立即被標示出來：最先出現的重複段落會以綠色標示，其餘重複段落則以黃色標示，如下圖所示：
最佳 Office 生產力工具
Kutools for Word——透過超過 100 項卓越功能，全面提升您的 Word 體驗！
🤖KUTOOLS AI 功能：AI 助手/即時助手/超級潤色（保留格式）/超級翻譯（保留格式）/AI 遮擋/AI 校正……
📘 文件掌控力：分割頁面/文檔合併/以多種格式匯出選取內容（PDF/TXT/DOC/HTML……）/批次轉換為 PDF……
✏ 內容編輯：批量查找與替換多個檔案/調整所有圖片大小/翻轉表格列與欄/表格轉文本……
🧹 輕鬆清理：一鍵清除多餘空格、分節符、文字框與超連結！想要更多清除工具？立即前往移除群組……
➕ 創意插入：插入千位分隔符/複選框/選項按鈕/二維碼/條碼/多張圖片/ 更多功能請至插入群組……
🔍 精準選取：精確定位特定頁面/表格/圖形/標題段落/ 透過更多選取功能提升導覽效率……
⭐ 星級增強功能：快速跳轉至任意位置/自動插入重複文字/在文件 Windows 之間切換/11 轉換工具……
🌍 支援 40+ 種語言：使用您熟悉的慣用語言暢享 Kutools！支援英文、西班牙文、德文、法文、中文等 40 多種語言，操作更順手、體驗更流暢！
Office Tab- 為 Office 帶來分頁式介面，讓您的工作更輕鬆
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 與 Project 中啟用分頁式編輯與閱讀體驗。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您減少數百次滑鼠點擊，生產力提升 50%！
✨ Kutools for Office – 一次安裝，五大強大工具！
包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 一套整合 5 項工具 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 保存時間，立即提升生產力