外部应用复制 表格 到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 学无止境

来源：oschina

链接：https://my.oschina.net/u/4415646/blog/4300337