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

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

`link:/office-skill-ru/wordribbon-T008695

Аналогичная информация также доступна на http: — word.mvps.org [сайт Word MVP] `, здесь:

https://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 _: _

`link:/office-skill-ru/wordribbon-T001173

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

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

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

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

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

link: / word-Enforcing_a_Do-Not-Use_Word_List [Обеспечение списка слов для неиспользования].