Word中删除双删除线的内容和删除表格中的空白行

这周四开会，发现部门的需求文档里，都是没用的双删除线，完全没有用途，几百页的文档里充斥了这样的垃圾，让我看着很不爽，所以就写了VBA程序来把这些内容删除了，试了试还不错。代码如下：

 

Function IsReadOnly() Function IsReadOnly() As Boolean ‘检查文档是否只读
    If ActiveDocument.ReadOnly Then
        IsReadOnly = True
    Else
        IsReadOnly = False
    End If
End Function

Sub 删除双删除线的内容() Sub 删除双删除线的内容()
    If IsReadOnly = True Then
        MsgBox "此文档是只读的，请修改其只读属性"
        Exit Sub
    End If
    
    Dim r As Range
    Dim count As Integer  '总共删除的字符数