Sub www()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("D:\test1012.doc") '指定文件路径
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
Next
MsgBox "完成!"
End Sub
宏 word 批量根据表格内容调整宽度
最新推荐文章于 2024-09-26 09:25:07 发布