Word批量设置表格自动调整

时间:2024-02-21 19:30:49

1.说明

通过使用Word的宏功能,
批量设置表格,
根据窗口自动调整表格,
使所有表格的宽度和窗口一样,
而不用一个一个手动调整表格。

是一个批量处理程序命令,
正确地运用它可以提高工作效率。
微软的office软件允许用户编写,
叫VBA的脚本来增加其灵活性,
进一步扩充它的能力。
如完打开Word同时要使用某个功能,
可以编写一段称之为宏的脚本。

2.查看宏

依次点击:
视图 -> 宏 -> 查看宏(V)
或者使用快捷键查看宏:
Alt + F8


3.新建宏

在查看宏的界面,
为了新建一个宏,
需要先输入宏名(M)
AutoFitTableForWindow
然后点击创建(C):


打开VBA脚本编辑界面:

4.开发宏

初始的VBA脚本不实现任何功能:

Sub AutoFitTableForWindow()
\'
\' AutoFitTableForWindow 宏
\'
\'

End Sub

需要开发代码,
实现打开指定Word文档,
然后遍历文档中的所有表格,
设置根据窗口自动调整表格,
完整脚本内容如下:

Sub AutoFitTableForWindow()
\'
\' AutoFitTableForWindow 宏
\'
\'
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文档.docx")
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior(wdAutoFitWindow)
Next
MsgBox "完成!"

End Sub

5.运行宏

宏开发完成后,
再次进入查看宏界面,
选择需要运行的宏,
点击运行(R)即可:

6.修改宏

只要修改宏里面打开的文档名称,
即可在不同的文档中,
实现自动调整表格宽度的功能。
这个宏只和指定的文档关联,
运行宏的时候和当前打开的文档没有关系。

Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文档.docx")

如果脚本有错误,比如指定的Word文档不存,
运行时会弹出错误提示:


点击 调试(D)即可打开VBA脚本编辑器,
定位和修改脚本问题。

7.参考文档

批量设置word表格根据窗口自动调整
word宏