如何在Outlook日曆中搜索和替換約會主題？

Author Siluvia Last modified 2025-08-23

當你需要將某些主題替換為相同文字時，或者在Outlook數據導入後需要替換主題字段中的“Copy”一詞時，使用Outlook日曆中的查找和替換功能非常有用。本文提供了一段VBA代碼來幫助你搜索和替換多個約會主題。請瀏覽更多詳細信息。

使用VBA代碼搜索和替換約會主題

使用VBA代碼搜索和替換約會主題

在本節中，你可以按照以下步驟使用VBA代碼搜索和替換約會主題。

1. 首先，你需要在Outlook中將宏設置調整為低安全性。

1) 在Outlook 2010和2013中，點擊「文件」>「選項」。在「Outlook選項」對話框中，點擊左側的「信任中心」，然後點擊「信任中心設置」按鈕。

在「信任中心」對話框中，點擊左側的「宏設置」，然後在「宏設置」部分選擇「啟用所有宏」選項，並點擊「確定」按鈕。參見截圖：

2) 在Outlook 2007中，請點擊「工具」>「信任中心」。在「信任中心」對話框中，點擊左側的「宏設置」，然後選擇「不檢查宏的安全性」選項，並點擊「確定」按鈕。

2. 按下「Alt」+「F11」鍵打開「Microsoft Visual Basic for Applications」窗口。

3. 在「Microsoft Visual Basic for Applications」窗口中，雙擊展開「project1」>「Microsoft Outlook Objects」>「ThisOutlookSession」以打開VBA編輯器。參見截圖：

4. 複製並將以下VBA代碼粘貼到VBA編輯器中。然後按下「F5」鍵運行代碼。

VBA：查找和替換約會主題

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. 運行代碼後，會彈出一個「Microsoft Outlook」對話框。點擊「確定」按鈕。

6. 在第二個「Microsoft Outlook」對話框中，輸入你想替換的文字，然後點擊「確定」按鈕。

7. 在第三個「Microsoft Outlook」對話框中，輸入你想用作替換的文字，然後點擊「確定」。

便簽：如果你只想從指定日曆的主題中刪除所有“Copy”單詞，請將此框留空。

8. 點擊下方對話框中的「確定」按鈕。

9. 在「選擇文件夾」對話框中，選擇指定郵件帳戶下的日曆，然後點擊「確定」按鈕。參見截圖：

10. 然後會彈出一個對話框通知你替換成功。請點擊「確定」按鈕。

11. 接下來，所選日曆中所有主題的文字都已替換為新內容。

最佳辦公室生產力工具

最新消息：Kutools for Outlook 推出免費版本！

體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！

🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！

只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！

Kutools for Outlook 功能清單立即下載前往購買

🚀 一鍵下載 — 獲取全部 Office 插件

強力推薦：Kutools for Office（5合1）

一鍵下載五個安裝程式，包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。立即下載！

✅ 一鍵便利：一次操作即可下載全部五套安裝包。
🚀 隨時處理任何 Office 任務：安裝您需求的插件，隨時隨地。
🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

套件介紹 ⬇下載套件 💳 購買套件