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

如果是批量删除，只能用宏代码来实现了，思路是将如下代码原样拷贝到你的新建的宏过程中，按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

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