Seite 1 von 1

serienbrief und seitenvorlage

Verfasst: Mo, 25.05.2009 15:58
von kannenklaus
hallo zusammen,

ich nutze die serienbrieffunktion um daten in ein vorformatierte tabelle einzufügen. das klappt soweit; ungünstig dabei ist, dass für jeden datensatz/tabelle writer eine eigene seitenvorlage erzeugt und dadurch ein durchgehende nummerierung verhindert und wohl auch sehr viel zeit braucht.

kann man das irgendwie umgehen?

freue mich auf eine antwort.

danke klaus

Re: serienbrief und seitenvorlage

Verfasst: Di, 26.05.2009 09:09
von kannenklaus
hallo sanne,

besten dank für deine antwort. ich habe mir nun doch ein makro geschrieben, das zugegebenermaßen grob hobelt aber immerhin alle während der serienbriefausführung erzeugten seitenvorlagen löscht und diesen dann per default die vorlage standard zuweist.

Code: Alles auswählen

Option Explicit
Sub AlleSeitenvorlagenAufStandard
Dim vFamilies as Variant
Dim vStyleNames as Variant
Dim oPageStyles as Object, oPageStyle as Object, oPageStylesName as Object
Dim i as Integer
Dim sPageName as String
vFamilies=thisComponent.StyleFamilies

oPageStyles=vFamilies.PageStyles
oPageStylesName=oPageStyles.getElementNames
For i=LBound(oPageStylesName) to UBound(oPageStylesName)
	oPageStyle=oPageStyles.getByName(oPageStylesName(i)
	sPageName=oPageStyle.Name
	oPageStyles.removeByName(sPageName)
next i 
End Sub
nochmals danke für deine tipps.

grüße

klaus