The Strikethru property returns or specifies whether a strikethrough line is applied to a text range.
Examples:
The following VBA example applies a strikethrough line to all the text in the paragraph.
Sub Test()
Dim t As Text
Dim s As Shape
Dim d As Document
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, "This is an example.")
Set t = s.Text
t.Story.Strikethru = cdrDoubleThinFontLine
End Sub