在Outlook中撰写邮件时如何在光标处插入特定文本？ 

假设您有一些特定的文本字符串，它们在编写电子邮件时会经常使用，因此，您希望自动将文本插入光标在邮件正文中的当前位置，而无需一次又一次手动键入它们。 在本文中，我将讨论一种快速解决此任务的简便方法。

使用VBA代码编写消息时，在光标处插入特定的文本或当前日期

使用VBA代码编写消息时，在光标处插入特定的文本或当前日期

以下VBA代码可以帮助您在光标位置插入特定的文本字符串或当前日期，请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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（现在，“ DD / MM / YYYY”）.

3。 然后，保存并关闭代码窗口，创建一个新电子邮件，然后在“消息”窗口中单击 自定义快速访问工具栏 下拉，然后选择 更多命令，请参见屏幕截图：

4。 在 Outlook选项 对话框，请执行以下操作：

（1.）选择 宏 来自 从中选择命令 落下;

（2.）单击您插入的宏名称；

（3.）然后，单击 地址 按钮将此宏添加到 自定义快速访问工具栏 列表框。

5。 然后，单击 OK 按钮以关闭对话框，现在，宏图标已插入到 自定义快速访问工具栏。 将光标放在要插入文本的位置，然后单击此宏按钮，将立即插入特定文本，请参见屏幕截图：

---

最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件！ ...

📧 电子邮件自动化: 外出（适用于 POP 和 IMAP）  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发（高级规则）   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 轻松回忆电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版: 批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

超过 100特点 等待您的探索！ 单击此处了解更多。

了解更多       免费下载      购买