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>