在 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 天免费试用！