如何运用vba删除Word中的表格

Sub del()
On Error Resume Next
Application.DisplayAlerts = False
For j = ActiveDocument.Tables.Count To 1 Step -1
If Len(ActiveDocument.Tables(j).Cell(2, 1).Range.Text) = 2 Then
Documents(1).Tables(j).Range.Select
ActiveDocument.Tables(j).Delete
Selection.Font.Color = wdColorAutomatic
Selection.Font.Size = 11
Selection.TypeText Text:=vbTab
Selection.TypeText “暂时没有详细数据。”
Selection.TypeParagraph
End If
Next
Application.DisplayAlerts = True
End Sub
如果想删除表格，直接把Selection.TypeText "暂时没有详细数据。"改成Selection.Delete
————————————————
版权声明：本文为CSDN博主「一条咸鱼_y°」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/qq_42756183/java/article/details/105223578