1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 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 12 * 13 * http://www.apache.org/licenses/LICENSE-2.0 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. 21 * 22 ***********************************************************--> 23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit 24 25Public sMSTemplateCheckbox(2) As String 26Public sMSDocumentCheckbox(2) As String 27Public sSODocumentCheckbox(4) As String 28Public sSOHelperdocuments(1,1) As String 29Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String 30Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String 31Public sTemplateGroupName As String 32Public sSearchInSubDir as String 33Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String 34Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String 35Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String 36Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String 37Public sImportLabel As String, sExportLabel As String 38Public SOApplicationName(5) As String 39Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String 40Public sSumInclusiveSubDir As String, sSumSaveDocuments As String 41Public sSummaryHeader As String 42Public sWelcometextLabel1 As String, sWelcometextLabel2 As String, sWelcometextLabel3 As String 43Public sBeginButton As String, sMsgDirNotThere As String 44Public sQueryForNewCreation As String, sPathError3 As String 45Public sNoDirCreation As String 46Public sProgressMoreDocs As String, sProgressMoreTemplates as String 47Public sFileExists As String, sMorePathsError3 As String 48Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String 49Public sRTErrorDesc As String, sRTErrorHeader As String 50Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String 51Public sProgressFound as String, sProgresspage_5 as String 52Public sContainerName(1) as String 53Public sReady as String, sTitle as String 54Public sCloseButton as String 55Public sSourceDocuments as String 56Public sTargetDocuments as String 57Public sSumSODocuments(4) as String 58Public sSumSOTemplates(4) as String 59Public sSumMSDocuments(3) as String 60Public sSumMSTemplates(3) as String 61Public ModuleList(3) as String 62Public sLogSummary as String 63Public sReeditMacro as String 64Public sOverwriteallFiles as String 65Public scouldnotopenDocument as String 66Public sCurcouldnotopenDocument as String 67Public scouldnotsaveDocument as String 68Public sCurcouldnotsaveDocument as String 69 70 71Sub LoadLanguage() 72 If InitResources("ImportWizard","imp") then 73 sHelpButton = GetResText(1000) 74 sCancelButton = GetResText(1001) 75 sBackButton = GetResText(1002) 76 sNextButton = GetResText(1003) 77 sBeginButton = GetResText(1004) 78 sCloseButton = GetResText(1005) 79 80 sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),"%PRODUCTNAME") 81 sWelcometextLabel2 = GetResText(1007) 82 sWelcometextLabel3 = GetResText(1008) 83 84 ' Microsoft Documents 85 GetApplResourceArray(1009, 3, sMSTemplateCheckBox()) 86 87 ' DocumentCheckbox- Captions 88 GetApplResourceArray(1012, 3, sMSDocumentCheckBox()) 89 90 ' DocumentCheckbox- Captions 91 GetApplResourceArray(2013, 5, sSODocumentCheckBox()) 92 93 ' OpenOffice Applicationnames 94 95 sSOHelperDocuments(0,0) = GetResText(2017) 96 sSOHelperDocuments(0,1) = "com.sun.star.text.GlobalDocument" 97 sSOHelperDocuments(1,0) = GetResText(2018) 98 sSOHelperDocuments(1,1) = "com.sun.star.formula.FormulaProperties" 99 100 GetApplResourceArray(2017,2, sSOHelperDocuments()) 101 102 sContainerName(0) = GetResText(1030) 103 ' Note: for the version 5.2 there was no Productname "StarSuite" 104 sContainerName(1) = "OpenOffice" 105 106 sSummaryHeader = GetResText(1031) 107 108 sTemplateGroupName = GetResText(1036) 109 110 sProgressMoreDocs = GetResText(1041) 111 sProgressMoreTemplates = GetResText(1042) 112 sNoDirCreation = GetResText(1050) 113 sMsgDirNotThere = GetResText(1051) 114 sQueryForNewCreation = GetResText(1052) 115 sFileExists = GetResText(1053) 116 sMorePathsError3 = GetResText(1054) 117 sConvertError1 = GetResText(1055) 118 sConvertError2 = GetResText(1056) 119 sRTErrorDesc = GetResText(1057) 120 sRTErrorHeader = GetResText(1058) 121 sOverwriteallFiles = GetResText(1070) 122 sReeditMacro = GetResText(1071) 123 scouldnotsaveDocument = GetResText(1072) 124 scouldnotopenDocument = GetResText(1073) 125 sPathDialogMessage = GetResText(1080) 126 sTitle = GetResText(1081) 127 128 sProgressPage_1 = GetResText(1090) 129 sProgressPage_2 = GetResText(1091) 130 sProgressPage_3 = GetResText(1092) 131 sProgressFound = GetResText(1093) 132 sProgressPage_5 = GetResText(1094) 133 sReady = GetResText(1100) 134 sSourceDocuments = GetResText(2030) 135 sTargetDocuments = GetResText(2031) 136 sLogSummary = GetResText(2034) 137 sSumInclusiveSubDir = GetResText(3000) 138 sSumSaveDocuments = GetResText(3001) 139 'OpenOffice Applicationnames 140 GetApplResourceArray(3100, 4, sSumSODocuments()) 141 GetApplResourceArray(3110, 4, sSumSOTemplates()) 142 GetApplResourceArray(3200, 3, sSumMSDocuments()) 143 GetApplResourceArray(3210, 3, sSumMSTemplates()) 144 With ImportDialog 145 sImportLabel = GetResText(1033) 146 sExportLabel = GetResText(1034) 147 sSearchInSubDir = GetResText(1022) 148 .chkTemplateSearchSubDir.Label = sSearchInSubDir 149 .lblDocumentImport.Label = sImportLabel 150 .lblDocumentExport.Label = sExportLabel 151 .chkDocumentSearchSubDir.Label = sSearchInSubDir 152 .lblTemplateImport.Label = sImportLabel 153 .lblTemplateExport.Label = sExportLabel 154 .chkLogfile.Label = GetResText(2032) 155 .chkLogfile.Helptext = GetResText(2033) 156 Dim Blabla as String 157 blabla = GetResText(1072) 158 .cmdShowLogFile.Label = GetResText(2035) 159 End With 160 ModuleList(0) = "com.sun.star.text.TextDocument" 161 ModuleList(1) = "com.sun.star.sheet.SpreadsheetDocument" 162 ModuleList(2) = "com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument" 163 ModuleList(3) = "com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument" 164 End If 165End Sub 166 167 168Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray()) 169Dim i as Integer 170Dim a as Integer 171 a = 0 172 For i = StartResIndex To StartResIndex + Count-1 173 BigArray(a) = GetResText(i) 174 a = a + 1 175 Next 176End Sub 177</script:module> 178