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