Ändert die Seitenvorlage an der aktuellen  Cursorposition

Sub SetDocPageStyle(odoc as object,strNew as String)

  Dim oCursor As Object

  MyCursor = odoc.GetCurrentController.ViewCursor

  MyCursor.PageDescName = strNew

End Sub