SmartTags 属性

       

返回一个 SmartTags 对象,该对象代表文档中一个智能标记。

expression.SmartTags

expression   必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例为文档中的第一个智能标记添加自定义属性。

Sub NewSmartTagProperty()
    ActiveDocument.SmartTags(1).Properties _
        .Add Name:="President", Value:=True
End Sub