VBA/Excel/Access/Word/Application/SmartTag

Show smart tag actions

 
Sub show_smarttagactions()
  Dim i As Integer
  Dim st As SmartTag
  Dim sta As SmartTagAction
  For Each st In ActiveSheet.SmartTags
    Debug.Print st.Range.Address, st.Name, st.XML
    For i = 1 To st.SmartTagActions.Count
      Set sta = st.SmartTagActions(i)
      Debug.Print "  " + sta.Name
    Next
  Next st
End Sub

Show smart tag recognizers

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