expression.SmartTagsAsXMLProps
expression Required. An expression that returns a Document object.
Example
This example enables saving smart tag information in an XML header if the active document is saved as HTML.
Sub SaveXMLForSmartTags()
ActiveDocument.SmartTagsAsXMLProps = True
End Sub