Тело электронной почты Selection.Moveright время выполнения ошибка '-2147221164 Класс не зарегистрирован

Question

Я пытаюсь запустить макрос с selection.moveright в vba Outlook, но у меня появляется сообщение Run-time error '-2147221164 (class not registered).

У вас есть идеи, что это за проблема? Какую ссылку я должен установить?

Я уже установил библиотеки Microsoft Word 16.0 и Microsoft Outlook 16.0 (у меня MS Office 2016)

Вот макрос:

Function test()
    Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdMove
End Function 

Answer 1

Если вы запускаете код из Outlook, вам нужно будет ссылаться на объект Word в вашем коде

Пример

Option Explicit
Public Sub Example()
    Dim Inspector As Outlook.Inspector
    Dim wdDoc As Word.Document
    Dim Selection As Word.Selection


    Set Inspector = Application.ActiveInspector()
    Set wdDoc = Inspector.WordEditor
    Set Selection = wdDoc.Application.Selection
        Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdMove


    Set Inspector = Nothing
    Set wdDoc = Nothing
    Set Selection = Nothing
End Sub

Помните, что в этом примере мы работаем с Application.ActiveInspector ()