¿Cómo insertar texto específico en la posición del cursor al redactar un mensaje en Outlook?

Imagínese que tiene ciertas frases o fragmentos de texto que utiliza habitualmente al redactar correos electrónicos y desea insertarlos automáticamente en la posición del cursor dentro del cuerpo del mensaje, sin tener que escribirlos manualmente una y otra vez. En este artículo, le explicaré un método sencillo para lograrlo rápidamente.

Inserte texto específico o la fecha actual en la posición del cursor al redactar un mensaje mediante código VBA

---

Inserte texto específico o la fecha actual en la posición del cursor al redactar un mensaje mediante código VBA

El siguiente código VBA le permite insertar en la posición del cursor una cadena de texto específica o la fecha actual. Siga estos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haga clic en Insertar > Módulo y copie y pegue el siguiente código en el módulo en blanco que se abre:

Código VBA: Insertar texto específico o fecha actual en la posición del 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 desea insertar. Si necesita insertar la fecha actual en lugar de la cadena de texto, sustituya esta línea del script xSel.InsertBefore Format(«ExtendOffice») por xSel.InsertBefore Format(Now, «DD/MM/YYYY»).

3. A continuación, cierre la ventana del código, cree un nuevo correo electrónico y, en la ventana del mensaje, haga clic en el menú desplegable Personalizar barra de herramientas de acceso rápido y seleccione Más comandos; consulte la captura de pantalla:

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

(1.) Seleccione Macrosen el menú desplegable Elegir comandos de;

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

(3.) A continuación, haga clic en el botón Agregar para añadir esta macro al cuadro de lista Personalizar barra de herramientas de acceso rápido.

5. A continuación, haga clic en el botón Aceptar para cerrar el cuadro de diálogo. Ahora, el icono de la macro ya aparece en la barra de herramientas de acceso rápido. Coloque el cursor donde quiera insertar el texto y, a continuación, haga clic en este botón de macro: ¡el texto específico se insertará al instante! Consulte la captura de pantalla:

---

Inserte texto específico en cualquier ubicación al redactar un mensaje: Con la función Kutools para Outlook Texto automático, puede crear fragmentos de texto reutilizables e insertarlos en cualquier lugar al redactar un mensaje, siempre que los necesite. 👉 ¡Trabaje de forma más inteligente en Outlook!Descargue Kutools para Outlookpara aumentar su productividad con las funciones que ahorran tiempo de 100+ — ¡gratis durante 30 días!