Word文書からすべての電子メールアドレスを抽出し、バッチ処理のためにそれらを連結する2つの方法

ワードソリューション 2025 年 9 月 28 日
今すぐ共有：

この記事では、Word文書内のすべての電子メールアドレスを抽出し、それらを連結してバッチ処理する2つの方法を紹介します。

時々、あなたは一度に複数の人に電子メールを送る必要があるかもしれません。 ただし、アドレスがページ内の長いドキュメントの周りに散らばっている場合は、少し注意が必要です。 ドキュメント全体をナビゲートしてXNUMXつずつ見つけるには、時間がかかる場合があります。 そのため、メールボックスでバッチ処理を行うためにすべてを一度に抽出する簡単な方法を紹介します。

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

  1. まず第一にost、メールアドレスを含むドキュメントを開きます。
  2. それから私達はtart「ホーム」タブをクリックします。
  3. 次に、「検索」アイコンの逆三角形をクリックすることを選択します。
  4. ドロップダウンリストで、[高度な検索]を選択します。「ホーム」をクリック->「検索」の後ろにある逆さまのボタンをクリック->「詳細検索」をクリック
  5. これで、「検索と置換」ダイアログボックスが開きます。 [検索]タブがオンになっていることを確認し、[検索する文字列]テキストボックスに「[Az、0-9] {1、} \ @ [Az、0-9、\。] {1、}」と入力します。
  6. 次に、「その他」をクリックして、その他のオプションを表示します。文字列を入力-> [その他]をクリックします
  7. 次に、[検索オプション]の下の[ワイルドカードを使用する]チェックボックスをオンにします。
  8. 「検索」ボタンをクリックし、「メインドキュメント」を選択します。[ワイルドカードを使用する]をオンにします-> [検索]をクリックします-> [メインドキュメント]を選択します
  9. これで、このドキュメントのすべての電子メールアドレスが強調表示されていることがわかります。 ダイアログボックスを閉じます。
  10. 次に、「ホーム」タブの「クリップボード」グループで「コピー」をクリックします。「ホーム」をクリック->「コピー」をクリック
  11. 次に、新しいWord文書を作成します。
  12. 新しいものを右クリックして、「テキストのみを保持」を選択します。 すべてのメールアドレスが列に貼り付けられているのがわかります。「テキストのみを保持」を選択します
  13. 次に、[ホーム]タブの[編集]グループで[置換]をクリックします。「ホーム」をクリック->「置換」をクリック
  14. 「置換」タブで、「^ p」と「;」を入力します。 「検索対象」および「置換」テキストボックスにそれぞれ入力します。
  15. また、[ワイルドカードを使用する]ボックスをクリアすることを忘れないでください。
  16. 次に、「すべて置換」ボタンをクリックします。 Wordは、それが行った交換の数を教えてくれ、開いているすべてのボックスを閉じることができます。 ドキュメントには、セミコロンで区切られた電子メールアドレスがあります。「検索対象」および「置換」テキストボックスに入力->「ワイルドカードを使用」ボックスをクリア->「すべて置換」をクリックセミコロンで区切られたメールアドレス
  17. 最後に行う必要があるのは、これらのアドレスをメールボックスにコピーし、すべての受信者に同じ情報を一度に送信することです。

方法2：VBAコードを使用する

  1. まず、「Alt + F11」を押してVBAエディターを開きます。
  2. 次に、編集領域に次のコードを貼り付けます。
Sub ExtractAllEmailAddressesFromDocument()
  Dim strEmailAddresses As String    

      ' Find all email addresses in a document,and Extract them.
      With ActiveDocument.Range        
        With.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = "[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}"
          .Replacement.Text = ""
          .Forward = True
          .Wrap = wdFindStop
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchByte = False
          .MatchAllWordForms = False
          .MatchSoundsLike = False
          .MatchWildcards = True
          .Execute
      End With   
      Do While .Find.Found
        strEmailAddresses = strEmailAddresses & .Text & ";"
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
      End With

      '  Open a new document to paste the email addresses.
      If strEmailAddresses <> "" Then
        Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
        ActiveDocument.Range.Text = strEmailAddresses
      End If
End Sub
  1. 次に「実行」ボタンを押します。コードの貼り付け->「実行」を押す

次に、セミコロンで区切られたすべての電子メールアドレスを含む別の新しいドキュメントが作成されます。 そして、あなたはすることができますtartメールボックスでのバッチ処理に使用します。

VBAコードの実行の影響

破損したファイルを取得する時間をつかむ

確かに、Wordを使用することで、いつでも驚きを見つけることができます。 その機能には驚かされますが、Wordが被る可能性のあるクラッシュに注意する必要があります。 一方では、それはあなたの仕事を止めます。 一方、Wordが崩壊すると、さらに大きな脅威が発生する可能性があります。 そして、より大きな脅威とは、侵害されたファイルとかけがえのないデータを意味します。

したがって、私たちはあなたにバックアップとmを作ることを提案し続けますost 重要なのは、プログラムを手に入れることです 単語の損傷を修復する だからあなたは周りの騒ぎに時間を無駄にすることはありません。

著者紹介：

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

今すぐ共有：

コメントは締め切りました。