如何在 Outlook 撰寫郵件時，於游標所在位置插入特定文字？

假設您在撰寫電子郵件時經常使用某些特定文字字串，希望能在郵件內文的游標位置一鍵自動插入這些內容，省去反覆手動輸入的麻煩。本文將為您介紹一種簡便又高效的方法，輕鬆達成此目標。

使用 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. 接著，關閉保存並關閉程式碼視窗，建立一個新建郵件，並在郵件視窗中點選自訂快速存取工具列下拉選單，然後選擇其他命令，如截圖所示：

4. 在 Outlook 選項對話方塊中，請執行下列操作：

（1.） 從巨集選單的從下列選取命令下拉清單中選擇；

（2.） 點選您已插入的巨集名稱；

（3.） 接著，點選新增按鈕，即可將此巨集加入自訂快速存取工具列清單方塊中。

5. 然後，點選確定按鈕關閉對話方塊。此時，巨集圖示已加入自訂快速存取工具列。將游標移至您要插入文字的位置，再點選此巨集按鈕，即可立即插入特定文字，如截圖所示：

---

撰寫郵件時，在任意位置插入特定文字： 透過 Kutools for Outlook 的自動文字功能，您可輕鬆建立常用內容，並在撰寫郵件時一鍵插入至所需位置！ 👉在 Outlook 中更聰明地工作！下載 Kutools for Outlook，透過 100+ 節省時間的功能提升工作效率——免費試用 30 天！