OpenOffice.info

Die letzte Frage poste ich in einem neuen Thread

Vorname,Nachname,Anzeigename,Spitzname,PrimäreEMailAdresse,SekundäreEMailAdresse,MessengerName,Teldienstlich,Telprivat,FaxNummer,PagerNummer,MobilTelNr,PrivatAdresse,PrivatAdresse2,PrivatOrt,PrivatBundesland,PrivatPLZ,PrivatLand,DienstlichAdresse,DienstlichAdresse2,DienstlichOrt,DienstlichBundesland,DienstlichPLZ,DienstlichLand,Arbeitstitel,Abteilung,Organisation,Webseite1,Webseite2,Geburtsjahr,Geburtsmonat,Geburtstag,Benutzerdef1,Benutzerdef2,Benutzerdef3,Benutzerdef4,Notizen,

Bedingter Text Adressen.Kunden.Organisation != "" Adressen.Kunden.Organisation : Adressen.Kunden.Anzeigename

Hallo Stephan,

genau so etwas habe ich gesucht. Das funktioniert auch schon mit dem Nachnamen, da ich den für die Biefanrede verwende.
Doch für die Anschrift verwende ich mit dem Bedingten Text entweder Organisation oder Anzeigename.
Hier der Header von der CSV
[code]
Vorname,Nachname,Anzeigename,Spitzname,PrimäreEMailAdresse,SekundäreEMailAdresse,MessengerName,Teldienstlich,Telprivat,FaxNummer,PagerNummer,MobilTelNr,PrivatAdresse,PrivatAdresse2,PrivatOrt,PrivatBundesland,PrivatPLZ,PrivatLand,DienstlichAdresse,DienstlichAdresse2,DienstlichOrt,DienstlichBundesland,DienstlichPLZ,DienstlichLand,Arbeitstitel,Abteilung,Organisation,Webseite1,Webseite2,Geburtsjahr,Geburtsmonat,Geburtstag,Benutzerdef1,Benutzerdef2,Benutzerdef3,Benutzerdef4,Notizen,
[/code]
Und hier der Bedingte Text im Anschriftsfeld
[code]
Bedingter Text Adressen.Kunden.Organisation != "" Adressen.Kunden.Organisation : Adressen.Kunden.Anzeigename
[/code]
Wenn ich den Anzeigenamen im Bedingten Text wandeln und kombinieren könnte in Vor- Nachname, wären die Felder in der Datei vorhanden.
Ich müsste im Makro nur eine Abfrage starten, ob zum Datensatz Organisation, oder Vor- und Nachname gefüllt sind.

Bisher hast Du mir schon sehr geholfen.

Asterix

Sub dateiname_erzeugen()
oEnum = ThisComponent.getTextFields().createEnumeration()
Do While oEnum.hasMoreElements()
	oField = oEnum.nextElement()
	If Left((LCase(oField.TextFieldMaster.InstanceName)), 38) = "com.sun.star.text.fieldmaster.database" Then
		If oField.TextFieldMaster.DataColumnName = "Vorname" Then
				Vorname = oField.CurrentPresentation
			ElseIf oField.TextFieldMaster.DataColumnName = "Nachname" Then
				Nachname = oField.CurrentPresentation
		End If
	End If
Loop
dateiname = Nachname & "_" & Vorname & "_" & Date & ".odt"
'...
End Sub

Wenn die entsprechenden Felder in einem Textdokument sind und die Angaben des aktuellen Datensatzes angezeigt werden läßt sich der gewünschte Dateiname so ermitteln/zusammensetzen:

[code]Sub dateiname_erzeugen()
oEnum = ThisComponent.getTextFields().createEnumeration()
Do While oEnum.hasMoreElements()
oField = oEnum.nextElement()
If Left((LCase(oField.TextFieldMaster.InstanceName)), 38) = "com.sun.star.text.fieldmaster.database" Then
If oField.TextFieldMaster.DataColumnName = "Vorname" Then
Vorname = oField.CurrentPresentation
ElseIf oField.TextFieldMaster.DataColumnName = "Nachname" Then
Nachname = oField.CurrentPresentation
End If
End If
Loop
dateiname = Nachname & "_" & Vorname & "_" & Date & ".odt"
'...
End Sub
[/code]
Gruß
Stephan

Gut, nun weiß ich, dass man es nicht macht, und ich werde es mir beim nächsten Mal zu Herzen nehmen.

Also, warum ich hier bin und nicht in Makro und Datenbank, kann ich schnell beantworten.
Ziel ist ein Symbolleisten-Knopf von einem Makro, der das aktuelle Dokument speichert und zwar unter folgender Vorgabe:
Dateiname -> Datenbank->Vorname_Datenbank->Nachname_AktuellesDatum.odt

Ich möchte nicht jedesmal den Vor- und Nachnamen sowie das aktuelle Datum eintippen müssen.
Klar, hat natürlich auch mit Makro und Datenbank zu tun.
Aber aus Writer heraus, und dort scheinen die com.sun.star... irgendetwas anders zu sein als unter base oder calc.
Da ich kein guter Programmierer bin, kann ich es auch nur so erklären

Asterix

Man macht das aber trotzdem immer noch so wie von Peter beschrieben mit einem Serienbriefdokument in Writer [b]ohne Makro[/b]

@pmoegenb : Ich wusste nicht, dass das verboten ist, aber ich erhoffte mehr Antworten und nicht mehr Kritik.
Deine Antwort hat nichts mit meiner Frage zutun.

Ich suche also immer noch nach der Möglichkeit, eine CSV-Datenbank aus einem Makro heraus anzusprechen

Asterix

Der einfachste Weg:

[list]- Datenbank-Übersicht/Ansicht mit F4 öffnen
- Datensatz markieren
- Auf Schalter Daten in Felder klicken
- Dokument als PDF exportieren[/list]

Machst Du das immer so, gleichlautende Anfragen in [url=http://www.libreoffice-forum.de/viewtopic.php?f=5&t=13919]2 Foren[/url] zu starten ? Dann musst Du damit rechnen keine Antworten zu erhalten.

Hallo Gemeinde,

seid einiger Zeit schlage ich mich mit LO und Makro's herum - obwohl ich nicht behaupten kann, dass ich der beste Programmierer bin ;-)
Mein Aktuelles Problem ist folgend:

Ich habe in Base eine CSV Datei als Datenbank angemeldet und nutze diese nun als KundenDatenbank.
Nun soll für einen einzelnen Kunden eine Rechung im PDF-Format gespeichert werden - Speichern geht auch schon :-)
Doch wie komme ich an den einzelnen Datensatz von Herrn Jupp Meier?

Die einzelen Adressfelder konnte ich einfach auf das Blatt ziehen und mit STRG+F9 identifizieren sich die Felder als Adressen.Kunden.Vorname Adressen.Kunden.Nachname usw.
Vielleicht kan mir jamand einen Stupps in die richtige Richtung geben.

Asterix