Як вставити конкретний текст біля курсору при складанні повідомлення в Outlook? 

Припустимо, у вас є певні текстові рядки, які часто використовуються при складанні повідомлення електронної пошти, тому ви хотіли б автоматично вставити текст у поточну позицію курсору в тілі пошти, не вводячи їх знову і знову. У цій статті я розповім про простий спосіб швидкого вирішення цього завдання.

Вставте конкретний текст або поточну дату в курсор під час створення повідомлення з кодом VBA

Вставте конкретний текст або поточну дату в курсор під час створення повідомлення з кодом VBA

Наступний код VBA може допомогти вам вставити певний текстовий рядок або поточну дату в позицію курсора. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль:

Код VBA: Вставте конкретний текст або поточну дату біля курсору

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

примітки: У наведеному вище коді, ExtendOffice це конкретний текст, який ви хочете вставити, якщо вам потрібно вставити поточну дату замість текстового рядка, будь ласка, змініть текст у цьому сценарії xSel.InsertBefore Format ("ExtendOffice") до xSel.InsertBefore Format (Зараз, "ДД / ММ / РРРР").

3. Потім збережіть і закрийте вікно коду, створіть новий електронний лист і у вікні Повідомлення натисніть Налаштування панелі швидкого доступу спадне меню та виберіть Більше команд, див. скріншот:

4, в Параметри Outlook діалоговому вікні, виконайте такі дії:

(1.) Виберіть Макрос від Виберіть команду з випадає;

(2.) Клацніть ім’я макросу, яке ви вставили;

(3.) Потім клацніть додавати , щоб додати цей макрос до Налаштування панелі швидкого доступу вікно списку.

5. А потім натисніть OK , щоб закрити діалогове вікно, піктограма макросу вставлена ​​в Налаштування панелі швидкого доступу. Помістіть курсор туди, куди ви хочете вставити текст, а потім натисніть цю кнопку макросу, конкретний текст буде вставлений відразу, див. Знімок екрана:

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити