Angela的文档中包含大约400个文本框，每个文本框都包含文本。她想知道是否有删除文本框但将文本保留在文档中的方法。

只需在文本框中选择文本（请确保不选择文本框本身），然后按Ctrl + C复制文本，单击要移至的位置，按Ctrl + V，然后删除即可手动完成此操作文本框。但是，当您处理与Angela一样多的文本框时，这将很快变得乏味。

在这种情况下，最好依靠宏来进行更改。宏可以相当快地遍历所有文本框，完成必要的工作。以下是此类宏的示例：

Sub ConvertTextboxText()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sTemp As String     Dim J As Long

For J = ActiveDocument.Shapes.Count To 1 Step -1         Set shp = ActiveDocument.Shapes(J)

If shp.Type = msoTextBox Then             sTemp = shp.TextFrame.TextRange.Text             If Len(sTemp) > 1 Then                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 sTemp = Left(sTemp, Len(sTemp) - 1)

oRngAnchor.InsertBefore "[[ " & sTemp & " ]]"

End If             shp.Delete         End If     Next J End Sub

该宏仅适用于文本框，而忽略了可能包含文本的任何其他形状。它从最后一个文本框开始，一直到文档开头。完成后，所有以前位于文本框内的文本将插入到先前已锚定已删除文本框的段落的开头。

另外，该文本由包围，因此您可以轻松分辨出该文本的位置。由于有时文本框的锚定位置可能与它们在文档中出现的位置相距甚远，因此，您肯定会希望搜索这些用括号括起来的文本并将其移动到最终要定位的位置。

如果您正在寻找其他方法来完成同一任务，则可能对此网页感兴趣：

https://www.datanumen.com/blogs/2-quick-methods-extract-texts-text-boxes-word-document/

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（7739）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。