CustomDictionaries 属性

返回一个 Dictionaries 对象，该对象代表活动自定义词典集合。选中“自定义词典”对话框中的相应复选框可将其标记为活动自定义词典。只读。

有关返回集合中单个成员的内容，请参阅返回集合中的对象。

示例

本示例在该集合中添加一个新的空白自定义词典。然后在一个消息框中显示该自定义词典的路径和文件名。

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