textDecorationLineThrough Property
Sets or returns a Boolean that represents whether text is displayed with a line through it.
expression.textDecorationLineThrough
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 through it.
Dim objStyle As FPHTMLStyle
Set objStyle = ActiveDocument.body.Style
objStyle.textDecorationLineThrough = True