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 văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !