expression.SmartTags
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds custom properties to the first smart tag in the active document.
Sub NewSmartTagProperty()
ActiveDocument.SmartTags(1).Properties _
.Add Name:="President", Value:=True
End Sub