Обновить список автозамены Office - PullRequest
Новая
       14

Обновить список автозамены Office

0 голосов
/ 13 сентября 2018

Я использую некоторые VBA для управления списком автозамены Office в режиме реального времени. По большей части у меня есть изменения, работающие путем вызова методов автозамены в Word. Проблема в том, что только Word, кажется, знает, что изменение было сделано. Есть ли способ запустить другие приложения Office (Outlook, PowerPoint) для обновления автозамены, чтобы они работали из обновленного списка? Кажется, что-то происходит, когда вы вручную переходите к экрану параметров автозамены, который информирует приложения о том, что произошло изменение, поэтому я надеюсь автоматизировать его (не представляя никакого диалога). Любое понимание очень ценится.

Спасибо

1 Ответ

0 голосов
/ 14 сентября 2018

Вы хотите реализовать функциональность в Outlook. Однако в outlook нет объекта автозамены.

В объектной модели Outlook при условии, что в инспекторе отображается сообщение, Application.ActiveInspector.WordEditor.Application предоставит вам объект приложения Word, который предоставляет свойство 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
...