Seite 1 von 1

Dateivorlage ott per Marko öffnen und Dateinamen vorgeben?

Verfasst: Do 20. Mai 2021, 12:09
von svenp
Hallo, ist es möglich eine Dateivorlage per Makro zu öffnen und den Dateinamen vorzugeben?
In den Beispieldatenbanken -> Beispiel_Datenbank_Serienbrief_direkt_Hsqldb.odb wird aus dem Formular Anschrift Textfelder eine ott Vorlage aufgerufen mit den Formularfeldern ausgefüllt.

Ich habe versucht dem neuen Dokument auch gleich einen passenden Namen mitzugeben.
Aber egal was ich bisher versucht habe, öffnet sich das Dokument immer nur mit dem Namen Unbenannt.

Das naheliegenste war die den Text _blank auszutauschen. Das bringt leider nicht das gewünschte Ergebnis.

loadComponentFromURL(Url, "_blank", 0, Dummy())

Gruß

Sven

Re: Dateivorlage ott per Marko öffnen und Dateinamen vorgeben?

Verfasst: Do 20. Mai 2021, 17:56
von svenp
Ich habe etwas gefunden, aber es funktioniert nicht. Es ist ein Dokument das für OpenOffice 3.0 war.
Gibts das Argument nicht mehr oder heißt es jetzt anders?

Code: Alles auswählen

	args(0).Name = "AsTemplate"
	args(0).Value = true
	args(1).Name = "DocumentTitle"
	args(1).Value = "test.odt"
	

Re: Dateivorlage ott per Marko öffnen und Dateinamen vorgeben?

Verfasst: So 13. Jun 2021, 11:46
von Quak
Hi,

ich empfehle http://www.dannenhoefer.de/faqstarbasic ... l#Zweig140:

Nach dem Öffnen einfach direkt mit folgendem Code speichern (sName sollte vorher als String festgelegt werden):

Code: Alles auswählen

Sub Tabelle_speichern
Dim Dummy()
oNewURL = converttourl(sPfad & sName & ".odt" )
oWochenplan.storeasurl(oNewURL, Dummy())

End Sub
Wobei der Pfad mit folgendem Code aus der Vorlage ausgelsen wird:

Code: Alles auswählen

Function Pfad_auslesen


   sAktURL = MyDoc.url
   n = 1
   do until instr(n, sAktUrl, "/") = 0
      n = instr(n, sAktUrl, "/") +1
   loop
   sPfad = left(sAktURL, n-1)
Pfad_auslesen = sPfad

End Function
Sorry, falls hier noch ein paar Feinheiten nicht stimmen, habe aktuell leider keine Zeit das Ganze zu überprüfen. Sind lediglich Code-Schnipsel aus meinen Makros... Aber wenn du ein wenig eingearbeitet bist, könnten sie dir helfen.

Gruß

jkl