如何批量删除Word文档中的表格和文本框，多谢！

swimgoldiron

我有一些Word文档，每个文档有大量的表格和文本框，我想把表格和文本框全部删除，只留正文部分。不知道如何写vba代码，请大侠们帮忙，万分感谢！

thunor

Sub DeleteShapeAndTables()
    T = ActiveDocument.Tables.Count
    For i = 1 To T
        ActiveDocument.Tables(1).Delete
    Next
    T = ActiveDocument.InlineShapes.Count
    For i = 1 To T
        ActiveDocument.InlineShapes(1).Delete
    Next
    T = ActiveDocument.Shapes.Count
    For i = 1 To T
        ActiveDocument.Shapes(1).Delete
    Next
End Sub
此代码不知道能不能满足你的要求。试试。

pipiludaxian

Sub deletshap()
Dim sp As Shape
Dim atb As Table
For Each sp In ActiveDocument.Shapes
    If sp.Type = msoTextBox Then
       sp.Delete
    End If
Next
For Each atb In ActiveDocument.Tables
    atb.Delete
Next
End Sub

swimgoldiron

多谢thunor 和pipiludaxian！！今天才有时间试一下代码，thunor的代码好像有问题，pipiludaxian可以删除一些图表，文本框好像删不掉。不过仍然十分感谢！新年快乐！

macro_23

pipiludaxian 发表于 2015-2-18 10:02
Sub deletshap()
Dim sp As Shape
Dim atb As Table

可用，谢谢