1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
<?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, 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
</script:module>
|
