Hyperlink.Type (Word)

Returns the hyperlink type.

Dim mhtType As Office.MsoHyperlinkType
mhtType = Selection.Hyperlinks(1).Type