刷新Office自动更正列表

Question

我正在使用一些VBA来实时操作Office自动更正列表。在大多数情况下，我通过调用Word中的自动更正方法来进行修改。问题是只有Word似乎知道已经进行了更改。有没有办法触发其他Office应用程序（Outlook，PowerPoint）刷新自动更正，以便他们从更新列表工作？当您手动导航到“自动更正选项”屏幕时，似乎发生了一些事情，该屏幕通知应用程序发生了更改，因此我希望自动化它（不显示任何对话框）。任何见解都非常感谢。

谢谢

Answer 1

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

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

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

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