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

необходимо выделить жирным шрифтом. Список слов большой, порядка 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 операций поиска и замены — это довольно много!

Другой подход, который вы можете попробовать, — это использовать стороннее приложение, которое сделает всю работу за вас. На этом сайте есть хорошая статья и бесплатное приложение:

http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=160

Этот подход особенно интересен, потому что он не просто выделяет совпадающие слова жирным шрифтом, но и позволяет вам установить для них какой-то цвет, который вы можете пожелать.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (502) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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