expression.DisplaySmartTags
expression Required. An expression that returns a View object.
Remarks
Smart tags are marked in documents with a dashed underline. Setting the DisplaySmartTags property to False does not remove smart tags; it only turns off displaying the underline.
Example
This example turns off displaying the underline beneath smart tags in the active view.
Sub DontShowSmartTags()
ActiveWindow.View.ShowSmartTags = False
End Sub