Guten Morgen.

Ich habe ein Problem damit, meinen Code dazu zu bringen, andere Wortexemplare zu finden, und habe nach langer Google-Suche eine Ziegelmauer getroffen.

Mein Code unten findet alle offenen Word-Dokumente und fügt sie in ein Kombinationsfeld ein.

Mein Problem ist, dass wir Anwendungen haben (über die ich keine Kontrolle habe), die Word-Dokumente in einer neuen Instanz öffnen, und daher kann mein Code diese Dokumente nicht finden / kontrollieren.

Irgendwelche Ideen?

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