У Пола есть документ, который ему нужно сравнить со списком слов, содержащимся в другом документе. Если проверяемый документ содержит одно из слов в списке, то слово в документе (не в списке слов)

необходимо выделить жирным шрифтом. Список слов большой, порядка 20 000 слов, и Пол задается вопросом, как лучше всего это сделать.

Есть два способа продолжить. Первый — написать свой собственный макрос, который будет делать сравнения за вас. Если вы поместите слова, которые хотите проверить, в документ с именем «checklist.doc» на диске C :, то можно использовать следующий макрос:

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

Все, что вам нужно сделать, это открыть документ, который вы хотите проверить, а затем запустить макрос. Если документ, содержащий проверяемые слова, назван по-другому или находится в другом месте, просто измените строку, устанавливающую sCheckDoc, так, чтобы у нее был другой полный путь к документу.

По сути, макрос берет каждое слово из списка слов, а затем выполняет операцию поиска и замены, используя это слово в документе. Если у вас много, много слов в списке слов, то запуск макроса может занять довольно много времени — 20 000 операций поиска и замены — это довольно много!

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1173) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Highlight_Words_from_a_Word_List [Выделение слов из списка слов].