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