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_ScIndexEnumeration_DDELinksEnumeration" script:language="StarBasic"> 4 5'************************************************************************* 6' 7' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 8' 9' Copyright 2000, 2010 Oracle and/or its affiliates. 10' 11' OpenOffice.org - a multi-platform office productivity suite 12' 13' This file is part of OpenOffice.org. 14' 15' OpenOffice.org is free software: you can redistribute it and/or modify 16' it under the terms of the GNU Lesser General Public License version 3 17' only, as published by the Free Software Foundation. 18' 19' OpenOffice.org is distributed in the hope that it will be useful, 20' but WITHOUT ANY WARRANTY; without even the implied warranty of 21' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22' GNU Lesser General Public License version 3 for more details 23' (a copy is included in the LICENSE file that accompanied this code). 24' 25' You should have received a copy of the GNU Lesser General Public License 26' version 3 along with OpenOffice.org. If not, see 27' <http://www.openoffice.org/license.html> 28' for a copy of the LGPLv3 License. 29' 30'************************************************************************* 31'************************************************************************* 32 33 34 35' Be sure that all variables are dimensioned: 36option explicit 37 38 39' REQUIRED VARIABLES for interface/service tests: 40Global oTestDoc As Object 41 42Sub CreateObj() 43 44'************************************************************************* 45' COMPONENT: 46' sc.ScIndexEnumeration_DDELinksEnumeration 47'************************************************************************* 48On Error Goto ErrHndl 49 Dim testDoc, oF As String 50 Dim oSheet As Object 51 52 oDoc = utils.createDocument("scalc", cObjectName) 53 oSheet = oDoc.Sheets.getByIndex(0) 54 55 oTestDoc = utils.loadTestDocument("ScDDELinksObj.sdc") 56 57 ' This construction of 2-way convertion of testdocs location 58 ' should take place here, because there is unnecessary slash at the end of 59 ' cTestDocsDir. 60 testDoc = utils.URL2Path(utils.Path2URL(cTestDocsDir & "ScDDELinksObj.sdc")) 61 62 oF = "=DDE(""soffice"";""" & testDoc & """;""Sheet1.A1"")" 63 64 oSheet.getCellByPosition(1, 2).Formula = oF 65 oSheet.getCellByPosition(3, 4).Formula = oF 66 oSheet.getCellByPosition(5, 6).Formula = oF 67 68 oObj = oDoc.getPropertyValue("DDELinks").createEnumeration() 69 70Exit Sub 71ErrHndl: 72 Test.Exception() 73End Sub 74 75' close ScDDELinksObj.sdc 76Sub DisposeObj() 77 oTestDoc.dispose() 78end sub 79</script:module> 80