在本文中，我们将向您介绍两种提取 Word 文档中所有电子邮件地址并将它们拼接起来进行批处理的方法。
有时，您可能需要同时向多个人发送电子邮件。 然而，当他们的地址分散在页面中的长文档周围时，事情会变得有点棘手。 浏览整个文档并一个一个地找到它们可能非常耗时。 这就是为什么我们要向您展示一种快速的方法，可以一次提取所有这些内容，以便在您的邮箱中进行批处理。
方法 1：使用“查找和替换”选项
- 首先，打开包含电子邮件地址的文档。
- 然后我们点击“首页”选项卡。
- 接下来选择单击“查找”图标上的倒三角。
- 在下拉列表中，选择“高级查找”。
- 现在您将打开“查找和替换”对话框。 确保“查找”选项卡处于打开状态，然后在“查找内容”文本框中输入“[Az,0-9]{1,}\@[Az,0-9,\.]{1,}”。
- 接下来单击“更多”以查看更多选项。
- 然后选中“搜索选项”下的“使用通配符”框。
- 单击“查找位置”按钮并选择“主文档”。
- 现在您可以看到该文档中的所有电子邮件地址都已突出显示。 关闭对话框。
- 接下来单击“主页”选项卡下“剪贴板”组中的“复制”。
- 现在创建一个新的 Word 文档。
- 右键单击新的并选择“仅保留文本”。 您会看到所有电子邮件地址都粘贴在列中。
- 然后单击“主页”选项卡下“编辑”组中的“替换”。
- 在“在“替换”选项卡下，输入“^p”和“;” 分别在“查找内容”和“替换为”文本框中。
- 并记得清除“使用通配符”框。
- 然后单击“全部替换”按钮。 Word 会告诉您它进行了多少次替换，您可以关闭所有打开的框。 文档上是用分号分隔的电子邮件地址。
- 您最后需要做的是将这些地址复制到您的邮箱中，并一次性将相同的信息发送给所有收件人。
方法 2：使用 VBA 代码
- 首先，按“Alt+F11”打开VBA编辑器。
- 然后在编辑区粘贴以下代码：
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
- 接下来点击“运行”按钮。
然后你会得到另一个包含所有电子邮件地址的新文档，地址之间用分号分隔。之后你就可以开始在邮箱中使用这些地址进行批量处理了。
抓紧时间找回损坏的文件
诚然，您总能通过使用 Word 发现一些惊喜。 虽然您对其功能感到惊讶，但您应该注意 Word 可能遭受的崩溃。 一方面，它会停止你的工作。 另一方面，当 Word 崩溃时，可能会提示更大的威胁。 我们所说的更大威胁是指您的受损文件和不可替代的数据。
因此，我们一直建议您进行备份，最重要的是，获取一个可以备份数据的程序。 修复Word损坏 这样您就不会浪费时间四处奔波。
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 xls问题修复工具 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com