OpenOffice.info

Code: Alles auswählen

' http://www.oooforum.org/forum/viewtopic.phtml?t=66453
' JohnV 2007-03-11 6:27pm
Sub GetPaths
On Error goto ErrorEnd
Dim ar,c,p,iAns
ar = Array("Basic","AutoCorrect","AutoText","Backup","Gallery","Graphic","Work","Template","Temp")
GlobalScope.BasicLibraries.LoadLibrary("Tools")
For c = 0 to uBound(ar)
p = ar(c)
iAns = MsgBox (ConvertFromURL(GetPathSettings(p)),1)
If iAns = 2 then End
Next
End
ErrorEnd:
MsgBox "Can't find "& p
End Sub

Code: Alles auswählen

<?xml version='1.0' encoding='UTF-8'?>
<oor:component-data oor:package="org.openoffice.Office" oor:name="Paths" xmlns:install="http://openoffice.org/2004/installation" xmlns:oor="http://openoffice.org/2001/registry" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

	<node oor:name="Paths">
		<node oor:name=[b]"Template"[/b] oor:op="fuse">
			<node oor:name=[b]"InternalPaths"[/b]>
				<node oor:name=[b]"%origin%/files"[/b] oor:op="fuse"/>
			</node>
		</node>
	</node>
</oor:component-data>

Code: Alles auswählen

<manifest:file-entry manifest:full-path="Paths.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>

Code: Alles auswählen

REM der zweite Parameter ist der Dateiname!!!
REM hier moegliche Eintraege als erster Parameter
REM "Basic" ,"AutoCorrect", "AutoText", "Backup", "Gallery", "Graphic", "Work", "Template", "Temp"
Sub Vorlage_Oeffnen
	OpenFileInPath("Template", "datei_vorlage.ott")
end Sub

Sub OpenFileInPath(pathName as String, templateFile as String)
	Dim i as Integer, TextPos As Integer
	Dim fullPath as String
	Dim templatePfad, pfade, sep
    
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	templatePfad = GetPathSettings(pathName)

	REM eigentlich unter Linux ein ":" zur Erinnerung stehen lassen!
	sep = getPathSeparator()
	sep = ";"
	pfade = ArrayOutOfString(templatePfad, sep)
    
	dim arg(0) as new com.sun.star.beans.PropertyValue
	arg(0).Name = "AsTemplate"
	arg(0).Value = True

	REM oeffnet den ersten Treffer im Pfad und verlaesst die Schleife
	For i = 0 to uBound(pfade)
		On Error goto naechste
   		fullPath = pfade(i) + "/" + templateFile
		
		if FileExists(fullPath) then
			StarDesktop.loadComponentfromURL(fullPath, "_blank", 0, arg())
			Exit For
		end if
		naechste:
	next i
End Sub