OpenOffice.info

Hallo Ihr

erst einmal danke ich euch beiden, echt super schnell,

das sieht gut aus, denke damit kann ich schon was anfangen, glaube ich jedenfalls
da bei diesen meinen Vorlagen sowieso schon beim speichern ein Makro gestartet wird.
Da muss ich jetzt mal wieder ein bisschen Makro tüfteln.....

wenn ich nicht klar komme, weiß ich ja wo ich fragen kann :D


[color=#FF0000][b]edit:[/b][/color]
bin damit nun doch ins Basic-Forum [url=http://de.openoffice.info/viewtopic.php?f=18&t=41068][b]dahin[/b][/url] umgezogen

Sub beimSpeichern

If ThisComponent.hasLocation() Then
   Exit Sub
End If
If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) Then
   GlobalScope.BasicLibraries.loadLibrary( "Tools" )
End If


oMasterKey = GetRegistryKeyContent("org.openoffice.TypeDetection.Types")
oTypes() = oMasterKey.Types
oUIKey = GetRegistryKeyContent("org.openoffice.Office.UI/FilterClassification/LocalFilters")

aFilterNames(0,0) = oTypes.GetByName( "writer8" ).UIName & " (*.odt)"
aFilterNames(0,1) = "*.odt"
aFilterNames(0,2) = oTypes.GetByName( "writer8" ).Name


' Routine aus TOOLS
StoreDocument( ThisComponent, aFilterNames, "Vorschlag", ConvertToURL( "/zentrale/daten/testdata" ) 

End Sub

noch 'ne Antwort:


das ist auch schon mitgeliefert 8)
Es wird eine Routine aus der Bibliothek [color=#008000]TOOLS[/color] genutzt.
Verzeichnisname und Dateinamen-"[color=#0040FF]Vorschlag[/color]" ggfs. anpassen

Folgendes Makro speichert als ODF-Textdokument... an das[color=#008000] Extras>Anpassen...>Ereignis>[/color][color=#0040FF]Dokument speichern[/color] der Vorlage angehängt


[code]
Sub beimSpeichern

If ThisComponent.hasLocation() Then
Exit Sub
End If
If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) Then
GlobalScope.BasicLibraries.loadLibrary( "Tools" )
End If


oMasterKey = GetRegistryKeyContent("org.openoffice.TypeDetection.Types")
oTypes() = oMasterKey.Types
oUIKey = GetRegistryKeyContent("org.openoffice.Office.UI/FilterClassification/LocalFilters")

aFilterNames(0,0) = oTypes.GetByName( "writer8" ).UIName & " (*.odt)"
aFilterNames(0,1) = "*.odt"
aFilterNames(0,2) = oTypes.GetByName( "writer8" ).Name


' Routine aus TOOLS
StoreDocument( ThisComponent, aFilterNames, "Vorschlag", ConvertToURL( "/zentrale/daten/testdata" )

End Sub[/code]

Ich wusste, dass ich einge ähnliche Frage schonmal gelesen habe:
http://de.openoffice.info/viewtopic.php?f=1&t=27647&p=115062&hilit=Speicherpfad#p115062

Hylli ;)

Hallo Leutz,

besteht die Möglichkeit in einer Vorlage einen vom Standard abweichenden Speicherpfad zu bestimmen ?
also zB Dateien die mit der
Vorlage Rechnung erstellt wurden immer in ..\Rechnungen\ ablegen
und mit Vorlage Angebot erstellte immer in ..\Angebote\ ablegen oder so ähnlich

oder kann man das irgendwie anders realisieren ?