Dzień dobry.

Mam problem ze znalezieniem kodu, aby znaleźć inne wystąpienia słowa i uderzyłem w ścianę po wielu wyszukiwaniach w Google.

Mój kod poniżej znajdzie wszystkie otwarte dokumenty tekstowe i zapełni je w polu kombi.

Moim problemem jest to, że mamy aplikacje (nie mam nad nimi kontroli), które otworzą dokumenty tekstowe w nowej instancji i dlatego mój kod nie będzie mógł znaleźć / kontrolować tych dokumentów.

Jakieś pomysły?

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