---

Hallo Leute

In einer IV-VBA-Routine möchte ich feststellen, welche Dokumente aktuell geöffnet sind.

Gibt es da eine Möglichkeit?

Roland Weber

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Roland,

das ist alles, was Du brauchst:

MsgBox "Momentan sind " & ThisApplication.Documents.count & " Dokumente geöffnet", vbInformation, "offene Dokumente"

Gruesse,

Paul

www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oh, danke für die sehr schnelle Antwort, aber ....

Eigentlich brauche ich die Bezeichnung der offenen Dokumente.

Nach Deinem Hinweis habe ich es so probiert:

For i = 1 To ThisApplication.Documents.Count
  Debug.Print ThisApplication.Documents.Item(i).FullFileName
Next i

Doch es werden nicht nur die offenen Dokumente, sondern auch die im Assembly enthaltenen Dokumente aufgelistet.

Roland Weber

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub test_views()
    Dim oView As View
    For Each oView In ThisApplication.Views
        Debug.Print oView.Caption
    Next
End Sub

---

HTH

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke .....  that's it!

Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP