1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sc_ScAccessiblePageHeader" script:language="StarBasic"> 4 5 6'************************************************************************* 7' 8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 9' 10' Copyright 2000, 2010 Oracle and/or its affiliates. 11' 12' OpenOffice.org - a multi-platform office productivity suite 13' 14' This file is part of OpenOffice.org. 15' 16' OpenOffice.org is free software: you can redistribute it and/or modify 17' it under the terms of the GNU Lesser General Public License version 3 18' only, as published by the Free Software Foundation. 19' 20' OpenOffice.org is distributed in the hope that it will be useful, 21' but WITHOUT ANY WARRANTY; without even the implied warranty of 22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23' GNU Lesser General Public License version 3 for more details 24' (a copy is included in the LICENSE file that accompanied this code). 25' 26' You should have received a copy of the GNU Lesser General Public License 27' version 3 along with OpenOffice.org. If not, see 28' <http://www.openoffice.org/license.html> 29' for a copy of the LGPLv3 License. 30' 31'************************************************************************* 32'************************************************************************* 33 34 35 36' Be sure that all variables are dimensioned: 37option explicit 38 39 40' REQUIRED VARIABLES for interface/service tests: 41Global cLeft As Object 42Global cRight As Object 43Global cCenter As Object 44Global oStyle As Object 45Global RPHC2 As Object 46Global textIndex As Integer 47 48 49Sub CreateObj() 50 51'************************************************************************* 52' COMPONENT: 53' sc.ScAccessiblePageHeader 54'************************************************************************* 55On Error Goto ErrHndl 56 Dim xRoot As Object, xDispatcher As Object 57 Dim xController As Object, xCell As Object 58 Dim url As New com.sun.star.util.URL 59 Dim urlTransformer As Object, oWin As Object 60 Dim noProps() 61 Dim RPHC As Variant 62 63 oDoc = utils.createDocument("scalc",cObjectName) 64 xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) 65 xCell.setFormula("ScAccessiblePageHeader") 66 xController = oDoc.getCurrentController() 67 urlTransformer = createUNOService("com.sun.star.util.URLTransformer") 68 url.Complete = ".uno:PrintPreview" 69 urlTransformer.parseStrict(url) 70 xDispatcher = xController.queryDispatch(url,"",0) 71 if (NOT isNull(xDispatcher)) then 72 xDispatcher.dispatch(url, noProps()) 73 oWin = utils.at_getCurrentWindow(oDoc) 74 xRoot = utils.at_getAccessibleObject(oWin) 75 oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.HEADER) 76 else 77 Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") 78 Exit Sub 79 End If 80 oStyle = oDoc.getStyleFamilies().getByName("PageStyles").getByName("Default") 81 RPHC = oStyle.getPropertyValue("RightPageHeaderContent") 82 RPHC2 = RPHC 83 cLeft = RPHC2.getLeftText() 84 cRight = RPHC2.getRightText() 85 cCenter = RPHC2.getCenterText() 86 textIndex = 0 87 88Exit Sub 89ErrHndl: 90 Test.Exception() 91End Sub 92 93Sub fireEvent() 94 cLeft.setString("LEFT"+textIndex) 95 cRight.setString("RIGHT"+textIndex) 96 cCenter.setString("CENTER"+textIndex) 97 oStyle.setPropertyValue("RightPageHeaderContent",RPHC2) 98 textIndex = textIndex + 1 99End Sub 100</script:module> 101