如何用VBA批量设置Word文本框自动调整大小适配内部文本

以下是补全后可直接运行的代码：

Sub 批量设置文本框自适应内容()
    Dim eShape As Word.Shape
    Dim i As Long
    
    ' 遍历所有浮动形状，倒序遍历避免索引偏移问题，和你原有逻辑一致
    For i = ActiveDocument.Shapes.Count To 1 Step -1
        Set eShape = ActiveDocument.Shapes(i)
        ' 筛选文本框对象
        If eShape.Type = msoTextBox Then
            ' 对应手动设置的「Resize shape to fit text」选项
            eShape.TextFrame.AutoSize = msoAutoSizeShapeToFitText
            ' 可选配置：如果需要固定宽度只调整高度，保留下面这句注释即可
            ' 如果需要文本框宽度也随文本自适应，取消下面这句注释
            ' eShape.TextFrame.WordWrap = msoFalse
        End If
    Next i
    
    ' 可选模块：如果文档中存在嵌入式文本框，取消下面代码的注释即可同步处理
    ' Dim eInlineShape As Word.InlineShape
    ' For Each eInlineShape In ActiveDocument.InlineShapes
    '     If eInlineShape.Type = wdInlineShapeTextBox Then
    '         eInlineShape.TextFrame.AutoSize = msoAutoSizeShapeToFitText
    '     End If
    ' Next eInlineShape
    
    MsgBox "批量调整完成", vbInformation
End Sub

• 你用到的eShape.Type = msoTextBox筛选逻辑完全正确，用于定位浮动类型的文本框
• 「Resize shape to fit text」对应的官方VBA属性就是TextFrame.AutoSize，赋值为msoAutoSizeShapeToFitText即可开启该功能
• 如果你只需要文本框自适应高度、固定原有宽度，不需要修改WordWrap属性，默认自动换行状态下只会垂直扩展高度适配内容

运行代码前请先备份原文档，避免批量操作效果不符合预期无法回退。如果需要调整文本和文本框边框的间距，可以同步修改eShape.TextFrame.MarginLeft/MarginRight/MarginTop/MarginBottom四个属性调整内边距。

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