Свойство Dictionaries.ActiveCustomDictionary (Word)

Статья
04/07/2023

Возвращает или задает объект Dictionary , представляющий пользовательский словарь, в который будут добавлены слова. Для чтения и записи.

Синтаксис

выражение. ActiveCustomDictionary

Выражение Переменная, представляющая коллекцию Dictionaries.

Пример

В этом примере отображается полный путь и имя файла активного настраиваемого словаря.

Set dicCustom = Application.CustomDictionaries.ActiveCustomDictionary 
MsgBox dicCustom.Path & Application.PathSeparator & dicCustom.Name

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

Dim dicCustom As Dictionary 
 
Application.CustomDictionaries.ClearAll 
 
Set dicCustom = Application.CustomDictionaries _ 
 .Add(FileName:="C:\Program Files" _ 
 & "\Microsoft Office\Office\Home.dic") 
Application.CustomDictionaries.ActiveCustomDictionary = dicCustom

См. также

Объект коллекции Dictionaries

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через