textDecorationOverline Property
Sets or returns a Boolean that represents whether there is a line above the text in an element.
expression.textDecorationOverline
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example sets the text in the body of the active document to display with a line over it.
Dim objStyle As FPHTMLStyle
Set objStyle = ActiveDocument.body.Style
objStyle.textDecorationOverline = True