從Word文檔提取所有電子郵件地址並將其串聯以進行批處理的2種方法

Word解決方案 2025 年 9 月 28 日

在本文中，我們將向您介紹兩種提取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