Свойство Application.CustomDictionaries (Word)
Возвращает объект Dictionaries , представляющий коллекцию активных настраиваемых словарей. Только для чтения.
Синтаксис
выражение. CustomDictionaries
выражение: переменная, представляющая объект Application.
Примечания
Активные настраиваемые словари помечаются флажками в диалоговом окне Пользовательские словари . Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.
Пример
В этом примере в коллекцию добавляется новый пустой пользовательский словарь. Затем путь и имя файла нового пользовательского словаря отображаются в окне сообщения.
Dim dicHome As Dictionary
Set dicHome = CustomDictionaries.Add(Filename:="Home.dic")
Msgbox dicHome.Path & Application.PathSeparator & dicHome.Name
В этом примере удаляются все настраиваемые словари, чтобы пользовательские словари не были активными. Файлы пользовательского словаря, однако, не удаляются.
CustomDictionaries.ClearAll
В этом примере отображается имя каждого пользовательского словаря в коллекции.
Dim dicLoop As Dictionary
For Each dicLoop In CustomDictionaries
MsgBox dicLoop.Name
Next dicLoop
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.