von Marian » Di, 21.06.2011 11:19
Hallo an alle,
ich benutze OpenOffice 3 und tue mich schon länger schwer damit, per Makro den Inhalt eines Textfeldes auszulesen und in einer Variable zu speichern. Letzten Endes möchte ich den Inhalt des Textfeldes im zusammengesetzten Dateinamen haben. Der Dateiname setzt sich aus einem festen Namen, dem Datum und halt dem Inhalt des Textfeldes zusammen. Dem Textfeld habe ich über 'rechte Maustaste' - 'Name' den Namen "Code" gegeben. Muss es ein Formular-Textfeld sein, oder ist es vielleicht einfacher über ein normales?
Code: Alles auswählen
sub save_Gutschein
Path = "file:///I:/Beocos Bilder/" '[Pfad anpassen bei Windows]
dim args(0) as new com.sun.star.beans.PropertyValue
myDoc = thisComponent
sUrl=Left(Path, Len(Path) - 3) + "pdf"
date( Date )
args(0).Name="FilterName"
args(0).Value = "writer_pdf_Export"
myDoc.storetoUrl(Path & "Gutschein_" & date & "_" & "Inhalt_Textfeld" & ".pdf",args())
end sub
Soweit der Code. Ich habe meine Versuche den Inhalt des Textfeldes zu erhaschen jetzt nicht drin. Anscheind muss es über ein Array aller Textfelder gehen?!
Ich würde mich riesig über eure Hilfe freuen, denn ich komme einfach nicht weiter.
Danke schonmal im Voraus!
LG,
Marian
Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst
Hallo an alle,
ich benutze OpenOffice 3 und tue mich schon länger schwer damit, per Makro den Inhalt eines Textfeldes auszulesen und in einer Variable zu speichern. Letzten Endes möchte ich den Inhalt des Textfeldes im zusammengesetzten Dateinamen haben. Der Dateiname setzt sich aus einem festen Namen, dem Datum und halt dem Inhalt des Textfeldes zusammen. Dem Textfeld habe ich über 'rechte Maustaste' - 'Name' den Namen "Code" gegeben. Muss es ein Formular-Textfeld sein, oder ist es vielleicht einfacher über ein normales?
[code]
sub save_Gutschein
Path = "file:///I:/Beocos Bilder/" '[Pfad anpassen bei Windows]
dim args(0) as new com.sun.star.beans.PropertyValue
myDoc = thisComponent
sUrl=Left(Path, Len(Path) - 3) + "pdf"
date( Date )
args(0).Name="FilterName"
args(0).Value = "writer_pdf_Export"
myDoc.storetoUrl(Path & "Gutschein_" & date & "_" & "Inhalt_Textfeld" & ".pdf",args())
end sub
[/code]
Soweit der Code. Ich habe meine Versuche den Inhalt des Textfeldes zu erhaschen jetzt nicht drin. Anscheind muss es über ein Array aller Textfelder gehen?!
Ich würde mich riesig über eure Hilfe freuen, denn ich komme einfach nicht weiter.
Danke schonmal im Voraus!
LG,
Marian
[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst