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' Licensed to the Apache Software Foundation (ASF) under one 9' or more contributor license agreements. See the NOTICE file 10' distributed with this work for additional information 11' regarding copyright ownership. The ASF licenses this file 12' to you under the Apache License, Version 2.0 (the 13' "License"); you may not use this file except in compliance 14' with the License. You may obtain a copy of the License at 15' 16' http://www.apache.org/licenses/LICENSE-2.0 17' 18' Unless required by applicable law or agreed to in writing, 19' software distributed under the License is distributed on an 20' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21' KIND, either express or implied. See the License for the 22' specific language governing permissions and limitations 23' under the License. 24' 25'************************************************************************* 26 27 28 29 30 31' Be sure that all variables are dimensioned: 32option explicit 33 34 35' REQUIRED VARIABLES for interface/service tests: 36 37'Required for com.sun.star.document.XFilter 38Global oFilterDescriptor As Variant 39 40'Required for com.sun.star.lang.XInitialization 41Global aInitArgs() As Variant 42 43'Required for com.sun.star.document.XExporter 44Global oSrcDocument As Object 45 46Dim counter As Integer 47 48 49Sub CreateObj() 50 51'************************************************************************* 52' COMPONENT: 53' xmloff.Draw.XMLStylesExporter 54'************************************************************************* 55On error goto ErrHndl 56 Dim initArgs(0), oMSF, oStyleFamilies, oFamily, oStyle As Object 57 Dim oSFNames As Variant 58 Dim oFamilyName As String 59 Dim printXML As Boolean 60 Dim Tag1, Tag2, Tag3 As Variant 61 Dim expString As String 62 Dim filter As Variant 63 64 printXML = true 65 expString = "NewStyle" 66 counter = counter +1 67 oMSF = getProcessServiceManager() 68 oDoc = utils.createDocument("sdraw", cObjectName) 69 oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) 70 71 Tag1 = Array("office:document-styles") 72 Tag2 = Array("office:styles") 73 Tag3 = Array("style:style", "style:name", expString) 74 filter = Array( _ 75 Array("TagExists", Tag1, Tag2, Tag3), _ 76 Array("TagEnclosed", Tag3, Tag2) _ 77 ) 78 79 oDocHandler.initialize(filter) 80 81 initArgs(0) = oDocHandler 82 aInitArgs = initArgs() 83 oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Draw.XMLStylesExporter", initArgs()) 84 85 oStyleFamilies = oDoc.getStyleFamilies() 86 oSFNames = oStyleFamilies.getElementNames() 87 oFamilyName = oSFNames(0) 88 oFamily = oStyleFamilies.getByName(oFamilyName) 89 oStyle = oDoc.createInstance("com.sun.star.style.Style") 90 oFamily.insertByName(expString, oStyle) 91 92 oObj.setSourceDocument(oDoc) 93 94 Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue 95 aFilterDescr(0).Name = "FilterName" 96 aFilterDescr(0).Value = "sdraw: StarOffice XML (Draw)" 97 oFilterDescriptor = aFilterDescr() 98 99 oSrcDocument = oDoc 100Exit Sub 101ErrHndl: 102 Test.Exception() 103End Sub 104 105Global oDocHandler As Object 106 107Function checkFilter() As Boolean 108 checkFilter = oDocHandler.getByName("XMLIsCorrect") 109 Out.Log(oDocHandler.getByName("XMLCode")) 110End Function 111</script:module> 112