Sub www()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("C:\Users\ilove\Desktop\投标文件整合技术版18.docx")
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow)
Next
MsgBox "完成！"
End Sub
下次直接运行这个宏就可以直接调整格式了
Sub www()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("C:\Users\ilove\Desktop\投标文件整合技术版18.docx")
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow)
Next
MsgBox "完成！"
End Sub
下次直接运行这个宏就可以直接调整格式了
Sub www() Dim oDoc As Document Dim oTable As Table ...
1.说明 通过使用Word的宏功能，批量设置表格，根据窗口自动调整表格，使所有表格的宽度和窗口一样，而不用一个一个...
WORD中如何高效管理表格？批量调整格式？批量导出批量删除？ 本视频为您提供6方面的表格管理技能。
Word表格如何单独调整宽度？想调整Word表格里单个表格的宽度，发现整行的列宽都跟着变了？小Q来教您如何单独调整...
对Word中的图片或者表格批量添加标题，也称为题注 Word精灵
在Word的表格中批量生成编号，支持多种编号样式
如果Word中有表格，也可以批量取值，导出到Excel中。
用惯了Excel的自动填充，遇到Word表格就万分嫌弃。 不要怪Word表格太难用，而是你懂Word表格的填充妙用...
完成上位机自动导入Excel表格，批量读取寄存器偏移地址，根据设置的读写状态进行自动化测试的程序，进行测试。
本文标题：word里的表格批量根据窗口自动调整
本文链接：https://www.haomeiwen.com/subject/luwscqtx.html
网友评论