SmartTags Property

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