一、一次刪除文檔中的所有表格

WORD長文檔中，經常含有很多表格。有時候，我們需要把這些表格刪除。當然，我們可以一個一個的選中再刪除，但，如果你的文檔中的表格很多，或是表格位置不固定，這種逐一刪除的方法顯然不可取。

韓老師給一段代碼，能一次刪除文檔中所有表格。

實現方法：

韓老師隨便建一個有很多表格的文檔：

表格的格式不一、內容不一。

現在我們來一次刪除這些表格。

第一步：按[Alt]+F11，打開VBA窗口代碼；

第二步：在VBA窗口中輸入以下代碼：

Sub Removetables()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Delete

Next oTable

End Sub

如下圖：

第三步：運行代碼，所有的表格，不管格式如何、有無內容，都可一次刪除，如下：

注意事項：

1：帶有VBA的文檔保存：

保存時，會彈出如下提示：

此時，一定選擇“否”，然后，選擇保存位置與保存類型。

帶有VBA的文檔一定要保存為“啟用宏的文檔”*.docm“，否則宏會丟失。如上圖：

2.如果你的電腦中按”[Alt]+F11“打不開VBA 窗口，則可以在”文件“菜單中選擇”選項“，在"Word選項”窗口中的“自定義功能區”中勾選“開發工具”，如下圖：

在“開發工具”菜單中，最左側即是“visual Basic"，如下圖：

二、一次刪除文檔中的所有圖形

實刪除圖片容易多了，用不到VBA，只用查找與替換功能就好了。

實現方法

韓老師以下面一頁文檔為例：

首先：在“開始”菜單“編輯”功能區中選擇“替換”：

然后：鼠標定位在“查找和替換”對話框中的“查找內容”，打開“更多”：

再次：在“特殊格式”中選擇“圖形”：

注意：”替換為“后的格中什么都不填寫：。

最后，點擊”全部替換“：

文檔中所有圖片一次刪除完畢，如下圖：