Dans cet article, nous vous présenterons 2 façons d'extraire toutes les adresses e-mail d'un document Word et de les concaténer pour le traitement par lots.
De temps en temps, vous devrez peut-être envoyer un e-mail à plusieurs personnes à la fois. Cependant, les choses peuvent devenir un peu délicates lorsque leurs adresses se dispersent dans un long document en pages. Naviguer dans l'ensemble du document et les retrouver un par un peut prendre du temps. C'est pourquoi nous voulons vous montrer le moyen rapide de les extraire tous en un seul geste pour un traitement par lots dans votre boîte aux lettres.
Méthode 1 : Utilisez l'option "Rechercher et remplacer"
- Avant toute chose, ouvrez le document contenant les adresses électroniques.
- Ensuite, nous commençons par cliquer sur l'onglet « Accueil ».
- Choisissez ensuite de cliquer sur le triangle à l'envers sur l'icône "Rechercher".
- Dans la liste déroulante, choisissez "Recherche avancée".
- La boîte de dialogue "Rechercher et remplacer" s'ouvre maintenant. Assurez-vous que l'onglet "Rechercher" est activé et saisissez "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" dans la zone de texte "Rechercher quoi".
- Cliquez ensuite sur "Plus" pour afficher plus d'options.
- Cochez ensuite la case "Utiliser des caractères génériques" sous "Options de recherche".
- Cliquez sur le bouton "Rechercher dans" et sélectionnez "Document principal".
- Vous pouvez maintenant voir que toutes les adresses e-mail de ce document ont été mises en surbrillance. Fermez la boîte de dialogue.
- Cliquez ensuite sur "Copier" dans le groupe "Presse-papiers" sous l'onglet "Accueil".
- Créez maintenant un nouveau document Word.
- Faites un clic droit sur le nouveau et choisissez "Conserver le texte uniquement". Vous verrez que toutes les adresses e-mail y sont collées en colonne.
- Cliquez ensuite sur « Remplacer » dans le groupe « Édition » sous l'onglet « Accueil ».
- Dans "Sous l'onglet "Remplacer", entrez "^p" et ";" respectivement dans les zones de texte "Rechercher quoi" et "Remplacer par".
- Et n'oubliez pas de décocher la case "Utiliser des caractères génériques".
- Cliquez ensuite sur le bouton "Remplacer tout". Word vous dira combien de remplacements il a effectués et vous pourrez fermer toutes les boîtes ouvertes. Sur le document figurent les adresses e-mail séparées par des points-virgules.
- Ce que vous devez faire enfin est de copier ces adresses dans votre boîte aux lettres et d'envoyer les mêmes informations à tous les destinataires en même temps.
Méthode 2 : Utiliser les codes VBA
- Tout d'abord, appuyez sur "Alt + F11" pour ouvrir l'éditeur VBA.
- Ensuite sur la zone d'édition, collez les codes suivants :
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
- Cliquez ensuite sur le bouton "Exécuter".
Vous obtiendrez alors un nouveau document contenant toutes les adresses e-mail, séparées par des points-virgules. Vous pourrez ensuite les utiliser pour le traitement par lots dans votre boîte mail.
Saisir le temps de récupérer les fichiers endommagés
Certes, vous pouvez toujours trouver des surprises en travaillant avec Word. Pendant que vous êtes étonné par ses capacités, vous devez faire attention aux éventuels plantages que Word peut subir. D'une part, cela arrête votre travail. D'autre part, une menace encore plus grande peut survenir lorsque Word s'effondre. Et par plus grande menace, nous entendons vos fichiers compromis et vos données irremplaçables.
C’est pourquoi nous vous conseillons vivement d’effectuer des sauvegardes et, surtout, de vous procurer un logiciel pour… réparer les dégâts de mot ainsi vous ne perdrez pas de temps à vous embêter.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris outil de résolution de problème xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com