Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo buscar y reemplazar el asunto de una cita en el calendario de Outlook?

Author Siluvia Last modified

Buscar y reemplazar el asunto de una cita en el calendario de Outlook es útil cuando encuentras que algunos asuntos necesitan ser reemplazados por el mismo texto en masa. O reemplazar la palabra Copia en el campo de asunto después de importar datos en Outlook. Este artículo te proporciona código VBA para buscar y reemplazar múltiples asuntos de citas. Por favor, consulta más detalles a continuación.

Buscar y reemplazar el asunto de una cita con código VBA


Buscar y reemplazar el asunto de una cita con código VBA

En esta sección, puedes buscar y reemplazar el asunto de una cita con código VBA de la siguiente manera.

1. Primero, necesitas configurar los ajustes de macros a bajo en tu Outlook.

1) En Outlook 2010 y 2013, haz clic en "Archivo" > "Opciones". Y en el cuadro de diálogo "Opciones de Outlook", haz clic en "Centro de confianza" en la barra izquierda, luego haz clic en el botón "Configuración del Centro de confianza".

doc-find-and-replace-subject-1

En el cuadro de diálogo "Centro de confianza", haz clic en "Configuración de macros" en la barra izquierda, luego selecciona la opción "Habilitar todas las macros" en la sección "Configuración de macros". Y haz clic en el botón "Aceptar". Ver captura de pantalla:

doc-find-and-replace-subject-2

2) En Outlook 2007, haz clic en "Herramientas" > "Centro de confianza". En el cuadro de diálogo "Centro de confianza", haz clic en "Configuración de macros" en la barra izquierda, luego selecciona la opción "Sin verificación de seguridad para macros" y haz clic en el botón "Aceptar".

doc-find-and-replace-subject-3

2. Presiona las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

3. En la ventana "Microsoft Visual Basic para Aplicaciones", haz doble clic para expandir "Proyecto1" > "Objetos de Microsoft Outlook" > "EstaSesiónDeOutlook" para abrir el editor VBA. Ver captura de pantalla:

doc-find-and-replace-subject-4

4. Copia y pega el siguiente código VBA en el editor VBA. Luego presiona la tecla "F5" para ejecutar el código.

VBA: buscar y reemplazar el asunto de una cita

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. Después de ejecutar el código, aparecerá un cuadro de diálogo "Microsoft Outlook". Haz clic en el botón "Aceptar".

doc-find-and-replace-subject-5

6. En el segundo cuadro de diálogo "Microsoft Outlook", ingresa el texto que deseas reemplazar y luego haz clic en el botón "Aceptar".

doc-find-and-replace-subject-6

7. En el tercer cuadro de diálogo "Microsoft Outlook", ingresa el texto que deseas usar como reemplazo y haz clic en "Aceptar".

doc-find-and-replace-subject-7

Nota: Si solo quieres eliminar todas las palabras “Copia” del asunto en el calendario especificado, deja este cuadro en blanco.

8. Haz clic en el botón "Aceptar" en el siguiente cuadro de diálogo.

doc-find-and-replace-subject-8

9. En el cuadro de diálogo "Seleccionar carpeta", selecciona tu calendario bajo la cuenta de correo electrónico especificada y luego haz clic en el botón "Aceptar". Ver captura de pantalla:

doc-find-and-replace-subject-9

10. Luego aparecerá un cuadro de diálogo informándote que el reemplazo ha sido exitoso. Haz clic en el botón "Aceptar".

doc-find-and-replace-subject-10

11. Y luego, todo el texto en los asuntos del calendario seleccionado habrá sido reemplazado con el nuevo contenido.


Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

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

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

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

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

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

kutools for outlook features1 kutools for outlook features2

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

  • Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
  • 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
  • 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint