Как вставить определенный текст в позицию курсора при написании сообщения в Outlook?
Предположим, у вас есть некоторые часто используемые текстовые строки, которые вы хотите автоматически вставлять в текущую позицию курсора в теле электронного письма, чтобы не вводить их вручную снова и снова. В этой статье я расскажу о простом методе для быстрого выполнения этой задачи.
Вставка определенного текста или текущей даты в позицию курсора при написании сообщения с помощью кода 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. Затем сохраните и закройте окно кода, создайте новое электронное письмо, и в окне Сообщение нажмите раскрывающийся список Настройка панели быстрого доступа и выберите Дополнительные команды, см. скриншот:
4. В диалоговом окне Параметры Outlook выполните следующие действия:
(1.) Выберите Макросы из выпадающего списка Выбрать команду из;
(2.) Нажмите имя макроса, которое вы добавили;
(3.) Затем нажмите кнопку Добавить, чтобы добавить этот макрос в список Панель быстрого доступа.
5. Затем нажмите кнопку ОК, чтобы закрыть диалоговое окно. Теперь значок макроса был добавлен на Панель быстрого доступа. Поместите курсор туда, куда вы хотите вставить текст, а затем нажмите эту кнопку макроса — нужный текст будет вставлен сразу же, см. скриншот:
Вставка определенного текста в любое место при написании сообщения: Благодаря функции Авто Текст в Kutools для Outlook вы можете создать авто текст и затем вставлять его в любом месте при написании сообщения по мере необходимости.  👉 У Kutools for Outlook теперь есть бесплатная версия, в которой 70+ функций доступны бесплатно на всю жизнь. Скачать бесплатную версию прямо сейчас. |
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
