ActiveGrammarDictionary 属性

返回一个 Dictionary 对象，该对象代表指定语言的活动语法词典。只读。

说明

如果没有安装指定语言的语法词典，本属性将返回 Nothing。

示例

本示例显示语法词典的完整路径和文件名。

Dim lngLanguage As Long
Dim dicGrammar As Dictionary

lngLanguage = Selection.LanguageID
Set dicGrammar = Languages(lngLanguage).ActiveGrammarDictionary
MsgBox dicGrammar.Path & Application.PathSeparator & dicGrammar.Name