如何在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鍵運行此代碼，所有重複的句子都會立即被突出顯示，首次出現的重複段落會以綠色突出顯示，其他重複部分則以黃色突出顯示，請參見截圖：
最佳辦公效率工具
Kutools for Word -透過超過 100 項卓越功能，提升您的 Word 使用體驗！
🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish（保留格式）／Super Translate（保留格式）／AI Redaction／AI Proofread...
📘 文件掌握：分割頁面／文檔合併／區域導出成各種格式（PDF/TXT/DOC/HTML...）／批量轉換為 PDF...
✏ 正文編輯：批量查找與替換多個文件／批量調整所有圖片大小／翻轉表格的行與列／表格轉文本...
🧹 輕鬆清理：快速清除多餘空格／分節符／文字框／超連結／更多清除工具請前往刪除工具組...
➕ 創意插入：插入千位分隔符／複選框／選項按鈕／二維碼／條形碼／批量插入圖片／還有更多精彩功能在插入工具組...
🔍 精確選擇：精確定位特定頁面／表格／形狀／標題段落／使用更多 選擇 功能提升導航效率...
⭐ 亮點增強：導航至任何區域／自動插入重複文字／切換文檔窗口／11 項轉換工具...
🌍 支援40+種語言：可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言！
✨ Kutools for Office——一次安裝，五大強力工具！
包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率
最佳辦公效率工具
Kutools for Word - 100+ 款 Word 工具
- 🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish／Super Translate／AI Redaction／AI Proofread
- 📘 文件掌握：分割頁面／文檔合併／批量轉換為 PDF
- ✏ 正文編輯：批量查找與替換／批量調整所有圖片大小
- 🧹 輕鬆清理：清除多餘空格／清除分節符
- ➕ 創意插入：插入千位分隔符／插入複選框／創建二維碼
- 🌍 支援40+種語言：Kutools 支援您的語言——可使用超過40種語言！