在本文中，我們想向您展示 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