是否存在Outlook AutoCorrect对象？如何快速向其自动更正库添加条目

• Outlook没有独立的AutoCorrect对象，它的自动更正功能依赖并共享Microsoft Word的AutoCorrect库。
• 你尝试的代码AutoCorrect.Entries.Add Name:=BadWord, Value:= GoodWord无法直接在Outlook中运行，因为Outlook对象模型不包含顶层的AutoCorrect对象。
• 要批量添加自动更正条目，直接操作Word的AutoCorrect对象即可，添加后的条目会自动同步到Outlook的邮件编辑场景中（因为Outlook的邮件编辑器基于Word引擎）。

示例VBA代码 #

Sub AddAutoCorrectEntriesToOutlook()
    Dim wordApp As Object
    Dim badWord As String, goodWord As String
    
    ' 后期绑定Word应用，无需提前引用库
    Set wordApp = CreateObject("Word.Application")
    
    ' 示例：添加单条更正规则，可扩展为批量循环处理
    badWord = "teh"
    goodWord = "the"
    
    wordApp.AutoCorrect.Entries.Add Name:=badWord, Value:=goodWord
    
    ' 关闭Word进程
    wordApp.Quit
    Set wordApp = Nothing
End Sub

内容的提问来源于stack exchange，提问作者BMoore