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

これは、Windows 11/10のWord文書からすべての電子メールアドレス(extract all email addresses from Word documents)を抽出するためのチュートリアルです。複数の電子メールアドレスを持つWord文書(DOCDOCX)があり、それらの電子メールアドレスを任意の目的で使用したい場合は、手動で検索するのは非常に面倒です。より簡単な解決策は、ドキュメントからすべての電子メールアドレスを抽出し、それらを必要に応じて使用することです。現在、 Word(Word)文書から電子メールアドレスを抽出するために、サードパーティのソリューションは必要ありません。この記事では、Word文書から電子メールアドレスを抽出するための2つの簡単なトリックを紹介します。あなたはMicrosoftWord(Microsoft Word)でそうすることができます応用。今すぐメソッドをチェックしてみましょう!

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

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

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

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

1] MSWordの(Extract)高度な検索(Advanced Find)オプションを使用して電子メールアドレスを抽出します(MS Word)

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

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

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

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

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

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

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

その後、 [その他(More)]ボタンを押すと、さまざまなオプションが開きます。

次に、[ワイルドカードを使用する](Use wildcards)チェックボックスを有効にします。

次に、[検索(Find In)]ドロップダウンボタンをクリックして、[メインドキュメント(Main Document)]オプションを選択します。

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

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

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

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

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

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

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

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

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

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

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

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

その後、右側のセクションで、エディターウィンドウに以下の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

次に、[ファイル名を指定して実行(Run)]メニューに移動し、[マクロの実行(Run Macros)]オプションをクリックするか、単にF5キーをクリックします。[マクロ(Macros)]ダイアログウィンドウが開き、作成したマクロを選択して、[実行]ボタンをクリックする必要があります(Run)

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

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

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

今すぐ読む:(Now read:) EasyEmailExtractorを使用してメールアドレスを抽出します。(Extract email addresses using Easy Email Extractor.)



About the author

私は、Windows 11 または 10 アプリケーションの開発と保守に 10 年以上の経験を持つソフトウェア エンジニアです。また、Google ドキュメントと Microsoft Edge の使用経験もあります。これらの分野での私のスキルは、将来のソフトウェア エンジニアリングの役割の優れた候補者になります。



Related posts