¿Cómo insertar un texto específico en el cursor al redactar un mensaje en Outlook?
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:
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.
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:
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.  👉 Kutools for 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
Ú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!
📧 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...
