【办公技巧】批量删除源代码安全审计报告中具有相同内容的单行表格

利刃信安 · 公众号 · · 2024-03-12 00:35

正文

批量删除源代码安全审计报告中具有相同内容的单行表格

我们经常会遇到一些办公问题，比如需要针对源代码安全审计报告进行批量处理，批量删除源代码安全审计报告中具有相同内容的单行表格。

原始报告：

需要批量删除带有“审计日志：”的整行

可以直接通过 word 或者 wps的VB 宏进行操作

Sub DeleteRowsContainingText()    Dim doc As Document    Dim table As table    Dim row As row    Dim i As Integer    Dim textToFind As String
    textToFind = "审计日志：" ' 替换为你要查找的具体内容
    Set doc = ActiveDocument    For Each table In doc.Tables
        For i = table.Rows.Count To 1 Step -1
            ' 判断是否有纵向合并的单元格            On Error Resume Next              Dim test As Integer            test = table.Rows(i).Cells.Count             If Err.Number <> 0 Then                Err.Clear            Else                If InStr(table.Rows(i).Range.Text, textToFind) > 0 Then                    table.Rows(i).Delete                End If            End If            On Error GoTo 0         Next i
    Next tableEnd Sub

WPS

执行后会卡顿几秒到几分钟时间，静静等待即可！

Office Word

执行后会卡顿几秒到几分钟时间，静静等待即可！

办公软件必须支持 VB 支持宏

推荐使用：

微软 Office 2021 批量许可版24年02月更新版

# 什么叫微软Office批量许可版？
Volume（批量版也称商业版或大客户批量授权版，缩写VL或VOL）
﹂适用企业客户批量许可部署的版本，无需转换可以通过使用KMS激活授权
﹂安装可以自定义组件和安装位置，无需第三方部署工具[2010/2013/2016]
Retail（零售版也称消费者版，32和64位共用安装包，要转换才能KMS激活）

下载地址

Microsoft Office LTSC 专业增强版2021 简体中文批量许可版原版集成2024年2月更新完整ISO镜像
::Microsoft Office LTSC 2021 Pro Plus / Visio + Project 2108 Build 14332.20637 x64 Feb 2024

https://pan.quark.cn/s/9cb600ce0906

https://www.123pan.com/s/A6cA-XsHJh

https://pan.baidu.com/s/1N2jHgNV55iTeE-Dq9M12pA?pwd=2023