156 lines
6 KiB
XML
156 lines
6 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
|
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">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, 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")
|
|
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
|
|
</script:module>
|