Доброе утро.

У меня проблема с получением кода для поиска других экземпляров слова, и я столкнулся с кирпичной стеной после долгих поисков в Google.

Мой код ниже найдет все открытые документы Word и заполнит их в поле со списком.

Моя проблема в том, что у нас есть приложения (я не контролирую их), которые открывают текстовые документы в новом экземпляре, и, следовательно, мой код не будет находить / контролировать эти документы.

Есть идеи?

Dim objWordDocument As Word.Document
Dim objWordApplication As Word.Application


'//find all open word documents
Set objWordApplication = GetObject(, "Word.Application")

'//clear combobox
    OpenDocs.Clear

'//add all open documents to combo box

        For Each objWordDocument In objWordApplication.Documents

            OpenDocs.AddItem objWordDocument.Name

        Next objWordDocument