VBA/Excel/Access/Word/Application/SmartTag

Show smart tag actions

   <source lang="vb">

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

</source>
   
  

Show smart tag recognizers

   <source lang="vb">

Sub show_smarttagrecognizers()

 Dim strec As SmartTagRecognizer
 For Each strec In Application.SmartTagRecognizers
   Debug.Print strec.FullName, strec.Enabled
 Next

End Sub

</source>