你好，今天在Word文檔中，我將告訴你如何大量設(shè)置各種表的寬度和高度。以下文檔包含四個表。表的大小不匹配。我將所有表格的總寬度設(shè)置為15厘米，表格中每一行的高度設(shè)置為2厘米。

(如果你的文件里有更多的票數(shù)，也可以使用下面的代碼。)。

程序：

1.在“文檔”窗口上方的“開發(fā)工具”選項卡“代碼功能”組中，單擊“Visual Basic”按鈕。

2.在彈出式VBA編輯器窗口中執(zhí)行“插入-模塊”命令。窗口中間將出現(xiàn)“編輯代碼”窗口。

3.在“編輯代碼”窗口中輸入以下代碼：

子批次選取所有表單()

Dim tempTable As Table

A=False

If Ac=wdAllowOnlyFormFields Then

“MsgBox”文檔受保護，現(xiàn)在無法選擇多個表單！”單擊“”

Exit Sub

End If

Ac wdEditorEveryone

For Each tempTable In Ac

WdEditorEveryone

next

Ac wdEditorEveryone

Ac wdEditorEveryone

A=真

End Sub

4.單擊窗口頂部工具欄中的“啟動子過程/用戶屏幕”按鈕(右方向的綠色三角形符號)，選擇所有文檔中的表。

5.在“.

6.婓粟堤腔“桶跡扽俶”勤趕遺笢遙善“桶跡”恁砐縐甜蔚“湮苤”扢離峈“硌隅遵僅”“15厘米”﹝。切換回“行”選項卡，將大小設(shè)置為2厘米(行高值是固定值)，然后單擊“確定”按鈕。

7.回到文件上，所有表格都統(tǒng)一成我們想要的大小，可以看到每張表格的總寬度為15厘米，每行的高度為2厘米。

我們的共享到此為止。謝謝你的閱讀。謝謝你的關(guān)心。一起學(xué)習(xí)更多的辦公技能！#office辦公室技術(shù)#