返回一个 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