適用於在有很多表格的時候,想一次性修改所有表格的樣式。
比如說,我這裏有3張表格:
怎麼做呢
1.先把開發工具菜單調出來,開發工具菜單默認情況下不在WORD中菜單欄顯示,需要自己調。
文件 > 選項 > 自定義功能區 > 勾選開發工具
就有了
2.利用 宏 選擇所有表格
點擊 開發工具 > Visual Basic 選擇 "插入" > “模塊”
將下列代碼複製進去(該宏的主要作用是,可以讓你一次選中文檔中所有的表格)
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
3.關掉窗口,選擇開發工具中的 宏 ,運行剛纔插入的 宏 ,即可選擇所有表格
選中了所有表格
4.修改樣式,所有表格都會改
例如:修改磅值、字體等:
修改居中、行距等:
修改樣式等:
這樣的話,基本能滿足批量修改表格的需求了,只有一些只修改表格部分屬性而不是整體屬性的需求做不到(例如只修改標題行)。在工作量較大的情況下使用這種方法能節省非常多的時間,還更加準確,不會遺漏。