Если вы обнаружите, что немного обновляете список исключений орфографии, вам может быть сложно всегда загружать файл, добавлять слово, а затем повторно сохранять и закрывать файл. Когда вы используете пользовательские словари, Word позволяет вам добавлять в них слова одним нажатием кнопки. Однако, когда дело доходит до списка исключений, такого простого подхода не существует.

Следующий макрос позволит вам быстро добавить слово в список исключений. Вы можете назначить этот макрос кнопке на панели инструментов, а затем вы можете обновить список, просто выделив слово и нажав кнопку:

Sub Exclude()

Dim sAddWords As String

sAddWord = Trim(Selection.Text)

ChangeFileOpenDirectory _       "C:\Program Files\Common Files\Microsoft Shared\Proof\"



' The file name in the next line should be changed so it     ' reflects the proper exclude file name for your system     Documents.Open FileName:="mssp2_en.exc", _       ConfirmConversions:=False, ReadOnly:=False, _       AddToRecentFiles:=False, PasswordDocument:="", _       PasswordTemplate:="", Revert:=False, _       WritePasswordDocument:="", WritePasswordTemplate:="", _       Format:=wdOpenFormatAuto     Selection.TypeText Text:=sAddWord     Selection.TypeParagraph     ActiveDocument.Close SaveChanges:=wdSaveChanges, _       OriginalFormat:=wdOriginalDocumentFormat End Sub

Этот макрос «очищает» выбранное слово в документе и добавляет его в начало файла исключения. Вы увидите быстрое мигание на экране, когда файл исключения будет загружен, изменен и затем закрыт, но это слово будет доступно в файле исключения, если вы будете использовать Word в будущем.

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

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

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

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

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

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

link: / wordribbon-Updating_the_Spelling_Exclusion_List_Automatically [Автоматическое обновление списка исключений правописания].