En este artículo, le presentaremos 2 formas de extraer todas las direcciones de correo electrónico en un documento de Word y concatenarlas para el procesamiento por lotes.
De vez en cuando, es posible que deba enviar correos electrónicos a varias personas a la vez. Sin embargo, las cosas pueden complicarse un poco cuando sus direcciones se encuentran dispersas en páginas de un documento largo. Navegar por todo el documento y encontrarlos uno por uno puede llevar mucho tiempo. Es por eso que queremos mostrarle la manera rápida de extraerlos todos en un solo movimiento para el procesamiento por lotes en su casilla de correo.
Método 1: utilice la opción "Buscar y reemplazar"
- En primer lugar, abre el documento que contiene las direcciones de correo electrónico.
- A continuación, comenzamos haciendo clic en la pestaña "Inicio".
- A continuación, elija hacer clic en el triángulo invertido en el icono "Buscar".
- En la lista desplegable, elija "Búsqueda avanzada".
- Ahora tendrá abierto el cuadro de diálogo "Buscar y reemplazar". Asegúrese de que la pestaña "Buscar" esté activada e ingrese "[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}" en el cuadro de texto "Buscar qué".
- A continuación, haga clic en "Más" para ver más opciones.
- Luego marque la casilla "Usar comodines" en "Opciones de búsqueda".
- Haga clic en el botón "Buscar en" y seleccione "Documento principal".
- Ahora puede ver que se han resaltado todas las direcciones de correo electrónico de este documento. Cierre el cuadro de diálogo.
- A continuación, haga clic en "Copiar" en el grupo "Portapapeles" en la pestaña "Inicio".
- Ahora cree un nuevo documento de Word.
- Haga clic con el botón derecho en el nuevo y elija "Mantener solo texto". Verá que todas las direcciones de correo electrónico están pegadas en la columna.
- Luego haga clic en "Reemplazar" en el grupo "Edición" en la pestaña "Inicio".
- En la pestaña "Reemplazar", ingrese "^ p" y ";" en los cuadros de texto "Buscar qué" y "Reemplazar con" respectivamente.
- Y recuerde borrar la casilla "Usar comodines".
- Luego haga clic en el botón "Reemplazar todo". Word le dirá cuántos reemplazos ha realizado y puede cerrar todos los cuadros abiertos. En el documento hay direcciones de correo electrónico separadas por punto y coma.
- Por último, lo que debe hacer es copiar estas direcciones a su casilla de correo y enviar la misma información para todos los destinatarios a la vez.
Método 2: usar códigos VBA
- En primer lugar, presione "Alt + F11" para abrir el editor de VBA.
- Luego, en el área de edición, pegue los siguientes códigos:
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
- Luego presione el botón "Ejecutar".
A continuación, tendrás un nuevo documento con todas las direcciones de correo electrónico, separadas por punto y coma. Podrás empezar a utilizarlas para el procesamiento por lotes en tu buzón de correo.
Aproveche el tiempo para recuperar archivos dañados
Es cierto que siempre puede encontrar algunas sorpresas trabajando con Word. Si bien está asombrado por sus capacidades, debe estar atento a los posibles bloqueos que Word puede sufrir. Por un lado, detiene tu trabajo. Por otro lado, una amenaza aún mayor puede aparecer cuando Word colapsa. Y por mayor amenaza nos referimos a sus archivos comprometidos y datos irremplazables.
Por lo tanto, seguimos sugiriéndole que haga copias de seguridad y, lo más importante, que consiga un programa para reparar daño de Word para que no pierda el tiempo en preocuparse.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo herramienta de reparación de problemas xls y pdf reparar productos de software. Para más información visite www.datanumen.com