Returns a Dictionary object that represents the active grammar dictionary for the specified language. Read-only.
If there's no grammar dictionary installed for the specified language, this property returns Nothing.
This example displays the full path and file name of the active grammar dictionary.
Dim lngLanguage As Long
Dim dicGrammar As Dictionary
lngLanguage = Selection.LanguageID
Set dicGrammar = Languages(lngLanguage).ActiveGrammarDictionary
MsgBox dicGrammar.Path & Application.PathSeparator & dicGrammar.Name