word中的表格如何統一調整高度?大家好,今天跟大家分享如何在Word文檔中批量設置不同表格的寬度和高度下圖文檔中有4個表格,表格的尺寸不一緻,下面我們想将所有表格整體寬度設置為15厘米,表格每行行高設為2厘米,我來為大家科普一下關于word中的表格如何統一調整高度?以下内容希望對你有幫助!
大家好,今天跟大家分享如何在Word文檔中批量設置不同表格的寬度和高度。下圖文檔中有4個表格,表格的尺寸不一緻,下面我們想将所有表格整體寬度設置為15厘米,表格每行行高設為2厘米。
(如果大家的文檔中表格數量更多,下文中的代碼也是可以使用的。)
操作步驟:
1.在文檔窗口上方的“開發工具”選項卡“代碼”功能組中單擊“Visual Basic”按鈕。
2.在彈出的VBA編輯器窗口中執行“插入”-“模塊”命令,此時在窗口中央會彈出一個代碼編輯窗口。
3.在代碼編輯窗口中輸入如下代碼:
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
4.單擊窗口上方工具欄中的“運行子過程/用戶窗體”按鈕(方向向右的綠色三角符号),這樣所有文檔中的表格都會被選中。
5.在“表格工具”“布局”選項卡“表”功能組中單擊“屬性”按鈕。
6.在彈出的“表格屬性”對話框中,切換到“表格”選項卡,将“尺寸”設為“指定寬度”“15厘米”;再切換到“行”選項卡,将“尺寸”設為“指定高度”“2厘米”(行高值為固定值),單擊“确定”按鈕。
7.返回文檔,可見所有表格已經統一為了我們想要的尺寸,每個表格整體寬度15厘米,每行行高2厘米。
我們的分享就到這裡,感謝閱讀,歡迎關注,一起學習更多辦公技能!#office辦公技能#
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!