Skip to main content

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

¿Cómo insertar un texto específico en el cursor al redactar un mensaje en Outlook? 

Author Xiaoyang Last modified

Supongamos que tienes algunas cadenas de texto específicas que usas con frecuencia al redactar mensajes de correo electrónico, y te gustaría insertar ese texto en la posición actual del cursor en el cuerpo del correo automáticamente, sin tener que escribirlo una y otra vez. En este artículo, hablaré sobre un método sencillo para resolver esta tarea rápidamente.

Insertar texto específico o fecha actual en el cursor al redactar un mensaje con código VBA

Insertar texto específico o fecha actual en el cursor al redactar un mensaje con código VBA

El siguiente código VBA puede ayudarte a insertar una cadena de texto específica o la fecha actual en la posición del cursor, por favor haz lo siguiente:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de 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:

Código VBA: Insertar texto específico o fecha actual en el cursor

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Nota: En el código anterior, ExtendOffice es el texto específico que deseas insertar; si necesitas insertar la fecha actual en lugar de la cadena de texto, cambia el texto en este script xSel.InsertBefore Format("ExtendOffice") a xSel.InsertBefore Format(Now, "DD/MM/YYYY").

3. Luego, guarda y cierra la ventana de código, crea un nuevo correo electrónico, y en la ventana Mensaje, haz clic en la flecha desplegable Personalizar Barra de Acceso Rápido y selecciona Más Comandos, ver captura de pantalla:

doc insert text at cursor 1

4. En el cuadro de diálogo Opciones de Outlook, realiza las siguientes operaciones:

(1.) Selecciona Macros desde el menú desplegable Elegir comando de;

(2.) Haz clic en el nombre de la macro que has insertado;

(3.) Luego, haz clic en el botón Agregar para añadir esta macro al cuadro de lista Personalizar Barra de Acceso Rápido.

doc insert text at cursor 2

5. Luego, haz clic en el botón Aceptar para cerrar el cuadro de diálogo. Ahora, el ícono de la macro se ha insertado en la Barra de Acceso Rápido Personalizada. Coloca el cursor donde deseas insertar el texto y luego haz clic en este botón de macro, el texto específico se insertará de inmediato, ver captura de pantalla:

doc insert text at cursor 3
Insertar texto específico en cualquier ubicación al redactar un mensaje:

Con la función Auto Texto de Kutools para Outlook, puedes crear un texto automático e insertarlo en cualquier lugar al redactar un mensaje según sea necesario.

doc insert text at cursor 4
 👉 Kutools para Outlook ahora tiene una versión gratuita, cuyas 70+ funciones son gratuitas de por vida. Descarga la versión gratuita ahora.

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