Word VBA批量调整表格宏遗漏固定表格问题求助

你的宏仅遍历了主文档正文的表格，遗漏的表格大概率处于页眉/页脚、文本框、浮动形状这类默认Tables集合未覆盖的容器中，或是表格被设置为浮动环绕模式。以下是针对性的解决方案：

一、覆盖全场景的改进代码 #

这个版本会处理主文档、页眉页脚、文本框/形状中的所有表格：

Sub AdjustAllTablesAutofit()
    Dim tbl As Table
    Dim section As section
    Dim headerFooter As HeaderFooter
    Dim shp As Shape
    
    ' 处理主文档正文表格
    For Each tbl In ActiveDocument.Tables
        AdjustTableAutofit tbl
    Next tbl
    
    ' 遍历所有节的页眉、页脚表格
    For Each section In ActiveDocument.Sections
        ' 处理页眉
        For Each headerFooter In section.Headers
            If headerFooter.Exists Then
                For Each tbl In headerFooter.Range.Tables
                    AdjustTableAutofit tbl
                Next tbl
            End If
        Next headerFooter
        
        ' 处理页脚
        For Each headerFooter In section.Footers
            If headerFooter.Exists Then
                For Each tbl In headerFooter.Range.Tables
                    AdjustTableAutofit tbl
                Next tbl
            End If
        Next headerFooter
    Next section
    
    ' 处理文本框、形状中的表格（浮动表格通常在此）
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.HasText Then
            For Each tbl In shp.TextFrame.TextRange.Tables
                AdjustTableAutofit tbl
            Next tbl
        End If
    Next shp
    
    MsgBox "所有表格已完成调整！", vbInformation
End Sub

' 封装自动调整逻辑，减少重复代码
Sub AdjustTableAutofit(tbl As Table)
    tbl.AutoFitBehavior wdAutoFitContent
    tbl.AutoFitBehavior wdAutoFitWindow
End Sub

二、其他可能的遗漏原因及处理 #

1. 文档/表格被保护
   如果文档开启了保护，宏无法修改表格，可在代码开头添加解除保护的逻辑（调整后可按需重新保护）：

' 解除文档保护（无密码则留空，有密码替换为实际密码）
If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect Password:=""
End If

' （执行完表格调整后，若需要重新保护）
' ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""

2. 嵌套表格
   上述代码会自动遍历所有嵌套层级的表格，无需额外修改，Range.Tables集合会包含当前范围内的所有表格，无论嵌套深度。

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