[gelöst] Seriendruck für einen Katalog (Auktionsartikel)

[Nightskull]

Hallo, vielleicht habt ihr eine Idee wie ich ein Katalog in LO mit Seriendruckfelder aus einer Datenbank (Calc-Tabelle) realisieren kann.

Ich bin schon mal soweit, laut eurem Tipp (SerienbriefCalcdateiAlsDatenquelleEinbindenv2.pdf), wie man die Seriendruckfelder platzieren kann aus eine Datenbank.

2. SDFinWriter.png (46.13 KiB) 1656 mal betrachtet

Jetzt habe ich aber das Problem sobald ich das Writer Dokument drucken will, zunächst alle Seriendruckfelder jeweils auf eine Seite platziert werden.
Es sind ca. 1800 Seiten, soviel wie Auktionsartikel.
Das ist aber nicht sinnvoll, da die einzelnen Auktionsartikel hintereinander mit einer Zeile Zeile Abstand folgen sollten.

So sollte es aussehen:

0. KategorienVorher.png (153.05 KiB) 1656 mal betrachtet

1.KategorienNachher.png (154.66 KiB) 1656 mal betrachtet

[mikele]

Hallo,
am einfachsten jagst du folgendes Makro über die Datei:

Code: Alles auswählen

Sub Main
	oEnum = ThisComponent.Text.createEnumeration()
	Do While oEnum.hasMoreElements()
		oPar = oEnum.nextElement()
		If oPar.supportsService("com.sun.star.text.Paragraph") Then
			oParTest.PageDescName=""
		End If
	Loop
End Sub

Dadurch werden alle Seitenumbrüche entfernt.

[miesepeter]

Seitenumbruch im erzeugten Serienbriefdokument löschen ohne Makro

Beim Serienbrief werden die in einer einzelnen Datei gespeicherten "Ausdrucke" immer über den Seitenumbruch, der im ersten Absatz eines Teildokuments auftritt, gesteuert.

Die Lösung bestände also darin, dem ersten Absatz der mit mit Feldbefehlen gefüllten Seit eine singuläre Absatzvorlage zuzuweisen, also z. B. FließtextErsterAbsatz oder ähnlich.
Nach dem "Ausdruck" in eine Seriendokumentdatei kann man alle diese Absätze für alle "Teildokumente" markieren (z. B. mit SUCHEN&ERSETZEN) und manuell für alle einen Seitenumbruch entfernen/zuweisen/entfernen (u. U. mehrmals, dann geht das schon).

Ciao

[Nightskull]

Hallo,
am einfachsten jagst du folgendes Makro über die Datei:

Code: Alles auswählen

Sub Main
	oEnum = ThisComponent.Text.createEnumeration()
	Do While oEnum.hasMoreElements()
		oPar = oEnum.nextElement()
		If oPar.supportsService("com.sun.star.text.Paragraph") Then
			oParTest.PageDescName=""
		End If
	Loop
End Sub

Dadurch werden alle Seitenumbrüche entfernt.

Hallo mikeleb,

habe das Macro versucht, leider ohne Ergebnis. Also es passiert nicht , auch keine Fehlermeldung.

[mikele]

Hallo,
du hast das Makro in der fertigen Datei laufen lassen?
@miesepeter: ganz coole Idee!

[Nightskull]

Hallo,
du hast das Makro in der fertigen Datei laufen lassen?
@miesepeter: ganz coole Idee!

Hallo,

Ja in der Datei mit den vielen Seiten.
Die Idee von miesepeter habe ich nicht verstanden?

[mikele]

Hallo,
du könntest meine datei von hier
https://de.openoffice.info/download/file.php?id=20639
nehmen (da sind schon die Absatzvorlagen mit den Formatierungen enthalten, das Makro könnte auch entfernt werden).
Die erste Zeile (mit der Katalog_ID bzw. -bezeichnung) bekommt die Formatvorlage "auktionskategorie".
Dann fügst du die Seriendruckfelder ein und erstellst die Seriendruckdatei. In dieser Datei gehst du dann auf Suchen&Ersetzen und lässt nach der Absatzvorlage "auktionskategorie" suchen ("Alle suchen"). Dadurch werden alle dieses Absätze markiert/ausgewählt.
Über ->Format->Absatz->Textfluss kannst du nun die Umbrüche entfernen.

[karolus]

Hallo

Code: Alles auswählen

oParTest.PageDescName=""

ich nehme an das soll lauten:

Code: Alles auswählen

oPar.Text.PageDescName=""

?!

[Nightskull]

Die erste Zeile (mit der Katalog_ID bzw. -bezeichnung) bekommt die Formatvorlage "auktionskategorie".
Dann fügst du die Seriendruckfelder ein und erstellst die Seriendruckdatei. In dieser Datei gehst du dann auf Suchen&Ersetzen und lässt nach der Absatzvorlage "auktionskategorie" suchen ("Alle suchen"). Dadurch werden alle dieses Absätze markiert/ausgewählt.
Über ->Format->Absatz->Textfluss kannst du nun die Umbrüche entfernen.

hallo @mikele,

dein Tipp war wieder mal für mich hervoragend.
Das hat jetzt so funktioniert.
Ich habe meine Vorlage mit den formatierten Daten aus der DatenbankTabelle mit den Seriendruckfelder genommen.
Dann wie du oben beschrieben ausgeführt.
Das i Tüpfelchen wäre jetzt noch die doppelten Kategorien 1-176 nur einmal in den Dokument erscheinen lassen.
Eventuell mit einem Macro?

Ergebnis.png (857.21 KiB) 1578 mal betrachtet

[mikele]

Hallo,
@karolus: Danke, das ist der entscheidende Fehler (das kommt, wenn man nachdem man fertig ist noch etwas ändert ... )
So wird es richtig:

Code: Alles auswählen

Sub Main
	oEnum = ThisComponent.Text.createEnumeration()
	Do While oEnum.hasMoreElements()
		oPar = oEnum.nextElement()
		If oPar.supportsService("com.sun.star.text.Paragraph") Then
			oPar.PageDescName=""
		End If
	Loop
End Sub

@NightSkull: Um die wiederholten Kategorien zu entfernen, würde ich die csv-Datei bearbeiten. Ich gehe mal davon aus, dass in der cvs eine Spalte "Kategorie" exististiert und ab Zeile 2 die Werte darin stehen. In der ersten freien Spalte (nehmen wir mal an es wäre die Spalte H) würde ich in H1 eine neue Überschirft setzen (Kategorie_kurz).
In H2 dann die Formel:

Code: Alles auswählen

=WENN(A2=A1;"";A2)

und nach unten ziehen.
Wenn du die Datei dann wieder als csv abspeicherst, werden nur die Werte (nicht die Formel) gespeichert. Diese Spalte kannst du dann als Seriendruckfeld nutzen.