2 modi per estrarre tutti gli indirizzi e-mail dal documento di Word e concatenarli per l'elaborazione in batch

Condividi ora:

In questo articolo, ti presenteremo 2 modi per estrarre tutti gli indirizzi e-mail in un documento Word e concatenarli per l'elaborazione in batch.

Di tanto in tanto, potresti dover inviare e-mail a più persone contemporaneamente. Tuttavia, le cose possono diventare un po' complicate quando i loro indirizzi sono sparpagliati su un lungo documento in pagine. Navigare nell'intero documento e trovarli uno per uno può richiedere molto tempo. È per questo che vogliamo mostrarti il ​​modo rapido per estrarli tutti in una sola mossa per l'elaborazione in batch nella tua casella di posta.

Metodo 1: utilizzare l'opzione "Trova e sostituisci".

  1. Innanzitutto, apri il documento contenente gli indirizzi email.
  2. Quindi iniziamo cliccando sulla scheda “Home”.
  3. Quindi scegli di fare clic sul triangolo capovolto sull'icona "Trova".
  4. Nell'elenco a discesa, scegli "Ricerca avanzata".Fai clic su "Home" -> Fai clic sul pulsante capovolto dietro "Trova" -> Fai clic su "Ricerca avanzata"
  5. Ora si aprirà la finestra di dialogo "Trova e sostituisci". Assicurati che la scheda "Trova" sia attiva e inserisci "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" nella casella di testo "Trova cosa".
  6. Quindi fai clic su "Altro" per visualizzare più opzioni.Digita stringhe -> fai clic su "Altro"
  7. Quindi seleziona la casella "Usa caratteri jolly" in "Opzioni di ricerca".
  8. Fare clic sul pulsante "Trova in" e selezionare "Documento principale".Seleziona "Usa caratteri jolly" -> Fai clic su "Trova in" -> Scegli "Documento principale"
  9. Ora puoi vedere che tutti gli indirizzi email in questo documento sono stati evidenziati. Chiudi la finestra di dialogo.
  10. Quindi fai clic su "Copia" nel gruppo "Appunti" nella scheda "Home".Fai clic su "Home"->Fai clic su "Copia"
  11. Ora crea un nuovo documento Word.
  12. Fai clic destro su quello nuovo e scegli "Mantieni solo testo". Vedrai che tutti gli indirizzi email sono incollati lì nella colonna.Scegli "Mantieni solo testo"
  13. Quindi fare clic su "Sostituisci" nel gruppo "Modifica" nella scheda "Home".Fai clic su "Home" -> Fai clic su "Sostituisci"
  14. Nella scheda "Sotto "Sostituisci", inserisci "^p" e ";" rispettivamente nelle caselle di testo "Trova cosa" e "Sostituisci con".
  15. E ricorda di deselezionare la casella "Usa caratteri jolly".
  16. Quindi fare clic sul pulsante "Sostituisci tutto". Word ti dirà quante sostituzioni ha effettuato e potrai chiudere tutte le caselle aperte. Sul documento ci sono indirizzi email separati da punto e virgola.Entra nelle caselle di testo "Trova cosa" e "Sostituisci con" -> Cancella la casella "Usa caratteri jolly" -> Fai clic su "Sostituisci tutto"Indirizzi email separati da punto e virgola
  17. Quello che devi fare infine è copiare questi indirizzi nella tua casella di posta e inviare le stesse informazioni a tutti i destinatari contemporaneamente.

Metodo 2: utilizzare i codici VBA

  1. Innanzitutto, premi "Alt + F11" per aprire l'editor VBA.
  2. Quindi nell'area di modifica, incolla i seguenti codici:
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
  1. Quindi premi il pulsante "Esegui".Incolla codici -> Premi "Esegui"

Avrai quindi un nuovo documento contenente tutti gli indirizzi email, separati da punti e virgola. Potrai quindi iniziare a utilizzarli per l'elaborazione in batch nella casella di posta.

Effetto dell'esecuzione di codici VBA

Cogli il tempo per recuperare i file danneggiati

È vero, puoi sempre trovare delle sorprese lavorando con Word. Mentre sei stupito dalle sue capacità, dovresti fare attenzione ai possibili arresti anomali che Word può subire. Da un lato, interrompe il tuo lavoro. D'altra parte, una minaccia ancora maggiore può provocare quando Word crolla. E per minaccia maggiore intendiamo i tuoi file compromessi e dati insostituibili.

Pertanto, continuiamo a suggerirti di effettuare backup e, soprattutto, di procurarti un programma per riparare i danni di Word così non perderai tempo a perdere tempo.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui xls strumento di risoluzione dei problemi and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com

Condividi ora:

I commenti sono chiusi.