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

Как найти и заменить текст темы в сообщениях или задачах в Outlook?

Author: Xiaoyang Last Modified: 2025-06-05

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

Найти и заменить текст темы в нескольких сообщениях с помощью кода VBA

Найти и заменить текст темы в нескольких задачах с помощью кода VBA


Найти и заменить текст темы в нескольких сообщениях с помощью кода VBA

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

1. Выберите электронные письма, в которых вы хотите найти и заменить текст темы, затем нажмите клавиши "ALT + F11", чтобы открыть окно "Microsoft Visual Basic для приложений".

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

Код VBA: Найти и заменить текст темы в нескольких сообщениях:

Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
    Set xItem = xExplorer.Selection.Item(i)
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        With xMailItem
            xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub

Примечания: В приведенном выше коде: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" — это старый текст, который нужно найти, а "Kutools for Excel" — новый текст, на который вы хотите заменить. Пожалуйста, измените их в соответствии с вашими потребностями.

doc replace subjects 1

3. Затем нажмите клавишу "F5", чтобы запустить этот код, и конкретный текст в темах сообщений будет заменен новым текстом, как вам нужно, см. скриншот:

doc replace subjects 2

Найти и заменить текст темы в нескольких задачах с помощью кода VBA

Если вам нужно найти и заменить текст темы в задачах, следующий код VBA также может помочь вам.

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

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

Код VBA: Найти и заменить текст темы во всех задачах:

Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
    Set xNavFolder = xGroup.NavigationFolders.Item(i)
    For k = xNavFolder.Folder.Items.Count To 1 Step -1
        Set xTaskItem = xNavFolder.Folder.Items(k)
        If InStr(xTaskItem.Subject, xFindStr) > 0 Then
            xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
            xTaskItem.Save
            xTotalCount = xTotalCount + 1
        End If
    Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Затем нажмите клавишу "F5", чтобы выполнить этот код, и появится диалоговое окно, где нужно ввести текст, который вы хотите найти в темах задач, см. скриншот:

doc replace subjects 3

4. Нажмите "OK", и появится еще одно диалоговое окно, где нужно ввести новый текст, на который вы хотите заменить, см. скриншот:

doc replace subjects 4

5. Затем нажмите "OK", и появится диалоговое окно, которое покажет, сколько тем было изменено, см. скриншот:

doc replace subjects 5

6. Нажмите "OK", и старые тексты в темах задач будут заменены новыми, см. скриншот:

doc replace subjects 6

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

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

Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!

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

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

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

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

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

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

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

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

kutools for outlook features1 kutools for outlook features2