word中表格格式如何進行格式刷（word表格格式怎麼調整）

2023-10-13 05:08:32

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

* * * * * * * * * * * *

在編輯Word長文件時，一篇文件中經常含有許多表格，如果要修改所有表格的樣式，或者讓我們刪除文件中所有表格，你會怎麼辦呢？

逐一設定樣式？或逐一刪除表格？這些方法顯然都不可取。

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

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

為美化文件，我們通常會將文件中的所有表格格式樣式統一，如何快速快速搞定，這裡小編教大家一招批量設定表格樣式的技巧。

第一步：直接按Alt F11鍵，開啟VBA程式碼視窗。

第二步：在開啟的VBA視窗中，右擊Thisdocument，在彈出的選單中選擇“插入”-“模組”選項。

第三步：此時，會開啟模組1（程式碼）視窗，將以下程式碼複製貼上至模組中：

Sub 批量修改表格()

Dim tempTable As Table

Application.ScreenUpdating = False

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

MsgBox "文件已保護，此時不能選中多個表格！"

Exit Sub

End If

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

第四步：點選三角形的執行按鈕執行程式碼，最小化程式碼視窗。此時文件中的所有表格已經被全部選中（注意，此時滑鼠不要進行其他操作）。然後，我們只需在【表設計】-【表格樣式】下拉選單中選擇需要的樣式即可。

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

技巧提示：如果你按下Alt F11鍵打不開VBA 視窗，則可點選【檔案】-【選項】，在開啟的"Word選項”對話方塊中的“自定義功能區”中勾選“開發工具”覈取方塊。返回Word介面，展開“開發工具”選單，在最左側即可看到“visual Basic"編輯器按鈕。

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

有時候，文件中可能並不需要配表格，那麼，我們就要將所有表格刪除。如何快速刪除文件中所有表格呢？同樣或藉助VBA程式碼來實現。

第一步：按Alt F11鍵，開啟VBA視窗程式碼。

第二步：在開啟的VBA視窗中，右擊Thisdocument，在彈出的選單中選擇“插入”-“模組”選項。

第三步：在VBA視窗中輸入或複製以下程式碼：

Sub Removetables()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Delete

Next oTable

End Sub

第四步：執行程式碼，最小化程式碼視窗。返回Word介面，即可看到文件中的表格都已一次性全部刪除了。

需要注意的是：當儲存帶有VBA的文件時，會彈出一個提示對話方塊，此時，一定選擇“否”。然後，將其一定要儲存為“啟用巨集的文件”*.docm“，否則巨集會丟失。

* * * *部落窩教育-wordVBA應用技巧* * * *

原創：部落窩教育（未經同意，請勿轉載）

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

微信公眾號：worditblw