Как переместить курсор после указанного c слова в теле письма

Question

Я написал этот код для перемещения курсора Outlook на 5 слов вправо:

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

Есть ли у вас какие-либо идеи, как перемещать курсор мыши после указанного c слова в теле письма? Спасибо

Answer 1

Работа с Метод Find.Execute MSDN Найдите слово и переместите курсор

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

    With Selection.Find
        .MatchWildcards = False
        .Text = "word"
        .Execute
    End With

    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove

End Sub