use insert function instead of for loop
[LibreOffice.git] / wizards / source / importwizard / Language.xba
blobbd890ed63788b429f57b1381cb19b7717fb7a020
1 <?xml version="1.0" encoding="UTF-8"?>
2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3 <!--
4 * This file is part of the LibreOffice project.
6 * This Source Code Form is subject to the terms of the Mozilla Public
7 * License, v. 2.0. If a copy of the MPL was not distributed with this
8 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
10 * This file incorporates work covered by the following license notice:
12 * Licensed to the Apache Software Foundation (ASF) under one or more
13 * contributor license agreements. See the NOTICE file distributed
14 * with this work for additional information regarding copyright
15 * ownership. The ASF licenses this file to you under the Apache
16 * License, Version 2.0 (the "License"); you may not use this file
17 * except in compliance with the License. You may obtain a copy of
18 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
19 -->
20 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
22 Public sMSTemplateCheckbox(2) As String
23 Public sMSDocumentCheckbox(2) As String
24 Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
25 Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
26 Public sTemplateGroupName As String
27 Public sSearchInSubDir as String
28 Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
29 Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
30 Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
31 Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
32 Public sImportLabel As String, sExportLabel As String
33 Public SOApplicationName(5) As String
34 Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
35 Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
36 Public sSummaryHeader As String
37 Public sWelcometextLabel1 As String, sWelcometextLabel3 As String
38 Public sBeginButton As String, sMsgDirNotThere As String
39 Public sQueryForNewCreation As String, sPathError3 As String
40 Public sNoDirCreation As String
41 Public sProgressMoreDocs As String, sProgressMoreTemplates as String
42 Public sFileExists As String, sMorePathsError3 As String
43 Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
44 Public sRTErrorDesc As String, sRTErrorHeader As String
45 Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
46 Public sProgressFound as String, sProgresspage_5 as String
47 Public sContainerName(1) as String
48 Public sReady as String, sTitle as String
49 Public sCloseButton as String
50 Public sSourceDocuments as String
51 Public sTargetDocuments as String
52 Public sSumMSDocuments(3) as String
53 Public sSumMSTemplates(3) as String
54 Public ModuleList(3) as String
55 Public sLogSummary as String
56 Public sReeditMacro as String
57 Public sOverwriteallFiles as String
58 Public sCouldnotopenDocument as String
59 Public sCurcouldnotopenDocument as String
60 Public sCouldnotsaveDocument as String
61 Public sCurcouldnotsaveDocument as String
64 Sub LoadLanguage()
65 If InitResources(&quot;ImportWizard&quot;) then
66 sHelpButton = GetResText(&quot;HelpButton&quot;)
67 sCancelButton = GetResText(&quot;CancelButton&quot;)
68 sBackButton = GetResText(&quot;BackButton&quot;)
69 sNextButton = GetResText(&quot;NextButton&quot;)
70 sBeginButton = GetResText(&quot;BeginButton&quot;)
71 sCloseButton = GetResText(&quot;CloseButton&quot;)
73 sWelcometextLabel1 = ReplaceString(GetResText(&quot;WelcometextLabel1&quot;), GetProductName(),&quot;%PRODUCTNAME&quot;)
74 sWelcometextLabel3 = GetResText(&quot;WelcometextLabel3&quot;)
76 &apos; Microsoft Documents
77 sMSTemplateCheckBox(0) = GetResText(&quot;MSTemplateCheckbox_1_&quot;)
78 sMSTemplateCheckBox(1) = GetResText(&quot;MSTemplateCheckbox_2_&quot;)
79 sMSTemplateCheckBox(2) = GetResText(&quot;MSTemplateCheckbox_3_&quot;)
81 &apos; DocumentCheckbox- Captions
82 sMSDocumentCheckBox(0) = GetResText(&quot;MSDocumentCheckbox_1_&quot;)
83 sMSDocumentCheckBox(1) = GetResText(&quot;MSDocumentCheckbox_2_&quot;)
84 sMSDocumentCheckBox(2) = GetResText(&quot;MSDocumentCheckbox_3_&quot;)
86 &apos;StarOffice Applicationnames
88 sContainerName(0) = GetResText(&quot;MSContainerName&quot;)
90 sSummaryHeader = GetResText(&quot;SummaryHeader&quot;)
92 sTemplateGroupName = GetResText(&quot;GroupnameDefault&quot;)
94 sProgressMoreDocs = GetResText(&quot;ProgressMoreDocs&quot;)
95 sProgressMoreTemplates = GetResText(&quot;ProgressMoreTemplates&quot;)
96 sNoDirCreation = GetResText(&quot;NoDirCreation&quot;)
97 sMsgDirNotThere = GetResText(&quot;MsgDirNotThere&quot;)
98 sQueryForNewCreation = GetResText(&quot;QueryfornewCreation&quot;)
99 sFileExists = GetResText(&quot;FileExists&quot;)
100 sMorePathsError3 = GetResText(&quot;MorePathsError3&quot;)
101 sConvertError1 = GetResText(&quot;ConvertError1&quot;)
102 sConvertError2 = GetResText(&quot;ConvertError2&quot;)
103 sRTErrorDesc = GetResText(&quot;RTErrorDesc&quot;)
104 sRTErrorHeader = GetResText(&quot;RTErrorHeader&quot;)
105 sOverwriteallFiles = GetResText(&quot;OverwriteallFiles&quot;)
106 sReeditMacro = GetResText(&quot;ReeditMacro&quot;)
107 sCouldnotsaveDocument = GetResText(&quot;CouldNotsaveDocument&quot;)
108 sCouldnotopenDocument = GetResText(&quot;CouldNotopenDocument&quot;)
109 sPathDialogMessage = GetResText(&quot;PathDialogMessage&quot;)
110 sTitle = GetResText(&quot;DialogTitle&quot;)
112 sProgressPage_1 = GetResText(&quot;ProgressPage1&quot;)
113 sProgressPage_2 = GetResText(&quot;ProgressPage2&quot;)
114 sProgressPage_3 = GetResText(&quot;ProgressPage3&quot;)
115 sProgressFound = GetResText(&quot;ProgressFound&quot;)
116 sProgressPage_5 = GetResText(&quot;ProgressPage5&quot;)
117 sReady = GetResText(&quot;Ready&quot;)
118 sSourceDocuments = GetResText(&quot;SourceDocuments&quot;)
119 sTargetDocuments = GetResText(&quot;TargetDocuments&quot;)
120 sLogSummary = GetResText(&quot;LogfileSummary&quot;)
121 sSumInclusiveSubDir = GetResText(&quot;SumInclusiveSubDir&quot;)
122 sSumSaveDocuments = GetResText(&quot;SumSaveDokumente&quot;)
123 sSumMSDocuments(0) = GetResText(&quot;SumMSTextDocuments&quot;)
124 sSumMSDocuments(1) = GetResText(&quot;SumMSTableDocuments&quot;)
125 sSumMSDocuments(2) = GetResText(&quot;SumMSDrawDocuments&quot;)
126 sSumMSTemplates(0) = GetResText(&quot;SumMSTextTemplates&quot;)
127 sSumMSTemplates(1) = GetResText(&quot;SumMSTableTemplates&quot;)
128 sSumMSTemplates(2) = GetResText(&quot;SumMSDrawTemplates&quot;)
129 With ImportDialog
130 sImportLabel = GetResText(&quot;TextImportLabel&quot;)
131 sExportLabel = GetResText(&quot;TextExportLabel&quot;)
132 sSearchInSubDir = GetResText(&quot;SearchInSubDir&quot;)
133 .chkTemplateSearchSubDir.Label = sSearchInSubDir
134 .lblDocumentImport.Label = sImportLabel
135 .lblDocumentExport.Label = sExportLabel
136 .chkDocumentSearchSubDir.Label = sSearchInSubDir
137 .lblTemplateImport.Label = sImportLabel
138 .lblTemplateExport.Label = sExportLabel
139 .chkLogfile.Label = GetResText(&quot;CreateLogfile&quot;)
140 .chkLogfile.Helptext = GetResText(&quot;LogfileHelpText&quot;)
141 .cmdShowLogFile.Label = GetResText(&quot;ShowLogfile&quot;)
142 End With
143 ModuleList(0) = &quot;com.sun.star.text.TextDocument&quot;
144 ModuleList(1) = &quot;com.sun.star.sheet.SpreadsheetDocument&quot;
145 ModuleList(2) = &quot;com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument&quot;
146 ModuleList(3) = &quot;com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument&quot;
147 End If
148 End Sub
150 </script:module>