Seite 1 von 1
Welche Dateien sind geöffnet
Verfasst: Mi, 21.03.2007 09:48
von 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
Verfasst: Mi, 21.03.2007 12:29
von 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
Klappt leider noch nicht
Verfasst: Mi, 21.03.2007 15:06
von 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
Verfasst: Mi, 21.03.2007 19:49
von Stephan
URL ist die gesuchte Eigenschaft.
Gruß
Stephan
Verfasst: Do, 22.03.2007 13:08
von 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
Verfasst: Do, 22.03.2007 13:13
von 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"
Gruß
Stephan
Allerbesten Dank
Verfasst: Do, 22.03.2007 14:39
von Hömmelmann
Hallo Stephan,
damit kann ich gut leben. Klappt super.
Danke, Friedhelm