刷新办公AutoCorrect列表

Question

我正在使用一些VBA来实时操作Office自动更正列表。在大多数情况下，我通过在Word中调用AutoCorrect方法来进行修改。问题是，似乎只有单词知道已经做出了改变。有没有办法触发其他办公应用程序(Outlook，PowerPoint)刷新自动更正，以便它们从更新的列表中工作？当你手动导航到AutoCorrect选项屏幕，通知应用程序发生了变化时，似乎发生了一些事情，所以我希望自动化它(不显示任何对话框)。任何洞察力都是非常值得欣赏的。

谢谢

Answer 1

您希望在Outlook中实现功能。但是，outlook中没有“自动更正”对象。

在Outlook Object Model中，假设一条消息正显示在检查器中，Application.ActiveInspector.WordEditor.Application将为您提供Word Application对象，该对象公开AutoCorrect属性。

您可以参考以下代码来获取document对象。

Dim oDoc As Word.Document   ' Or add a reference to the Microsoft Word Object Library for IntelliSense
    Dim oMail As Outlook.MailItem

    If TypeOf Application.ActiveInspector.CurrentItem Is Outlook.MailItem Then
        Set oMail = Application.ActiveInspector.CurrentItem
    Else
        Exit Sub
    End If

    Set oDoc = oMail.GetInspector.WordEditor