MS Word macro for strikethrough of BOTH selection AND its attached comments

Sub StrikeThroughSel()
    CurrSel = Selection
    Selection.Font.StrikeThrough = wdToggle
    If Selection.Comments.Count > 0 Then
        Selection.Comments(1).Range.Select
        Selection.Font.StrikeThrough = wdToggle
    End If
    ActiveWindow.ActivePane.Close
    ActiveWindow.View.Type = wdPrintView
End Sub