Application VisualBasic Script

Sub show_smarttagrecognizers()
  Dim strec As SmartTagRecognizer
  For Each strec In Application.SmartTagRecognizers
    Debug.Print strec.FullName, strec.Enabled
  Next
End Sub