Question

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

谢谢

Answer 1

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

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

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

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

刷新办公室自动更正列表

1 个答案: