Word批量设置表格自动调整

您所在的位置：网站首页 › 根据表格内容自动调整表格大小 › Word批量设置表格自动调整

Word批量设置表格自动调整

2023-08-26 04:07| 来源: 网络整理| 查看: 265

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宏

【本文地址】

Word批量设置表格自动调整

Word批量设置表格自动调整

今日新闻

推荐新闻