OpenOffice.info

Code: Alles auswählen

sub Geoeffnete_Fenster_Datei

DIM oFrames as object, oFrame as Object, oURL as Object, i%, sDatei as String
oFrames =StarDesktop.getFrames()

sDatei="c:\test\test.odt" '//gesuchte Datei

For i=1 to oFrames.getCount() '//Schleife durchläuft alle Frames
	oFrame=oFrames.getByIndex(i-1)
	oURL=oFrame.Controller.getModel()

	if UCASE(oURL.Location) = UCASE(convertToURL(sDatei)) then '//Abfrage nach dem Dateinamen
		msgBox "Die Datei ''" + sDatei + "'' ist geöffnet"
	end if
next

end sub

Code: Alles auswählen

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

Code: Alles auswählen

Sub Form_oeffnen

Dim vDoc 'die geladene Komponente
Dim Arg() 'ein leeres Array der Argumenteliste

Dim sURL as String, Sframe As String, lSearch As Long

sUrl = convertToURL("c:\verzeichnis\untergruppe\kalkulation.xls")
vDoc=StarDesktop.loadComponentFromURL (sURL, "_blank", 63, Arg())

end sub