如何刪除Word2010文檔中的所有表格及其內容？4000多頁壹頁壹頁找出來刪，太麻煩了。

在彈出的VBA窗口中插入→模塊，在彈出的空白窗口中粘貼以下代碼。

選項顯式

Sub SelectAllTable()

Dim tempTable As Table

申請。ScreenUpdating = False

對於ActiveDocument中的每個tempTable。桌子

誘人的。range . editors . add wdeditorevery one

然後

ActiveDocument選擇alleditableranges wdeditorevery one

ActiveDocumentDeleteAllEditableRanges wdeditorevery one

申請。ScreenUpdating = True

末端接頭

然後關閉模塊窗口，關閉VBA窗口，返回WORD文本編輯界面，按ALT+F8，點擊運行。我選擇了妳說的所有表格。