Word VBA Макросы: Установить фокус на уже открытый файл

[Посетитель]

Помогите пожалуйста с решением такого вопроса:
как найти окно с уже открытым файлом Word (если он, конечно, открыт) и установить на него фокус?

[Администратор]

Sub макрос()

    Dim doc As Document
   
    '1. Присваивание имени "doc" открытому файлу.
    Set doc = Documents("C:\Users\User\Desktop\Doc1.docx")
    '2. Отображение файла на мониторе.
    doc.Activate
   
End Sub

[Посетитель]

Спасибо!