Word文書からメールアドレスを抽出する方法

これは、Word文書からすべてのメールアドレスを抽出するためのチュートリアルです。 Windows11/10の場合。複数の電子メールアドレスを持つWord文書（DOC、DOCX）があり、それらの電子メールアドレスを任意の目的で使用したい場合、それらを手動で検索するのは本当に面倒です。より簡単な解決策は、ドキュメントからすべての電子メールアドレスを抽出し、それらを必要に応じて使用することです。現在、Word文書からメールアドレスを抽出するために、サードパーティのソリューションは必要ありません。この記事では、Word文書から電子メールアドレスを抽出するための2つの簡単なトリックを紹介します。これは、MicrosoftWordアプリケーションで行うことができます。今すぐメソッドをチェックしてみましょう！

Word文書からメールアドレスを抽出する方法

Windows11/10でWord文書からすべての電子メールアドレスを抽出する2つの方法は次のとおりです。

1. MSWordの[高度な検索]オプションを使用してメールアドレスを抽出します。
2. VBAコードを使用して、Word文書からすべてのメールアドレスを抽出します。

これらの方法について詳しく話しましょう！

1]MSWordの[高度な検索]オプションを使用してメールアドレスを抽出します

Microsoft Wordの[高度な検索/検索と置換]オプションを使用して、Word文書からすべての電子メールアドレスを抽出できます。そのための主な手順は次のとおりです。

1. MicrosoftWordを起動します。
2. メールアドレスを含むWord文書を開きます。
3. [検索]>[高度な検索]オプションに移動します。
4. [検索する文字列]フィールドに文字列を入力します。
5. [ワイルドカードを使用する]チェックボックスを有効にします。
6. [検索]>[メインドキュメント]ボタンをクリックします。
7. メインドキュメントに戻り、[コピー]オプションを使用します。
8. 新しい空白のドキュメントを作成し、コピーしたメールアドレスを貼り付けます。

それでは、これらの手順について詳しく説明しましょう！

まず、PCでMicrosoft Wordアプリケーションを実行してから、抽出する電子メールアドレスを含むWord文書をインポートします。

さて、ホーム タブで、編集に移動します セクションをクリックし、検索をクリックします ドロップダウンボタン。次に、高度な検索をタップします オプション。これにより、検索と置換が開きます ダイアログボックス。

検索と置換で ダイアログボックスの[検索]タブで、 [A-z、0-9] {1、} \ @ [A-z、0-9、\。] {1、}と入力します。 検索するの文字列 フィールド。

その後、その他を押します さまざまなオプションを開くボタン。

次に、ワイルドカードを使用を有効にします チェックボックス。

次に、検索をクリックします ドロップダウンボタンを押して、メインドキュメントを選択します オプション。

これを行うと、以下のスクリーンショットに示すように、ソースWordドキュメントですべてのメールアドレスが強調表示されて選択されます。

今、あなたがしなければならないのは、コピーをクリックすることです ホームにあるボタン タブ。または、コピーホットキー、つまりCtrl+Cショートカットキーを使用することもできます。 Wordドキュメントに存在するすべてのメールアドレスをクリップボードにコピーします。

次に、空白のWord文書を作成するか、メモ帳アプリを開き、専用オプションまたはCtrl+Vホットキーを使用してコピーしたメールアドレスを貼り付けるだけです。

これで、Word文書から抽出した電子メールアドレスを使用して文書を保存し、必要に応じて電子メールアドレスを使用できます。

読む ：Officeプログラムでスプラッシュ画面を無効にする方法。

2] VBAコードを使用して、Word文書からすべてのメールアドレスを抽出します

単純なVisualBasicfor Applications（VBA）コードを使用して、Word文書からすべての電子メールアドレスを抽出することもできます。そのための主な手順は次のとおりです。

1. Wordアプリを開き、ソースドキュメントをインポートします。
2. VBAエディタを起動します。
3. 新しいモジュールを挿入します。
4. メールアドレスを抽出するためのVBAコードを入力します。
5. VBAコードを実行して、すべてのメールアドレスを抽出します。

まず、Wordアプリを開き、すべてのメールアドレスを抽出する入力Wordドキュメントをインポートします。

次に、 Alt + F11を使用してVBAエディターを起動します キーの組み合わせ。 開発者を有効にしている場合 メインリボンのタブで、[開発者]タブに移動し、 Visual Basicをクリックします。 VBAエディタを開くオプション。

次に、VBAエディタウィンドウで、挿入に移動します メニューをクリックし、モジュールをクリックします オプション。

その後、右側のセクションで、エディタウィンドウに以下のVBAコードを入力します。

Sub ExtractAllEmailAddressesFromDocument()
Dim strEmailAddresses As String

' Extract all email addresses in a document.
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

次に、実行に移動します メニューをクリックし、マクロの実行をクリックします オプションまたは単にF5キー。 マクロ 作成したマクロを選択して実行ボタンをクリックする必要がある場所でダイアログウィンドウが開きます。

[実行]ボタンをクリックすると、新しいWord文書が開き、Word文書から抽出されたすべての電子メールアドレスが表示されます。

抽出したメールアドレスを使用してドキュメントを保存し、必要に応じて使用できます。

Microsoft Wordはさまざまなドキュメント形式をサポートしているため、これらの電子メールアドレス抽出方法は、XML、ODTなどのWord以外のドキュメントにも使用できます。

今読んでください： EasyEmailExtractorを使用してメールアドレスを抽出します。