Office 365（Office 16）Autofit宏代码更新：Excel转Word表格Resize失效

嘿，我知道你在Office 365（Office 16）里折腾从Excel转Word的表格尺寸调整时，旧宏代码掉链子的烦躁——这不，给你整理了适配Office 16的更新版Autofit宏代码，还针对Excel导入表格的常见问题做了优化：

更新后的宏代码 #

Sub AutoFitWordTables()
    Dim tbl As Table
    Dim doc As Document
    
    Set doc = ActiveDocument
    
    ' 遍历文档中所有表格
    For Each tbl In doc.Tables
        ' 先开启自动调整权限（Excel导入的表格常默认关闭此功能）
        tbl.AllowAutoFit = True
        
        ' 自动调整表格以适应内容长度
        tbl.AutoFitBehavior wdAutoFitContent
        
        ' 若需要表格宽度匹配Word窗口，替换上面的行为：
        ' tbl.AutoFitBehavior wdAutoFitWindow
        
        ' 可选：修复Excel导入后可能出现的边框异常
        tbl.Borders.Enable = True
    Next tbl
    
    MsgBox "所有表格已完成自动调整！", vbInformation
End Sub

代码关键说明 #

• tbl.AllowAutoFit = True：这是解决Excel导入表格无法自动调整的核心——从Excel转过来的表格通常会被强制设置为固定宽度，必须开启这个属性，Autofit功能才能生效。
• wdAutoFitContent：让表格列宽自动适配单元格内的内容长度，适合内容长短不一的表格。
• wdAutoFitWindow：让整个表格宽度匹配当前Word窗口的页面宽度，适合需要占满页面的表格场景。
• 边框修复：可选的tbl.Borders.Enable = True是为了处理Excel导入后表格边框缺失或样式混乱的问题，不需要可以直接删掉这行。

使用步骤 #

• 打开Word的「开发者选项」（如果没显示，右键功能区→自定义功能区→勾选「开发者选项」）
• 点击「Visual Basic」，在弹出的编辑器里右键当前文档→插入→模块
• 将上面的代码粘贴到模块中，回到Word界面运行宏即可

内容的提问来源于stack exchange，提问作者Danielle