Paul có một tài liệu mà anh ấy cần đối chiếu với danh sách từ có trong tài liệu khác. Nếu tài liệu đang được kiểm tra chứa một trong các từ trong danh sách thì từ trong tài liệu (không có trong danh sách từ)

cần được làm nổi bật bằng cách tô đậm. Danh sách từ rất lớn, với thứ tự 20.000 từ, và Paul đang tự hỏi cách tốt nhất để làm điều này là gì.

Có hai cách bạn có thể tiến hành. Đầu tiên là viết macro của riêng bạn để thực hiện các phép so sánh cho bạn. Nếu bạn đặt các từ bạn muốn kiểm tra vào tài liệu có tên “checklist.doc” trong ổ C: thì có thể sử dụng macro sau:

Sub CompareWordList()

Dim sCheckDoc As String     Dim docRef As Document     Dim docCurrent As Document     Dim wrdRef As Object

sCheckDoc = "c:\checklist.doc"

Set docCurrent = Selection.Document     Set docRef = Documents.Open(sCheckDoc)

docCurrent.Activate

With Selection.Find         .ClearFormatting         .Replacement.ClearFormatting         .Replacement.Font.Bold = True         .Replacement.Text = "^&"

.Forward = True         .Format = True         .MatchWholeWord = True         .MatchCase = True         .MatchWildcards = False     End With

For Each wrdRef In docRef.Words         If Asc(Left(wrdRef, 1)) > 32 Then             With Selection.Find                 .Wrap = wdFindContinue                 .Text = wrdRef                 .Execute Replace:=wdReplaceAll             End With         End If     Next wrdRef

docRef.Close     docCurrent.Activate End Sub

Tất cả những gì bạn cần làm là mở tài liệu mà bạn muốn kiểm tra, sau đó chạy macro. Nếu tài liệu chứa các từ cần kiểm tra được đặt tên khác hoặc ở vị trí khác, chỉ cần thay đổi dòng đặt sCheckDoc để tài liệu có tên đường dẫn đầy đủ khác cho tài liệu.

Về cơ bản, macro lấy từng từ từ danh sách từ và sau đó thực hiện thao tác Tìm và Thay thế bằng từ đó trong tài liệu. Nếu bạn có rất nhiều từ trong danh sách từ, thì macro có thể mất khá nhiều thời gian để chạy — 20.000 hoạt động Tìm và Thay thế là khá ít!

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (1173) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: