Cách tìm câu trong Word

Làm thế nào để tìm và đánh dấu các đoạn văn bản trùng lặp trong tài liệu Word?

Giả sử, bạn có một tài liệu Word lớn có thể có hàng trăm trang, bây giờ, bạn muốn kiểm tra xem có đoạn văn bản trùng lặp hay không và sau đó đánh dấu để làm cho chúng nổi bật, để bạn có thể xử lý các câu trùng lặp. Làm cách nào bạn có thể tìm và đánh dấu các đoạn văn bản trùng lặp một cách nhanh chóng và dễ dàng trong tài liệu Word?

Tìm và đánh dấu các đoạn văn bản trùng lặp trong tài liệu Word bằng mã VBA

Tìm và đánh dấu các đoạn văn bản trùng lặp trong tài liệu Word bằng mã VBA

Để tìm và đánh dấu các đoạn văn bản trùng lặp trong tài liệu Word, mã VBA sau có thể giúp bạn, vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở:

Mã VBA: Tìm và đánh dấu các đoạn văn bản trùng lặp trong tài liệu 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. Và sau đó nhấn F5 để chạy mã này, tất cả các câu trùng lặp được đánh dấu cùng một lúc, các đoạn văn bản trùng lặp được hiển thị đầu tiên được đánh dấu bằng màu xanh lục và các bản sao khác được đánh dấu bằng màu vàng, xem ảnh chụp màn hình:

Công cụ năng suất Word được đề xuất