文本批量设置表格自动调整.pdfVIP

Word批批量量设设置置表表格格⾃⾃动动调调整整

1.说说明明

通过使⽤Word的宏功能，

批量设置表格，

根据窗⼝⾃动调整表格，

使所有表格的宽度和窗⼝⼀，

⽽不⽤⼀个⼀个⼿动调整表格。

宏是⼀个批量处理程序命令，

正确地运⽤它可以提⾼⼯作效率。

微软的office软件允许⽤户编写，

叫VBA的脚本来增加其灵活性，

进⼀步扩充它的能⼒。

如完打开Word同时要使⽤某个功能，

可以编写⼀段称之为宏的脚本。

2.查查看看宏宏

依次点击：

视图-宏-查看宏(V)

或者使⽤快捷键查看宏：

Alt+F8

3.新新建建宏宏

在查看宏的界⾯，

为了新建⼀个宏，

需要先输⼊宏名(M)：

AutoFitTableForWindow

然后点击创建(C):

打开VBA脚本编辑界⾯：

4.开开发发宏宏

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

SubAutoFitTableForWindow()

AutoFitTableForWindow宏

EndSub

需要开发代码，

实现打开指定Word⽂档，

然后遍历⽂档中的所有表格，

设置根据窗⼝⾃动调整表格，

完整脚本内容如下：

SubAutoFitTableForWindow()

AutoFitTableForWindow宏

DimoDocAsDocument

DimoTableAsTable

SetoDoc=Documents.Open(C:\Users\yuwen\我的Word⽂档.docx)

ForEachoTableInoDoc.Tables

oTable.AutoFitBehavior(wdAutoFitWindow)

Next

MsgBox完成！

EndSub

5.运运⾏⾏宏宏

宏开发完成后，

再次进⼊查看宏界⾯，

选择需要运⾏的宏，

点击运⾏(R)即可：

6.修修改改宏宏

只要修改宏⾥⾯打开的⽂档名称，

即可在不同的⽂档中，

实现⾃动调整表格宽度的功能。

这个宏只和指定的⽂档关联，

运⾏宏的时候和当前打开的⽂档没有关系。

SetoDoc=Documents.Open(C:\Users\yuwen\我的Word⽂档.docx)

如果脚本有错误，⽐如指定的Word⽂档不存，

运⾏时会弹出错误提⽰：

点击调试(D)即可打开VBA脚本编辑器,

定位和修改脚本问题。

7.参参考考⽂⽂档档