Welche Dateien sind geöffnet

[Hömmelmann]

Hallo,

ich habe mal wieder eine Frage:

Ich möchte in einem Makro feststellen, welche Dateien geöffnet sind und dann auf eine geöffnete Datei zugreifen.

Kann mir jemand helfen?


Danke, Friedhelm

[Stephan]

Das sollte gehen:

Code: Alles auswählen

Sub Main
alles = StarDesktop.getComponents()
elemente = alles.createEnumeration()
Do While elemente.HasMoreElements
   aktuell = elemente.NextElement()
   If HasUnoInterfaces( aktuell, "com.sun.star.frame.XModel" ) Then
   '*
   'hier sind Deine Dateien (und wohl auch noch etwas mehr, BasicIDE, etc.) 
   end if
Loop
End Sub

Bei '* mußt Du dann prüfen ob die gewünschte Datei vorliegt - ich kenne Deine Kriterien nicht.



Gruß
Stephan

[Hömmelmann]

Hallo,

ich habe leider noch Probleme mit dem Code.
Ich finde jede Menge Eigenschaften/Methoden für das Objekt "aktuell", leider aber keine mit dem Namen der geöffneten Datei.
Vielleicht bin ich aber auch nur zu blind?!


Gruß, Friedhelm

[Stephan]

URL ist die gesuchte Eigenschaft.


Gruß
Stephan

[hoefri55]

Hallo und Danke,


die URL kann ich auslesen, super!
Damit bin ich einen Schritt weiter, aber leider noch nicht glücklich.
Denn ich weiß noch nicht, wie ich eine so als geöffnet festgestellte Datei auslesen oder verändern kann.
Ich brauche also das Pendant zu "Doc = ThisComponent"


Gruß, Friedhelm

[Stephan]

Denn ich weiß noch nicht, wie ich eine so als geöffnet festgestellte Datei auslesen oder verändern kann.
Ich brauche also das Pendant zu "Doc = ThisComponent"

Code: Alles auswählen

Doc = aktuell

Gruß
Stephan

[Hömmelmann]

Hallo Stephan,

damit kann ich gut leben. Klappt super.


Danke, Friedhelm