VBA 高亮显示删除线内容

打开 开发工具 ，选择 宏  ，弹出窗口

在弹出的窗口中输入 宏名 :  highlightStrikeThroughContent ，点击下方的 + 号按钮(Windows 系统中为 创建 按钮)，弹出代码编辑器界面

将下方的代码拷贝并覆盖到代码编辑器页面中，如下图所示

Sub highlightStrikeThroughContent()
    Dim rngTemp As Range

    Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
With rngTemp.Find
    .Font.StrikeThrough = True
    With .Replacement
        .Font.StrikeThrough = True
        .Highlight = True
    End With
    .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _
    ReplaceWith:="", Format:=True
End With

MsgBox "Handle Success!"
End Sub

点击左上角的保存按钮，然后关闭该窗口

在 开发工具 中再次点击 宏 ，在弹出的窗口中选择 highlightStrikeThroughContent ，然后点击 运行 按钮，提示 Handle Success，点击 确定 按钮即可