如何在Outlook中使用VBA为特定语言添加AutoCorrect条目

Question

我在Outlook中用不同的语言编写电子邮件，我经常需要为其中一种语言添加AutoCorrect条目。到AutoCorrect设置的菜单导航非常麻烦，所以我正在寻找一种用VBA宏编写脚本的方法。

浏览过各种互联网资源后，我仍然面临两个问题：

• 与其他Office应用程序(Word、Excel)不同，Outlook似乎没有Application.AutoCorrect属性。
• 在存在AutoCorrect对象的地方，它们没有指定应用于哪种语言。

是否仍有方法通过VBA宏为特定语言配置Outlook的AutoCorrect设置？

Answer 1

Office应用程序共享它们的AutoCorrect设置，因此诀窍是通过Word VBA对象库设置来配置它们：

Sub AddAutoCorrectEntry(typed As String, fixed As String, language As Word.WdLanguageID)
    Dim wordApp As Word.Application
    Set wordApp = New Word.Application

    ' Set language on a (non-empty) document
    Dim wordDoc As Word.Document
    Set wordDoc = wordApp.Documents.Add
    Call wordDoc.Range.InsertAfter("foo")
    Let wordDoc.Range.LanguageID = language

    ' Now AutoCorrect configures that language
    Call wordApp.AutoCorrect.Entries.Add(typed, fixed)

    Call wordApp.Quit(False)
End Sub

Answer 2

在中，假设在检查器中显示消息，Application.ActiveInspector.WordEditor.Application将为您提供公开AutoCorrect属性的Word应用程序对象。