Set Cursor & Focus from any field to the body of a user Contact form in OL 2019

[Witzker]

Sub SetCursorAndFocus() ' Cursor appears in body, but focus stays in field where it was when calling the macro
  Dim objItem As Object
  Set objItem = Outlook.Application.ActiveInspector.CurrentItem
  If objItem Is Nothing Then
    MsgBox "No item is open."
    Exit Sub
  End If

  Dim objWordDoc As Word.Document
  Set objWordDoc = objItem.GetInspector.WordEditor
  If objWordDoc Is Nothing Then
    MsgBox "The open item is not a Word document."
    Exit Sub
  End If

  Dim objWordApp As Word.Application
  Set objWordApp = objWordDoc.Application

  ' Set the cursor to the end of the text field
  objWordApp.Selection.EndKey wdStory, wdMove

  ' Set the focus to the text field
  objWordApp.Selection.Range.Select
  Application.Activate
End Sub

Result when calling the macro when cursor is not in the body field:
Cursor appears in body, but focus stays in field where it was when calling the macro

after calling macro

Pls. Help to get this finally working.
I would need this procedure in connection with other macro
Many THX for taking care
------------------------------
PS: this is activated

Something missing?

 

[Witzker]

Pls see also This connected Thread

Outlook 2019 - Macro to check Cursor & Focus position

Hi, I'm working on a OL2019 custom contact form for further macro operations, I need the Info in which field the cursor & focus is at the moment To do This, I have now this code: Private Sub CheckContactField() MsgBox "Checking contact field..." Dim currField As ContactItem Set...

forums.slipstick.com