自動使文本框（形狀）適合 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 如果您不想提供幫助，請滾動瀏覽。