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
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
1.说明 通过使用Word的宏功能，批量设置表格，根据窗口自动调整表格，使所有表格的宽度和窗口一样，而不用一个一个...
Word表格如何单独调整宽度？想调整Word表格里单个表格的宽度，发现整行的列宽都跟着变了？小Q来教您如何单独调整...
WORD中如何高效管理表格？批量调整格式？批量导出批量删除？ 本视频为您提供6方面的表格管理技能。
Sub www() Dim oDoc As Document Dim oTable As Table ...
之前介绍过用vba批量提取word中表格的内容，今天来介绍一个提取word文字的实例，如下图： 这里有n个word...
对Word中的图片或者表格批量添加标题，也称为题注 Word精灵
如果Word中有表格，也可以批量取值，导出到Excel中。
在Word的表格中批量生成编号，支持多种编号样式
本文标题：word 批量根据表格内容调整宽度 宏
本文链接：https://www.haomeiwen.com/subject/zvaupktx.html
网友评论