Как вставить конкретный текст под курсором при составлении сообщения в Outlook? 

Предположим, у вас есть определенные текстовые строки, которые часто используются при составлении сообщения электронной почты, поэтому вы хотите автоматически вставлять текст в текущую позицию курсора в теле письма, не вводя их вручную снова и снова. В этой статье я расскажу о простом способе быстрого решения этой задачи.

Вставить конкретный текст или текущую дату в курсор при составлении сообщения с кодом VBA

Вставить конкретный текст или текущую дату в курсор при составлении сообщения с кодом VBA

Следующий код VBA может помочь вам вставить определенную текстовую строку или текущую дату в позицию курсора, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:

Код 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 for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

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

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

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

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите