別々のセルに各単語を入れてWordからExcelにテキストをコピーする2つの方法

ワードソリューション 2025 年 9 月 28 日

このpでost、WordからExcelにテキストをコピーする2つの方法を、各単語を別々のセルに入れて共有できることをうれしく思います。

あなたが言語学者であるならば、あなたはおそらく単語頻度カウントをたくさんする必要があります。それなら、今日の私たちのトピックは大きな助けになるでしょう。以下の2つの方法を使用すると、ドキュメントからテキストを貼り付けてExcelシートを作成し、各単語を列セルに一覧表示できます。

方法1：「検索と置換」オプションを利用する

まず、のコピーを作成します tarドキュメントを取得します。これは非常に重要であり、データの損失を防ぐために、コピーファイルですべての操作を実行します。
次に、すべてを選択します tarテキストを取得し、「通常」のスタイルで適用します。これを行うには、「Alt + Ctrl + Shift + S」を押して「スタイル」ウィンドウを開きます。次に、「通常」スタイルを見つけてクリックします。
XNUMX番目に、「Ctrl + H」を押して、「検索と置換」ボックスをトリガーします。
「検索対象」テキストボックスにカーソルを置き、そこにスペースを入力します。
次に、「Replace with」テキストボックスにカーソルを置き、そこに「^ p」と入力します。
次に、「すべて置換」をクリックします。
ポップアップ表示される次のボックスで「いいえ」をクリックします。
これで、各単語がXNUMX行になっていることがわかります。ただし、次のような空白行もあります。

したがって、それを削除するには、「検索と置換」ボックスを再度呼び出す必要があります。

今回は、「検索対象」テキストボックスに「^ p ^ p」と入力し、「置換」ボックスに「^ p」と入力します。
「すべて置換」をクリックします。
次に、「Ctrl + C」を押して単語リストをコピーします。
Excelを開き、「Ctrl + V」を押してリストを貼り付けます。

方法2：VBAコードを使用してワークロードを削減する

同様に、最初にコピーを作成し、すべてを選択します tarテキストを取得します。
次に「Alt + F11」を押して、VBAエディターを開きます。
次に、「通常」と「挿入」の順にクリックします。
そして、「モジュール」を選択して新しいモジュールを作成します。
モジュールをダブルクリックして開き、次のコードを貼り付けます。

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

次に、「実行」ボタンをクリックします。
次に、次に何をする必要があるかを示すメッセージボックスが表示されます。
Excelを開き、「Ctrl + V」を押してテキストを貼り付けます。効果は方法1と同じです。

Word文書のエラーに対処する

犠牲者になったことがありますか単語の破損？もしそうなら、あなたは人がどれほど必死になるかもしれないかを理解するでしょう。したがって、壊れたドキュメントを修正するための適格な修復ツールを入手することがこれまで以上に重要になります。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsxを回復する and pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com