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