StrikeThrough Property Example

This example applies strikethrough formatting to the first three words in the active document.

Set myDoc = ActiveDocument
Set myRange = myDoc.Range(Start:=myDoc.Words(1).Start, _
    End:=myDoc.Words(3).End)
myRange.Font.StrikeThrough = True

This example applies strikethrough formatting to the selected text.

If Selection.Type = wdSelectionNormal Then
    Selection.Font.StrikeThrough = True 
Else
    MsgBox "You need to select some text."
End If