ActiveHyphenationDictionary Property
Returns a Dictionary object that represents the active hyphenation dictionary for the specified language. Read-only.
Remarks
If there's no hyphenation dictionary installed for the specified language, this property returns Nothing.
Example
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