自动使文本框（形状）适合 Word 文档中的文本

Question

为了给出我的问题的上下文，我必须使用带有文本框的文档，这些文本框几乎一直隐藏整个句子，所以我必须手动调整文本框的大小，以便文本可见。 问题是在某些文档上有超过 700 个文本框。 后来我发现我可以这样做（调整形状以适应 EN 中的文本）：

所以我想知道是否有办法选择所有文本框并自动调整它们的大小，并使用 VBA 选择此选项。 谢谢 ！

编辑

所以我试图开始我的代码这样做：

Dim eShape As Word.shape
Dim i As Long
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set eShape = ActiveDocument.Shapes(i)

然后我通过检查在这种情况下 TextBox 的对象类型来启动条件

If eShape.Type = msoTextBox Then

但其余的我没有找到调整元素大小的方法。

Answer 1

致敬萨塔纳斯，

从几个站点周围发现的各种代码中组合而成：

Sub AllTextBoxesAutoSize()
Dim MyShape As Shape
For Each MyShape In ActiveDocument.Shapes
    If MyShape.Type = msoTextBox Then
        MyShape.TextFrame.AutoSize = True
    End If
Next
MsgBox ("All text boxes autosized!")
End Sub

我添加了 MsgBox 因为否则它不会发生任何事情:-)

勇气可嘉！

史蒂夫

@TimothyRylatt 如果您不想提供帮助，请滚动浏览。