Объект Dictionary (Word)
Представляет словарь. Объекты словаря , представляющие пользовательские словари, являются членами коллекции Dictionaries . Другие объекты словаря возвращаются свойствами коллекции Languages ; к ним относятся свойства ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary и ActiveHyphenationDictionary .
Используйте CustomDictionaries (Index), где Index — это номер индекса или строковое имя словаря, чтобы вернуть один объект Dictionary , представляющий пользовательский словарь. В следующем примере возвращается первый словарь в коллекции.
CustomDictionaries(1)
В следующем примере возвращается словарь с именем MyDictionary.
CustomDictionaries("MyDictionary")
Используйте свойство ActiveCustomDictionary , чтобы задать пользовательский словарь орфографии в коллекции, в которую добавляются новые слова. При попытке задать для этого свойства словарь, который не является пользовательским словарем, возникает ошибка.
Используйте метод Add , чтобы добавить новый словарь в коллекцию активных настраиваемых словарей. Если файл с именем, указанным в параметре FileName, отсутствует, word создает его. В следующем примере в коллекцию пользовательских словарей добавляется myCustom.dic.
CustomDictionaries.Add FileName:="MyCustom.dic"
Замечания
Используйте свойства Имя и Путь , чтобы найти любой из словарей. В следующем примере отображается окно сообщения, содержащее полный путь для каждого словаря.
For Each d in CustomDictionaries
Msgbox d.Path & Application.PathSeparator & d.Name
Next d
Используйте свойство LanguageSpecific , чтобы определить, может ли указанный пользовательский словарь иметь определенный язык, назначенный ему с помощью свойства LanguageID . Если словарь зависит от языка, он будет проверять только текст, отформатированный для указанного языка.
Для каждого языка, для которого установлены средства проверки правописания, можно использовать свойства ActiveGrammarDictionary, ActiveHyphenationDictionary, ActiveSpellingDictionary и ActiveThesaurusDictionary для возврата соответствующих объектов Dictionary . В следующем примере возвращается полный путь к активному словарю правописания, используемому в версии Word на английском языке США.
Set myspell = Languages(wdEnglishUS).ActiveSpellingDictionary
MsgBox mySpell.Path & Application.PathSeparator & mySpell.Name
Свойство ReadOnly возвращает значение True для lex-файлов (встроенных словарей проверки правописания) и False для DIC-файлов (пользовательских словарей орфографии).
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.