VBA 高亮显示删除线内容-Stewed Noodles 资源

温馨提示：本文最后更新于2024-10-23 17:38:31，某些文章具有时效性，若有错误或已失效，请在下方留言。

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

开发者工具 – 宏

在弹出的窗口中输入宏名 : 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，点击 确定 按钮即可

选择宏函数

执行成功

执行效果

版权声明 1 本站名称： Stewed Noodles 资源
2 本站网址：blog.stewednoodles.com
3 本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长进行删除处理。
4 本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5 本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报。
6 本站附件资源、教程等内容如因时效原因失效或不可用，请评论区留言或联系站长及时更新。

THE END

VBA 高亮显示删除线内容

请登录后发表评论