ActiveSpellingDictionary Property Example

This example returns the full path and file name of the active spelling dictionary.

myLang = Selection.LanguageID
Set mySpell = Languages(myLang).ActiveSpellingDictionary
MsgBox mySpell.Path & Application.PathSeparator & mySpell.Name