DoubleStrikeThrough Property Example

This example applies double strikethrough formatting to the selected text.

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

This example removes double strikethrough formatting from the first word in the active document and capitalizes the first letter in the word.

With ActiveDocument.Words(1)
    .Font.DoubleStrikeThrough = False
    .Case = wdTitleSentence
End With