如何用vba批量删除word文档中的表格？

要用vba批量删除word文档中的表格，可以使用如下的代码：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    With oDoc
        For Each oT In .Tables
            oT.Delete
        Next
    End With
End Sub