批量清除Word表格里的内容方法如下:
1、用鼠标选中想要删除的表格部分,如下图所示:
2、然后按键盘上的delete键即可
如果是批量删除,只能用宏代码来实现了,思路是将如下代码原样拷贝到你的新建的宏过程中,按f5运行即可。 有关文件批量处理的功能需要,可参见 实用工具《文件批量处理百宝箱》 dim tablesc as long '定义文档中表格的数量
dim dels as long, delin as string
tablesc = activedocument.tables.count
delin = inputbox("请输入需要删除的表格的行号,用半角都好分隔", "消息", "2,4")
delin = replace(delin, " ", "")
do until r = len(delin)
delin = replace(delin, ",,", ",")
r = len(delin)
loop
For i = 1 to len(delin)
if instr("01234567890,", mID(delin, i, 1)) = 0 then
msgbox "待删除行号输出不符合规范,请重新输入,样式如:2,4,6", vbCRitical + vbokonly, "消息"
exit SUb
end if
next
if left(delin, 1) = "," then delin = mID(delin, 2)
if right(delin, 1) = "," then delin = left(delin, len(delin) - 1)
if delin = "" then exit SUb
dels = len(delin) - len(replace(delin, ",", "")) + 1
delin = delin & ","
For i = 1 to tablesc
j = activedocument.tables(i).rows.count
k = j
do until dels = 0 or k = 0 '删除表格内容的关键代码部分
if instr(delin, k & ",") then
activedocument.tables(i).rows(k).delete
dels = dels - 1
end if
k = k - 1
loop
next
msgbox "处理完毕!", vbinFormation + vbokonly, "消息"
shell "explorer.exe
, vbMaximizedfocus
本代码仅是删除指定的行,如果要删除特别的,需要根据要求修改删除表格内容的关键代码部分即可。本代码可以作为模板使用。