前言|工作案例
今天小编遇到了价值很高的Word文档批处理问题,如果大家在日常工作中真的遇到,肯定能大大提高生产力。(大卫亚设)。
如下图所示。
如果一个Word文档包含第n页(本例中为第2页示例),并且每页包含相同的信息调查表表单模板。在每个“信息调查表”中发现“电话”项目有重复行。
现在,您要批量删除每页的“信息调查表”中重复的“电话”行。也就是说,您只需删除每页上“信息调查表”的第5行,只保留第3行唯一的“电话”行信息。渲染如下图所示。
方案|程序演示
您可以在Word中执行一段VBA程式码,立即取得大量删除指定行的效果。
打开Word文档,然后按快捷键Alt F11调用“编辑VBA输入”窗口。复制并粘贴以下VBA代码,然后单击上面的“运行-子过程/用户表单”按钮,最后关闭“VBA界面”窗口并返回到Word文档的主界面。在每个页面文档中,如下图所示。
代码如下:
删除Sub行()
Dim myTab As Table
For Each myTab In Ac
Mytab.rows (5)。删除
next
End Sub
代码解释
代码:
Mytab.rows (5)。删除
要根据具体情况设定。在这种情况下,每页表中的第5行将被批量删除,因此数字输入值为5。
要删除第3行,可以将5改为3。