8.4.7 Wie kann man die Seitenvorlage ändern?
Die Seitenvorlage kann man mit der Eigenschaft PageDescName des aktuellen Cursors ändern.

myDoc = thiscomponent
Dim oCursor As Object
MyCursor = ThisComponent.Text.createTextCursor()
MyCursor.PageDescName = "Vorlage"

Siehe auch Makros vom Dannenhöfer

Sub SetDocPageStyle(odoc as object,strNew as String)
  Dim oCursor As Object
  MyCursor = ThisComponent.Text.createTextCursor()
  MyCursor.PageDescName = strNew
End Sub
Seitenanfang