Saltar al contenido principal

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

Supongamos que tiene algunas cadenas de texto específicas que se utilizan con frecuencia al redactar el mensaje de correo electrónico, por lo que le gustaría insertar el texto en la posición actual del cursor en el cuerpo del correo automáticamente sin escribirlas manualmente una y otra vez. En este artículo, hablaré sobre un método fácil para resolver esta tarea rápidamente.

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


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

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

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código VBA: inserte 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

Note: En el código anterior, ExtendOffice es el texto específico que desea insertar, si necesita insertar la fecha actual en lugar de la cadena de texto, cambie el texto en este script xSel.InsertBefore Format ("ExtendOffice") a xSel.InsertBefore Format (ahora, "DD / MM / AAAA").

3. Luego, guarde y cierre la ventana del código, cree un nuevo correo electrónico y, en la ventana Mensaje, haga clic en Personalizar la barra de herramientas de acceso rápido desplegable y elegir Más comando, ver captura de pantalla:

doc insertar texto en el cursor 1

4. En la Opciones de outlook cuadro de diálogo, realice las siguientes operaciones:

(1.) Seleccione Macros del desplegable Elija el comando de desplegable;

(2.) Haga clic en el nombre de la macro que ha insertado;

(3.) Luego, haga clic en Añada para agregar esta macro al Personalizar la barra de herramientas de acceso rápido cuadro de lista.

doc insertar texto en el cursor 2

5. Y luego, haga clic en OK para cerrar el cuadro de diálogo, ahora, el icono de macro se ha insertado en el Personalizar la barra de herramientas de acceso rápido. Coloque el cursor donde desea insertar el texto y luego haga clic en este botón de macro, el texto específico se insertará de una vez, vea la captura de pantalla:

doc insertar texto en el cursor 3


Inserte texto específico en cualquier lugar al redactar el mensaje:

Con Kutools para Outlook's Texto automático función, puede crear un texto automático y luego insertarlo en cualquier lugar al redactar el mensaje que necesite.

doc insertar texto en el cursor 4

Kutools para Outlook: con más de 100 prácticos complementos de Excel, prueba gratuita y sin límite en 60 días. ¡Descargue y pruebe la versión de prueba gratuita ahora!

Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations