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="xmloff_Draw_XMLStylesExporter" 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 37' Be sure that all variables are dimensioned: 38option explicit 39 40 41' REQUIRED VARIABLES for interface/service tests: 42 43'Required for com.sun.star.document.XFilter 44Global oFilterDescriptor As Variant 45 46'Required for com.sun.star.lang.XInitialization 47Global aInitArgs() As Variant 48 49'Required for com.sun.star.document.XExporter 50Global oSrcDocument As Object 51 52Dim counter As Integer 53 54 55Sub CreateObj() 56 57'************************************************************************* 58' COMPONENT: 59' xmloff.Draw.XMLStylesExporter 60'************************************************************************* 61On error goto ErrHndl 62 Dim initArgs(0), oMSF, oStyleFamilies, oFamily, oStyle As Object 63 Dim oSFNames As Variant 64 Dim oFamilyName As String 65 Dim printXML As Boolean 66 Dim Tag1, Tag2, Tag3 As Variant 67 Dim expString As String 68 Dim filter As Variant 69 70 printXML = true 71 expString = "NewStyle" 72 counter = counter +1 73 oMSF = getProcessServiceManager() 74 oDoc = utils.createDocument("sdraw", cObjectName) 75 oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) 76 77 Tag1 = Array("office:document-styles") 78 Tag2 = Array("office:styles") 79 Tag3 = Array("style:style", "style:name", expString) 80 filter = Array( _ 81 Array("TagExists", Tag1, Tag2, Tag3), _ 82 Array("TagEnclosed", Tag3, Tag2) _ 83 ) 84 85 oDocHandler.initialize(filter) 86 87 initArgs(0) = oDocHandler 88 aInitArgs = initArgs() 89 oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Draw.XMLStylesExporter", initArgs()) 90 91 oStyleFamilies = oDoc.getStyleFamilies() 92 oSFNames = oStyleFamilies.getElementNames() 93 oFamilyName = oSFNames(0) 94 oFamily = oStyleFamilies.getByName(oFamilyName) 95 oStyle = oDoc.createInstance("com.sun.star.style.Style") 96 oFamily.insertByName(expString, oStyle) 97 98 oObj.setSourceDocument(oDoc) 99 100 Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue 101 aFilterDescr(0).Name = "FilterName" 102 aFilterDescr(0).Value = "sdraw: StarOffice XML (Draw)" 103 oFilterDescriptor = aFilterDescr() 104 105 oSrcDocument = oDoc 106Exit Sub 107ErrHndl: 108 Test.Exception() 109End Sub 110 111Global oDocHandler As Object 112 113Function checkFilter() As Boolean 114 checkFilter = oDocHandler.getByName("XMLIsCorrect") 115 Out.Log(oDocHandler.getByName("XMLCode")) 116End Function 117</script:module> 118