Makro-Abfrage, ob Datei bereits geöffnet ist

[mecki_45]

Hallo,
ich will feststellen, ob eine bestimmte Datei bereits geöfffnet ist.
* Ist die Datei geöffnet, so soll das Makro mit einer entsprechenden Meldung beendet werden.
* Ist die Datei nicht geöffnet, dann soll das Makro abgearbeitet werden.

In SO 5.2 habe ich dies bereits laufen gehabt, da aber die Programmierung in OO ist mir absolut noch nicht geläufig.

thx for help

Grüßle
Alex

[openmind]

Du kannst durch alle offenen Fenster loopen und dann das jeweilige Dokument per URL überprüfen. Aus Andrews Macro Document:

Code: Alles auswählen

Sub Main
  Dim oDocs As Object
  Dim oDoc As Object, oComponents As Object

  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  Do While oDocs.hasMoreElements()
    oDoc = oDocs.nextElement()
  Loop
End Sub