OpenOffice.info

Hallo Stephan,

genau das habe ich gesucht.

vielen, vielen Dank :D

Sub Main
oPathSettings = CreateUnoService( "com.sun.star.util.PathSettings" )
'alle Template-Pfade (als String)
Msgbox opathsettings.Template,,"Template"

'Pfade im Auslieferungszustand (.../Basis/Share/...) und Pfade die per Extension definiert sind (als Array)
x = opathsettings.Template_internal
For i = LBOUND(x()) To UBOUND(x())
j = j & x(i) & CHR(13)
Next i
Msgbox j,,"Template_internal"

j = ""
'vom Benutzer (Extras-Optionen) festgelegte Pfade (als Array)
x = opathsettings.Template_user
For i = LBOUND(x()) To UBOUND(x())
j = j & x(i) & CHR(13)
Next i
Msgbox j,,"Template_user"


'der eine mittels Option-Buttons markierte Template-Pfad in Extras-OPtionen (als String)
Msgbox opathsettings.Template_writable,,"Template_writable"

End Sub

Du suchst [url=http://www.openoffice.org/api/docs/common/ref/com/sun/star/util/PathSettings.html]com.sun.star.util.PathSettings[/url]

siehe auch:
https://wiki.openoffice.org/wiki/Documentation/DevGuide/OfficeDev/Path_Settings

im Konkreten für die Dokumentvorlagen:

[code]Sub Main
oPathSettings = CreateUnoService( "com.sun.star.util.PathSettings" )
'alle Template-Pfade (als String)
Msgbox opathsettings.Template,,"Template"

'Pfade im Auslieferungszustand (.../Basis/Share/...) und Pfade die per Extension definiert sind (als Array)
x = opathsettings.Template_internal
For i = LBOUND(x()) To UBOUND(x())
j = j & x(i) & CHR(13)
Next i
Msgbox j,,"Template_internal"

j = ""
'vom Benutzer (Extras-Optionen) festgelegte Pfade (als Array)
x = opathsettings.Template_user
For i = LBOUND(x()) To UBOUND(x())
j = j & x(i) & CHR(13)
Next i
Msgbox j,,"Template_user"


'der eine mittels Option-Buttons markierte Template-Pfad in Extras-OPtionen (als String)
Msgbox opathsettings.Template_writable,,"Template_writable"

End Sub[/code]


Gruß
Stephan

REM  *****  BASIC  *****

Sub GetTemplatePath
    Dim oDocProps
    oDocProps = ThisComponent.getDocumentProperties()
'    xray oDocProps
    MsgBox "TemplateURL " & oDocProps.TemplateURL
End Sub

Hallo,

es geht um den Vorlagenordner, welcher unter:
[list]
[*]OpenOffice
Menü Extras → Einstellungen... → OpenOffice → Pfade → Dokumentvorlagen
[*]LibreOffice
Menü Extras → Optionen... → LibreOffice → Pfade → Dokumentvorlagen
[/list]
eingetragen ist.

Dieser verweist entweder auf das Benutzerprofil → Templates
oder
es ist eine benutzerdefinierte Pfadangabe/ URL.

Ich habe dieses Beipielmakro gefunden, allerdings liefert es mir ein seltsames oder
kein Ergebnis wenn ich eine Dokumentvorlage als Vorlage geöffnet habe:
[code]
REM ***** BASIC *****

Sub GetTemplatePath
Dim oDocProps
oDocProps = ThisComponent.getDocumentProperties()
' xray oDocProps
MsgBox "TemplateURL " & oDocProps.TemplateURL
End Sub
[/code]
Ausserdem, möchte ich nicht per "[color=#4000FF]ThisComponent[/color]" die Dokumenteigenschaften
des gerade geöffneten Templates auslesen, sondern den Pfad/ die URL, welche
unter [color=#4000FF]Pfade → Dokumentvorlagen [/color]eingetragen ist.

Das Ganze sollte für Linux und Windows funktionieren.

Gibt es eine solche Methode?