Как открыть файл, а затем активировать это окно в VBA (Microsoft Word)?

В этом коде есть ряд факторов, которые вызовут или могут вызвать проблемы.

Причина ошибки в том, что этот код выполняется в Excel, поэтому, если objWord не используется для синтаксиса Word, а Word и Excel используют одно и то же имя для объекта, VBA попытается использовать объектную модель Excel. В этом случае, поскольку файл находится в Word, а не в Excel, использование objWord.Windows(Filename).Activate должно избежать этой конкретной ошибки.

Другие соображения:

Как и в Excel, использование Active, Activate или Selection в Word VBA ненадежно и не должно использоваться без крайней необходимости. Лучше работать с объектами приложения напрямую. Поэтому объявите и создайте экземпляр переменной для документа Word и используйте ее вместо ActiveDocument:

Dim objDoc as Object 'Word.Document
Set objDoc = objWord.Documents.Open(strPath)

FileName = objDoc.Name

Неизвестно, действительно ли вам нужно активировать это окно. Нет необходимости управлять содержимым документа через VBA. Если для того, чтобы показать пользователю, для редактирования, то непременно. Я мог бы подождать до конца кода, но это было бы личным предпочтением... В любом случае можно обратиться к окнам документа, в частности, вместо того, чтобы искать его в VBA:

objDoc.Windows(1).Activate

Чтобы перенести форматированное содержимое из одного места (Range) в любом документе в другое место (Range) в том же или другом документе, с помощью закладок можно сделать за один шаг, без какого-либо выбора или активации:

objDoc.Bookmarks("Page1").Range.FormattedText = _
       objWord.Documents("Template1").Bookmarks("Page1").Range.FormattedText

Похоже, вы хотите скопировать данные из документа Word в Excel. Это правильно? Код ниже сделает это за вас. Просто измените путь к файлу Word, на который вы ссылаетесь, и измените диапазоны, если это необходимо.

Sub Copy_From_Word()

    Application.DisplayAlerts = False 'Disable all the Alerts from excel
    Application.ScreenUpdating = False 'After opening Word Doc, Document will not be visible
    'Create a New Object for Microsoft Word Application
    Dim objWord As New Word.Application
    'Create a New Word Document Object
    Dim objDoc As New Word.Document
    'Open a Word Document and Set it to the newly created object above
    Set objDoc = objWord.documents.Open("C:\path_here\your_document.docx")
    'To Store all the content of that word Document in a variable
    strTemp = objDoc.Range(0, objDoc.Range.End)
    'Now store that variable value in to a cell range
    Range("A1").Value = strTemp
    str1 = objDoc.Range(0, 1)
    Range("A2").Value = str1
    Range("B2").Value = strTemp

    objDoc.Close SaveChanges:=wdDoNotSaveChanges
    objWord.Quit

End Sub