Salt la conținutul principal

Cum să inserați text specific la cursor atunci când compuneți mesajul în Outlook? 

Să presupunem că aveți câteva șiruri de text specifice care sunt folosite frecvent la compunerea mesajului de e-mail, deci ați dori să inserați textul în poziția curentă a cursorului în corpul poștei fără a le tasta manual din nou și din nou. În acest articol, voi vorbi despre o metodă ușoară pentru rezolvarea rapidă a acestei sarcini.

Introduceți textul specific sau data curentă la cursor atunci când compuneți mesajul cu cod VBA


Introduceți textul specific sau data curentă la cursor atunci când compuneți mesajul cu cod VBA

Următorul cod VBA vă poate ajuta să inserați un șir de text specific sau o dată curentă la poziția cursorului, vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:

Cod VBA: introduceți textul specific sau data curentă la 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

notițe: În codul de mai sus, ExtendOffice este textul specific pe care doriți să îl inserați, dacă trebuie să inserați data curentă în locul șirului de text, vă rugăm să schimbați textul din acest script xSel.InsertBefore Format ("ExtendOffice") la xSel.InsertBefore Format (Acum, „ZZ / LL / AAAA”).

3. Apoi, salvați și închideți fereastra codului, creați un e-mail nou și, în fereastra Mesaje, faceți clic pe Personalizați bara de instrumente cu acces rapid derulează și alege Mai multă comandă, vezi captura de ecran:

doc introduceți text la cursorul 1

4. În Opțiuni Outlook caseta de dialog, vă rugăm să efectuați următoarele operații:

(1.) Selectați Macrocomenzi de la Alege comanda din scapă jos;

(2.) Faceți clic pe numele macro pe care l-ați inserat;

(3.) Apoi, faceți clic pe Adăuga pentru a adăuga această macrocomandă la Personalizați bara de instrumente cu acces rapid casetă listă.

doc introduceți text la cursorul 2

5. Apoi, faceți clic OK pentru a închide caseta de dialog, acum, pictograma macro a fost inserată în Personalizați bara de instrumente cu acces rapid. Puneți cursorul acolo unde doriți să inserați textul, apoi faceți clic pe acest buton macro, textul specific va fi inserat simultan, vedeți captura de ecran:

doc introduceți text la cursorul 3


Introduceți text specific în orice locație atunci când compuneți mesajul:

cu Kutools pentru Outlook's Text automat caracteristică, puteți crea un text automat, apoi îl puteți insera oriunde când compuneți mesajul după cum aveți nevoie.

doc introduceți text la cursorul 4

Kutools pentru Outlook: cu mai mult de 100 de programe de completare Excel la îndemână, încercați fără limitări în 60 de zile. Descărcați și încercați încercarea gratuită acum!

Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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