Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Xiaoyang Last modified

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

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


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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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(Now, "DD/MM/YYYY").

3. Затем сохраните и закройте окно кода, создайте новое электронное письмо, и в окне Сообщение нажмите раскрывающийся список Настройка панели быстрого доступа и выберите Дополнительные команды, см. скриншот:

doc insert text at cursor 1

4. В диалоговом окне Параметры Outlook выполните следующие действия:

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

(2.) Нажмите имя макроса, которое вы добавили;

(3.) Затем нажмите кнопку Добавить, чтобы добавить этот макрос в список Панель быстрого доступа.

doc insert text at cursor 2

5. Затем нажмите кнопку ОК, чтобы закрыть диалоговое окно. Теперь значок макроса был добавлен на Панель быстрого доступа. Поместите курсор туда, куда вы хотите вставить текст, а затем нажмите эту кнопку макроса — нужный текст будет вставлен сразу же, см. скриншот:

doc insert text at cursor 3

Вставка определенного текста в любое место при написании сообщения:

Благодаря функции Авто Текст в Kutools для Outlook вы можете создать авто текст и затем вставлять его в любом месте при написании сообщения по мере необходимости.

doc insert text at cursor 4
 👉 У Kutools for Outlook теперь есть бесплатная версия, в которой 70+ функций доступны бесплатно на всю жизнь. Скачать бесплатную версию сейчас.

Лучшие инструменты для повышения продуктивности работы с Office

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

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

🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите – скачайте и улучшите свою эффективность прямо сейчас!

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!

  • Все просто: скачайте все пять установочных пакетов одним действием.
  • 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
  • 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint