'word表格技巧:如何對錶格進行樣式批處理'

Word 設計 BASIC語言 鼠標 部落窩教育h 2019-07-18
"


"


word表格技巧:如何對錶格進行樣式批處理


編按:相信許多小夥伴都有過一次性需要編輯幾十個甚至上百個表格的經歷,當時可能就是一個個地調整,勞心勞力還勞神…今天小編就教大家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

Next

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

第四步:點擊三角形的運行按鈕運行代碼,最小化代碼窗口。此時文檔中的所有表格已經被全部選中(注意,此時鼠標不要進行其他操作)。然後,我們只需在【表設計】-【表格樣式】下拉列表中選擇需要的樣式即可。


"


word表格技巧:如何對錶格進行樣式批處理


編按:相信許多小夥伴都有過一次性需要編輯幾十個甚至上百個表格的經歷,當時可能就是一個個地調整,勞心勞力還勞神…今天小編就教大家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

Next

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

第四步:點擊三角形的運行按鈕運行代碼,最小化代碼窗口。此時文檔中的所有表格已經被全部選中(注意,此時鼠標不要進行其他操作)。然後,我們只需在【表設計】-【表格樣式】下拉列表中選擇需要的樣式即可。


word表格技巧:如何對錶格進行樣式批處理


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

技巧提示:如果你按下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界面,即可看到文檔中的表格都已一次性全部刪除了。


"


word表格技巧:如何對錶格進行樣式批處理


編按:相信許多小夥伴都有過一次性需要編輯幾十個甚至上百個表格的經歷,當時可能就是一個個地調整,勞心勞力還勞神…今天小編就教大家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

Next

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

第四步:點擊三角形的運行按鈕運行代碼,最小化代碼窗口。此時文檔中的所有表格已經被全部選中(注意,此時鼠標不要進行其他操作)。然後,我們只需在【表設計】-【表格樣式】下拉列表中選擇需要的樣式即可。


word表格技巧:如何對錶格進行樣式批處理


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

技巧提示:如果你按下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界面,即可看到文檔中的表格都已一次性全部刪除了。


word表格技巧:如何對錶格進行樣式批處理


需要注意的是:當保存帶有VBA的文檔時,會彈出一個提示對話框,此時,一定選擇“否”。然後,將其一定要保存為“啟用宏的文檔”*.docm“,否則宏會丟失。

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

原創:部落窩教育(未經同意,請勿轉載)

更多教程:部落窩教育(www.itblw.com)

微信公眾號:worditblw

"

相關推薦

推薦中...