外部应用复制 表格 到word中 设置表格自适应
word 批量设置表格宽度自适应
描述 ：
我们经常从 外部 如 excel，html 等其他文件 中复制的表格到word 文档 经常会出现在 word 中显示不全的问题
主要是源格式的表格 宽度比 word 文档页面要大，就会导致 表格无法正常显示所有数据
解决方案
使用 word 宏工具 批量设置 word 文档中的 表格宽度自适应，即可解决问题！
打开宏编辑器
在当前word文档中 按 alt + F11 快捷键 打开 word 宏编辑器 是 vb 语言。
然后 步骤如下图 所示
直接上代码
附 图中代码如下：（尽情的复制吧）
Private Sub Document_Open()
Application.Browser.Target = wdBrowseTable
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
Next i
End Sub
附代码如下
注意一定不要忘记 点击 保存按钮
方法缘于 博客园大神 传送门：https://www.cnblogs.com/jiangxin/p/5579885.html
Word 的 宏工具真的有用呀，office 学无止境