1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<!--***********************************************************
| 1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<!--***********************************************************
|
4 *
| 4 *
|
5 * Licensed to the Apache Software Foundation (ASF) under one
6 * or more contributor license agreements. See the NOTICE file
7 * distributed with this work for additional information
8 * regarding copyright ownership. The ASF licenses this file
9 * to you under the Apache License, Version 2.0 (the
10 * "License"); you may not use this file except in compliance
11 * with the License. You may obtain a copy of the License at
| 5 * Licensed to the Apache Software Foundation (ASF) under one
6 * or more contributor license agreements. See the NOTICE file
7 * distributed with this work for additional information
8 * regarding copyright ownership. The ASF licenses this file
9 * to you under the Apache License, Version 2.0 (the
10 * "License"); you may not use this file except in compliance
11 * with the License. You may obtain a copy of the License at
|
12 *
| 12 *
|
13 * http://www.apache.org/licenses/LICENSE-2.0
| 13 * http://www.apache.org/licenses/LICENSE-2.0
|
14 *
| 14 *
|
15 * Unless required by applicable law or agreed to in writing,
16 * software distributed under the License is distributed on an
17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
18 * KIND, either express or implied. See the License for the
19 * specific language governing permissions and limitations
20 * under the License.
| 15 * Unless required by applicable law or agreed to in writing,
16 * software distributed under the License is distributed on an
17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
18 * KIND, either express or implied. See the License for the
19 * specific language governing permissions and limitations
20 * under the License.
|
21 *
| 21 *
|
22 ***********************************************************-->
| 22 ***********************************************************-->
|
23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Writer" script:language="StarBasic">REM ***** BASIC *****
| 23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Writer" script:language="StarBasic">REM ***** BASIC *****
|
24
25
26Sub ConvertWriterTables()
27Dim CellString as String
28Dim oParagraphs as Object
29Dim oPara as Object
30Dim i as integer
31Dim sCellNames()
32Dim oCell as Object
33 oParagraphs = oDocument.Text.CreateEnumeration
34 While oParagraphs.HasMoreElements
35 oPara = oParagraphs.NextElement
36 If NOT oPara.supportsService("com.sun.star.text.Paragraph") Then
| 24
25
26Sub ConvertWriterTables()
27Dim CellString as String
28Dim oParagraphs as Object
29Dim oPara as Object
30Dim i as integer
31Dim sCellNames()
32Dim oCell as Object
33 oParagraphs = oDocument.Text.CreateEnumeration
34 While oParagraphs.HasMoreElements
35 oPara = oParagraphs.NextElement
36 If NOT oPara.supportsService("com.sun.star.text.Paragraph") Then
|
37 ' Note: As cells might be splitted or merged
| 37 ' Note: As cells might be split or merged
|
38 ' you cannot refer to them via their indices
39 sCellNames = oPara.CellNames
40 For i = 0 To Ubound(sCellNames)
41 If sCellNames(i) <> "" Then
42 oCell = oPara.getCellByName(sCellNames(i))
43 If CheckFormatType(oCell) Then
44 SwitchNumberFormat(oCell, oFormats, sEuroSign)
45 ModifyObjectValuewithCurrFactor(oCell)
--- 47 unchanged lines hidden --- | 38 ' you cannot refer to them via their indices
39 sCellNames = oPara.CellNames
40 For i = 0 To Ubound(sCellNames)
41 If sCellNames(i) <> "" Then
42 oCell = oPara.getCellByName(sCellNames(i))
43 If CheckFormatType(oCell) Then
44 SwitchNumberFormat(oCell, oFormats, sEuroSign)
45 ModifyObjectValuewithCurrFactor(oCell)
--- 47 unchanged lines hidden --- |