如何从Word文档中提取电子邮件地址

Windows 11/10中的 Word 文档中提取所有电子邮件地址(extract all email addresses from Word documents)的教程。如果您有包含多个电子邮件地址的Word文档(DOCDOCX),并且您想将这些电子邮件地址用于任何目的,那么手动搜索它们真的很累。一个更简单的解决方案是从文档中提取所有电子邮件地址,然后根据需要使用它们。现在,要从Word文档中提取电子邮件地址,您不需要任何第三方解决方案。在本文中,我将展示两个从Word文档中提取电子邮件地址的简单技巧。您可以在Microsoft Word中执行此操作(Microsoft Word)应用。现在就让我们来看看方法吧!

如何从Word文档中提取电子邮件地址(Email Addresses)

Windows 11/10Word文档中提取所有电子邮件地址的两种方法:

  1. (Extract)使用MS Word中的“(MS Word)高级查找”(Advanced Find)选项提取电子邮件地址。
  2. 使用 VBA(Use VBA)代码从Word文档中提取所有电子邮件地址。

让我们详细谈谈这些方法!

1]使用MS Word中的(MS Word)高级查找(Advanced Find)选项提取(Extract)电子邮件地址

您可以使用Microsoft Word中的(Microsoft Word)Advanced Find/ Find和替换选项从Word文档中提取所有电子邮件地址。以下是这样做的主要步骤:

  1. 启动 Microsoft Word。
  2. 打开包含电子邮件地址的Word文档。(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)文档中存在的所有电子邮件地址复制到剪贴板。

接下来,创建一个空白Word文档或打开记事本(Notepad)应用程序,然后使用专用选项或Ctrl + V热键简单地粘贴复制的电子邮件地址。

如何在 Windows 11/10 中从 Word 文档中提取电子邮件地址

您现在可以使用从Word文档中提取的电子邮件地址保存文档,并根据需要使用电子邮件地址。

阅读(Read):如何在 Office 程序中禁用启动画面。

2]使用 VBA(Use VBA)代码从Word文档中提取所有电子邮件地址

您还可以使用简单的Visual Basic for Applications ( VBA ) 代码从Word文档中提取所有电子邮件地址。以下是这样做的主要步骤:

  1. 打开Word应用程序,然后导入源文档。
  2. 启动 VBA 编辑器。
  3. 插入一个新模块。
  4. 输入(Enter)用于提取电子邮件地址的VBA代码。(VBA)
  5. 运行VBA代码以提取所有电子邮件地址。

首先,打开Word应用程序,然后导入要从中提取所有电子邮件地址的输入Word文档。(Word)

现在,使用Alt + F11VBA 编辑器(VBA Editor)。如果您已启用主功能区上的“开发人员(Developers)”选项卡,则可以转到“开发人员(Developer)”选项卡并单击“ Visual Basic”选项以打开 VBA 编辑器。

接下来,在VBA 编辑器(VBA Editor)窗口中,转到插入( Insert)菜单并单击模块(Module)选项。

之后,在右侧部分中,在编辑器窗口中输入以下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

然后,转到“运行”(Run)菜单并单击“运行宏”(Run Macros)选项或只需 F5 键。将打开一个宏对话框窗口,您需要在其中选择创建的宏,然后单击(Macros)运行(Run)按钮。

当您单击“运行”(Run)按钮时,将打开一个新的Word文档,其中包含从(Word)Word文档中提取的所有电子邮件地址。

您可以简单地使用提取的电子邮件地址保存文档并根据需要使用它们。

由于Microsoft Word支持多种文档格式,这些电子邮件地址提取方法也可以用于非 Word 文档,例如XMLODT等。

现在阅读:(Now read:) 使用 Easy Email Extractor 提取电子邮件地址。(Extract email addresses using Easy Email Extractor.)



About the author

我是一名硬件工程师,专门从事iPhone、iPad等苹果产品的设计和开发。我在 iOS 和边缘设备以及 Git 和 Swift 等软件开发工具方面都有经验。我在这两个领域的技能使我对 Apple 设备操作系统 (OS) 如何与应用程序和数据源进行交互有了深刻的理解。此外,我在 Git 方面的经验使我能够处理代码版本控制系统,这有助于在开发软件时提高效率和生产力。



Related posts