OpenOffice.info

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

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]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[/code]

nochmals danke für deine tipps.

grüße

klaus

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