如何批量删除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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yyrjyreyy.html