將文本從 Word 複製到 Excel 的 2 種方法，每個單詞位於單獨的單元格中

Word解決方案 2025 年 9 月 28 日
立即分享：

在這個post，我們很高興與您分享 2 種將文本從 Word 複製到 Excel 的方法，其中每個單詞都位於單獨的單元格中。

如果您是一名語言學家，您可能需要進行大量的詞頻統計。 那麼我們今天的主題將會有很大的幫助。 下面的 2 種方法將使您能夠將文檔中的文本粘貼到 Excel 工作表，並在列單元格中列出每個單詞。將文本從 Word 複製到 Excel，每個單詞位於單獨的單元格中

方法 1：使用“查找和替換”選項

  1. 首先，複製一份 tar獲取文檔。 這一點非常重要，我們將在復製文件中進行所有操作，以防止數據丟失。
  2. 其次，全選 tar獲取文本並以“正常”樣式應用它們。 為此，請按“Alt+Ctrl+Shift+S”打開“樣式”窗口。 然後找到並單擊“普通”樣式。
  3. 第三，按“Ctrl+H”觸發“查找和替換”框。
  4. 將光標置於“查找內容”文本框並在其中輸入一個空格。
  5. 接下來將光標放在“替換為”文本框中，然後在其中輸入“^p”。
  6. 然後單擊“全部替換”。在“查找內容”框中輸入空格->在“替換為”框中輸入“^p”->單擊“全部替換”
  7. 在彈出的下一個框中單擊“否”。點擊“否”
  8. 現在您可以看到每個單詞都在一行中。 但還有一個空行如下：出現一個空行

因此，要刪除它，您需要再次調用“查找和替換”框。

  1. 這次在“查找內容”文本框中輸入“^p^p”，在“替換為”框中輸入“^p”。
  2. 點擊“全部替換”。在“查找內容”文本框中輸入“^p^p”->在“替換為”文本框中輸入“^p”->單擊“全部替換”
  3. 現在按“Ctrl+C”複製單詞列表。
  4. 打開 Excel 並按“Ctrl+V”粘貼列表。Excel 工作表中的單詞列表

方法二：使用VBA代碼減少工作量

  1. 同樣的，先複製一份，然後全選 tar獲取文本。
  2. 接下來按“ Alt + F11”打開VBA編輯器。
  3. 然後依次單擊“普通”和“插入”。
  4. 然後選擇“模塊”以創建一個新模塊。單擊“常規”->單擊“插入”->單擊“模塊”
  5. 雙擊該模塊以將其打開並粘貼以下代碼：
Sub CopySelectParagraphWordByWordToExcel()
 
  If Selection.Range <> "" Then
    Selection.Style = ActiveDocument.Styles("Normal") 
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = " "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^p^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Copy
 
    MsgBox ("Now you can just open a Excel worksheet to paste the text")
  Else
    MsgBox ("There is no selected text ")
  End If
 
End Sub
  1. 然後點擊“運行”按鈕。粘貼代碼->單擊“運行”
  2. 接下來將出現一個消息框，指示您下一步需要做什麼。留言框
  3. 打開 Excel 並按“Ctrl+V”將文本粘貼到此處。 效果與方法1相同。

處理Word文檔錯誤

你是否曾經成為受害者 單詞腐敗？ 如果是這樣，你就會明白一個人會變得多麼絕望。 因此，獲得合格的修復工具來修復損壞的文檔變得比以往任何時候都更加重要。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復xlsx 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。