怎么批量清除word表格里的内容

发布网友

我来回答

共3个回答

热心网友

展开3全部

批量清除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("012345670,", 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

本代码仅是删除指定的行，如果要删除特别的，需要根据要求修改删除表格内容的关键代码部分即可。本代码可以作为模板使用。

热心网友

选中 表格，del就删掉里面的内容了。