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

Это можно сделать несколькими способами, и лучший выбор будет зависеть от того, как выполняется работа в вашем офисе, а также от личных предпочтений. Например, один из простых способов обработки слов — это добавить их в то, что Word называет вашим «исключающим» словарем. По сути, это способ изменения файлов, используемых средством проверки орфографии, так что определенное слово всегда помечается как неправильно написанное. Если вы добавите сто слов в список исключений, они всегда будут отмечены как неправильно написанные. О том, как добавлять слова в словарь исключений, рассказывалось в других выпусках WordTips. Вы можете найти информацию здесь:

http://word.tips.net/T001037

Подобная информация также доступна на http://word.mvps.org [сайте Word MVP] здесь:

http://wordmvp.com/FAQs/General/ExcludeWordFromDic.htm

Другой способ приблизиться к списку — создать записи автозамены для каждого слова. Когда одно из слов набирается, вы можете автоматически заменить его версией слова в каком-то заметном формате, который привлечет внимание к тому факту, что это слово было использовано. Если хотите, вы также можете просто заменить слово пробелом, что будет означать, что оскорбительное слово автоматически «стирается» при вводе.

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

Sub DoNotUseList()

Dim Word As Range     Dim ForbiddenWords(2) As String     Dim ForbiddenWord As Variant     Dim BadList As String

' Populate array with forbidden words     ' Remember to modify the size of the array above     ForbiddenWords(0) = "cat"

ForbiddenWords(1) = "dog"

ForbiddenWords(2) = "mouse"



BadList = "The following forbidden words have been identified:"

For Each Word In ActiveDocument.Words         For Each ForbiddenWord In ForbiddenWords             If LCase(Trim(Word.Text)) = ForbiddenWord Then                 BadList = BadList & vbCrLf & ForbiddenWord             End If         Next     Next

MsgBox BadList, vbOKOnly, "Forbidden Words"

End Sub

Чтобы изменить слова, которые находятся в списке запрещенных, просто измените размер и содержимое массива ForbiddenWords. Убедитесь, что в содержимом массива нет заглавных букв и фраз. Когда вы запускаете макрос, каждое слово в документе проверяется на соответствие каждому из запрещенных слов, и в конце вы получаете уведомление, если они найдены.

Другие подобные основанные на макросах способы решения этого типа проблемы были представлены в других выпусках _WordTips: _

http://word.tips.net/T000502

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

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

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

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

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

link: / wordribbon-Enforcing_a_Do-Not-Use_Word_List [Принуждение к списку слов Do-Not-Use].