SetDocPageStyle

Ändert die Seitenvorlage an der aktuellen Cursorposition

Basic

Sub SetDocPageStyle(odoc as object,strNew as String)
  Dim oCursor As Object
  MyCursor = odoc.GetCurrentController.ViewCursor
  MyCursor.PageDescName = strNew
End Sub