Skip to main content

¿Cómo buscar y reemplazar el texto del asunto dentro de los correos electrónicos o tareas en Outlook?

Author: Xiaoyang Last Modified: 2025-06-04

En Outlook, si hay varios asuntos de mensajes o tareas que necesitan ser reemplazados por un texto específico, por supuesto, puedes cambiarlos uno por uno, pero, ¿existe alguna forma rápida de realizar esta tarea de una vez en Outlook?

Buscar y reemplazar el texto del asunto en varios correos electrónicos utilizando código VBA

Buscar y reemplazar el texto del asunto en múltiples tareas utilizando código VBA


Buscar y reemplazar el texto del asunto en varios correos electrónicos utilizando código VBA

Encuentra un texto específico y reemplázalo con otro en múltiples asuntos de mensajes; el siguiente código VBA puede ayudarte, por favor sigue los siguientes pasos:

1. Selecciona los correos electrónicos en los que deseas buscar y reemplazar el texto del asunto, y luego mantén presionadas las teclas "ALT + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. Luego, haz clic en "Insertar" > "Módulo", copia y pega el siguiente código en el módulo en blanco abierto, ver captura de pantalla:

Código VBA: Buscar y reemplazar el texto del asunto en múltiples mensajes:

Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
    Set xItem = xExplorer.Selection.Item(i)
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        With xMailItem
            xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub

Notas: En el código anterior: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" es el texto antiguo que deseas encontrar, y "Kutools for Excel" es el nuevo texto con el que deseas reemplazarlo. Por favor, cámbialos según tus necesidades.

doc replace subjects 1

3. Luego presiona la tecla "F5" para ejecutar este código, y el texto específico en los asuntos de los mensajes habrá sido reemplazado por el nuevo texto según lo necesites, ver captura de pantalla:

doc replace subjects 2

Buscar y reemplazar el texto del asunto en múltiples tareas utilizando código VBA

Si necesitas buscar y reemplazar el texto del asunto en las tareas, el siguiente código VBA también puede ayudarte.

1. Mantén presionadas las teclas "ALT + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. Luego, haz clic en "Insertar" > "Módulo", copia y pega el siguiente código en el módulo en blanco abierto, ver captura de pantalla:

Código VBA: Buscar y reemplazar el texto del asunto en todas las tareas:

Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
    Set xNavFolder = xGroup.NavigationFolders.Item(i)
    For k = xNavFolder.Folder.Items.Count To 1 Step -1
        Set xTaskItem = xNavFolder.Folder.Items(k)
        If InStr(xTaskItem.Subject, xFindStr) > 0 Then
            xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
            xTaskItem.Save
            xTotalCount = xTotalCount + 1
        End If
    Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Luego presiona la tecla "F5" para ejecutar este código, y aparecerá un cuadro de diálogo donde deberás escribir el texto que deseas encontrar en los asuntos de las tareas, ver captura de pantalla:

doc replace subjects 3

4. Haz clic en "Aceptar", y aparecerá otro cuadro de diálogo donde deberás ingresar el nuevo texto con el que deseas reemplazarlo, ver captura de pantalla:

doc replace subjects 4

5. Luego haz clic en "Aceptar", y se mostrará un cuadro de diálogo indicándote cuántos asuntos han sido cambiados, ver captura de pantalla:

doc replace subjects 5

6. Haz clic en "Aceptar", y los textos antiguos en los asuntos de las tareas habrán sido reemplazados por los nuevos, ver captura de pantalla:

doc replace subjects 6

Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar emails.

📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

kutools for outlook features1 kutools for outlook features2