Option Explicit Public sMSTemplateCheckbox(2) As String Public sMSDocumentCheckbox(2) As String Public sSODocumentCheckbox(4) As String Public sSOHelperdocuments(1,1) As String Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String Public sTemplateGroupName As String Public sSearchInSubDir as String Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String Public sImportLabel As String, sExportLabel As String Public SOApplicationName(5) As String Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String Public sSumInclusiveSubDir As String, sSumSaveDocuments As String Public sSummaryHeader As String Public sWelcometextLabel1 As String, sWelcometextLabel2 As String, sWelcometextLabel3 As String Public sBeginButton As String, sMsgDirNotThere As String Public sQueryForNewCreation As String, sPathError3 As String Public sNoDirCreation As String Public sProgressMoreDocs As String, sProgressMoreTemplates as String Public sFileExists As String, sMorePathsError3 As String Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String Public sRTErrorDesc As String, sRTErrorHeader As String Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String Public sProgressFound as String, sProgresspage_5 as String Public sContainerName(1) as String Public sReady as String, sTitle as String Public sCloseButton as String Public sSourceDocuments as String Public sTargetDocuments as String Public sSumSODocuments(4) as String Public sSumSOTemplates(4) as String Public sSumMSDocuments(3) as String Public sSumMSTemplates(3) as String Public ModuleList(3) as String Public sLogSummary as String Public sReeditMacro as String Public sOverwriteallFiles as String Public scouldnotopenDocument as String Public sCurcouldnotopenDocument as String Public scouldnotsaveDocument as String Public sCurcouldnotsaveDocument as String Sub LoadLanguage() If InitResources("ImportWizard","imp") then sHelpButton = GetResText(1000) sCancelButton = GetResText(1001) sBackButton = GetResText(1002) sNextButton = GetResText(1003) sBeginButton = GetResText(1004) sCloseButton = GetResText(1005) sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),"%PRODUCTNAME") sWelcometextLabel2 = GetResText(1007) sWelcometextLabel3 = GetResText(1008) ' Microsoft Documents GetApplResourceArray(1009, 3, sMSTemplateCheckBox()) ' DocumentCheckbox- Captions GetApplResourceArray(1012, 3, sMSDocumentCheckBox()) ' DocumentCheckbox- Captions GetApplResourceArray(2013, 5, sSODocumentCheckBox()) 'StarOffice Applicationnames sSOHelperDocuments(0,0) = GetResText(2017) sSOHelperDocuments(0,1) = "com.sun.star.text.GlobalDocument" sSOHelperDocuments(1,0) = GetResText(2018) sSOHelperDocuments(1,1) = "com.sun.star.formula.FormulaProperties" GetApplResourceArray(2017,2, sSOHelperDocuments()) sContainerName(0) = GetResText(1030) ' Note: for the version 5.2 there was no Productname "StarSuite" sContainerName(1) = "StarOffice" sSummaryHeader = GetResText(1031) sTemplateGroupName = GetResText(1036) sProgressMoreDocs = GetResText(1041) sProgressMoreTemplates = GetResText(1042) sNoDirCreation = GetResText(1050) sMsgDirNotThere = GetResText(1051) sQueryForNewCreation = GetResText(1052) sFileExists = GetResText(1053) sMorePathsError3 = GetResText(1054) sConvertError1 = GetResText(1055) sConvertError2 = GetResText(1056) sRTErrorDesc = GetResText(1057) sRTErrorHeader = GetResText(1058) sOverwriteallFiles = GetResText(1070) sReeditMacro = GetResText(1071) scouldnotsaveDocument = GetResText(1072) scouldnotopenDocument = GetResText(1073) sPathDialogMessage = GetResText(1080) sTitle = GetResText(1081) sProgressPage_1 = GetResText(1090) sProgressPage_2 = GetResText(1091) sProgressPage_3 = GetResText(1092) sProgressFound = GetResText(1093) sProgressPage_5 = GetResText(1094) sReady = GetResText(1100) sSourceDocuments = GetResText(2030) sTargetDocuments = GetResText(2031) sLogSummary = GetResText(2034) sSumInclusiveSubDir = GetResText(3000) sSumSaveDocuments = GetResText(3001) 'StarOffice Applicationnames GetApplResourceArray(3100, 4, sSumSODocuments()) GetApplResourceArray(3110, 4, sSumSOTemplates()) GetApplResourceArray(3200, 3, sSumMSDocuments()) GetApplResourceArray(3210, 3, sSumMSTemplates()) With ImportDialog sImportLabel = GetResText(1033) sExportLabel = GetResText(1034) sSearchInSubDir = GetResText(1022) .chkTemplateSearchSubDir.Label = sSearchInSubDir .lblDocumentImport.Label = sImportLabel .lblDocumentExport.Label = sExportLabel .chkDocumentSearchSubDir.Label = sSearchInSubDir .lblTemplateImport.Label = sImportLabel .lblTemplateExport.Label = sExportLabel .chkLogfile.Label = GetResText(2032) .chkLogfile.Helptext = GetResText(2033) Dim Blabla as String blabla = GetResText(1072) .cmdShowLogFile.Label = GetResText(2035) End With ModuleList(0) = "com.sun.star.text.TextDocument" ModuleList(1) = "com.sun.star.sheet.SpreadsheetDocument" ModuleList(2) = "com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument" ModuleList(3) = "com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument" End If End Sub Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray()) Dim i as Integer Dim a as Integer a = 0 For i = StartResIndex To StartResIndex + Count-1 BigArray(a) = GetResText(i) a = a + 1 Next End Sub