ActiveGrammarDictionary Property Example

This example displays the full path and file name of the active grammar dictionary.

myLang = Selection.LanguageID
Set myGram = Languages(myLang).ActiveGrammarDictionary
MsgBox myGram.Path & Application.PathSeparator & myGram.Name