10.3.7 SetDocPageStyle
Ä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