在本文中，我们想向您展示 2 种快速且易于使用的方法，用于从 Word 文档的文本框中提取文本。
时不时地，我们会得到一个包含大量文本框的Word文件。 通常，这些框内会有文本或相关内容。 然后可能需要只获取里面的文本而不是保留整个文本框。
当然，只需将文本复制出来并将其粘贴到其他地方，即可快速检索单个文本框中的单词。 但是，当涉及到数百个时，我们最好学习一些快速技巧来完成工作。
方法一：使用“选择面板”
- 首先，点击“首页”选项卡。
- 然后单击“编辑”组中的“选择”图标。
- 接下来，在下拉菜单中，选择“选择窗格”。
- 现在在屏幕的右侧，您可以看到窗格中所有可见的文本框。
- 按下“Ctrl”并在窗格中逐个单击这些文本框名称以将它们全部选中。
- 并将光标放在其中一条框线上，然后单击鼠标右键。
- 在列表选项上，单击“复制”。 现在，如果您不再需要这些框，只需按“删除”。
- 接下来，点击“开始”按钮查看Windows菜单。
- 选择“写字板”并打开它。
- 然后单击“粘贴”以从文本框中获取所有文本。
- 接下来，选择所有文本并右键单击以选择“复制”。
- 现在打开一个新的Word文档，右键单击选择“仅保留文本”以获取文本。
方法 2：使用 VBA 代码
如您所见，即使使用第一种方法，您也无法避免选择所有文本框。 如果你们中的一些人只是讨厌这样的劳动，我们在这里为您提供运行宏的方法。 使用方法2，您可以一次提取所有文本并删除文本框。
- 首先，按“Alt+F11”打开VBA编辑器。
- 其次，单击“正常”，然后单击“插入”。
- 接下来选择“模块”插入一个新的。
- 然后双击模块名称打开编辑区。
- 粘贴以下代码并单击“运行”：
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
以下是您可能会得到的：
处理损坏的 Word 文件
Word 容易出错，因此经常成为损坏的受害者。 因此，您必须妥善管理您的文件，以保护它们免受损坏。 一旦它们被破坏，您将面临永久失去它们的风险。 然后你将不得不使用 损坏的Word数据恢复工具.
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel文件错误恢复工具 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com