編按：相信許多小伙伴都有過一次性需要編輯幾十個(gè)甚至上百個(gè)表格的經(jīng)歷，當(dāng)時(shí)可能就是一個(gè)個(gè)地調(diào)整，勞心勞力還勞神…今天小編就教大家2個(gè)Word VBA小技巧，幾秒鐘就能幫助大家搞定上百個(gè)表格，趕緊和小編一起來看看吧~

* * *?* * *?* * *?* * *

在編輯Word長文檔時(shí)，一篇文檔中經(jīng)常含有許多表格，如果要修改所有表格的樣式，或者讓我們刪除文檔中所有表格，你會怎么辦呢？

逐一設(shè)置樣式？或逐一刪除表格？這些方法顯然都不可取。

有什么好的方法能夠一次性編輯文檔中所有的表格呢？今天，小編為大家分享2個(gè)?VBA?技巧，就可以幫助我們一次性批量搞定表格，快且專業(yè)~

01、一次修改文檔中所有表格樣式

為美化文檔，我們通常會將文檔中的所有表格格式樣式統(tǒng)一，如何快速快速搞定，這里小編教大家一招批量設(shè)置表格樣式的技巧。

第一步：直接按Alt + F11鍵，打開VBA代碼窗口。

第二步：在打開的VBA窗口中，右擊Thisdocument，在彈出的菜單中選擇“插入”-“模塊”選項(xiàng)。

第三步：此時(shí)，會打開模塊1（代碼）窗口，將以下代碼復(fù)制粘貼至模塊中：

Sub?批量修改表格()

?

? ? Dim tempTable As Table

? ? Application.ScreenUpdating = False

? ? If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

? ? ? ? MsgBox "文檔已保護(hù)，此時(shí)不能選中多個(gè)表格！"

? ? ? ? Exit Sub

? ? End If

? ? ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

? ? For Each tempTable In ActiveDocument.Tables

? ? ? ? tempTable.Range.Editors.Add wdEditorEveryone

? ? Next

? ? ActiveDocument.SelectAllEditableRanges wdEditorEveryone

? ? ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

? ? Application.ScreenUpdating = True

? ??

End Sub?

第四步：點(diǎn)擊三角形的運(yùn)行按鈕運(yùn)行代碼，最小化代碼窗口。此時(shí)文檔中的所有表格已經(jīng)被全部選中（注意，此時(shí)鼠標(biāo)不要進(jìn)行其他操作）。然后，我們只需在【表設(shè)計(jì)】-【表格樣式】下拉列表中選擇需要的樣式即可。

此時(shí)，即可看到文檔中所有的表格樣式都變成了剛選擇的樣式效果啦！

技巧提示：如果你按下Alt+F11鍵打不開VBA?窗口，則可點(diǎn)擊【文件】-【選項(xiàng)】，在打開的"Word選項(xiàng)”對話框中的“自定義功能區(qū)”中勾選“開發(fā)工具”復(fù)選框。返回Word界面，展開“開發(fā)工具”菜單，在最左側(cè)即可看到“visual Basic"編輯器按鈕。

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

有時(shí)候，文檔中可能并不需要配表格，那么，我們就要將所有表格刪除。如何快速刪除文檔中所有表格呢？同樣或借助VBA代碼來實(shí)現(xiàn)。

第一步：按Alt+F11鍵，打開VBA窗口代碼。

第二步：在打開的VBA窗口中，右擊Thisdocument，在彈出的菜單中選擇“插入”-“模塊”選項(xiàng)。

第三步：在VBA窗口中輸入或復(fù)制以下代碼：

Sub Removetables()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

? ? ? oTable.Delete

Next oTable

End Sub

第四步：運(yùn)行代碼，最小化代碼窗口。返回Word界面，即可看到文檔中的表格都已一次性全部刪除了。

需要注意的是：當(dāng)保存帶有VBA的文檔時(shí)，會彈出一個(gè)提示對話框，此時(shí)，一定選擇“否”。然后，將其一定要保存為“啟用宏的文檔”*.docm“，否則宏會丟失。

* * * *部落窩教育-wordVBA應(yīng)用技巧* * * *

原創(chuàng)：部落窩教育（未經(jīng)同意，請勿轉(zhuǎn)載）

更多教程：部落窩教育（www.itblw.com）

微信公眾號：worditblw