D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
lib
/
libreoffice
/
share
/
basic
/
ImportWizard
/
Filename :
Language.xba
back
Copy
<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!-- * This file is part of the LibreOffice project. * * This Source Code Form is subject to the terms of the Mozilla Public * License, v. 2.0. If a copy of the MPL was not distributed with this * file, You can obtain one at http://mozilla.org/MPL/2.0/. * * This file incorporates work covered by the following license notice: * * Licensed to the Apache Software Foundation (ASF) under one or more * contributor license agreements. See the NOTICE file distributed * with this work for additional information regarding copyright * ownership. The ASF licenses this file to you under the Apache * License, Version 2.0 (the "License"); you may not use this file * except in compliance with the License. You may obtain a copy of * the License at http://www.apache.org/licenses/LICENSE-2.0 . --> <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 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 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") then sHelpButton = GetResText("HelpButton") sCancelButton = GetResText("CancelButton") sBackButton = GetResText("BackButton") sNextButton = GetResText("NextButton") sBeginButton = GetResText("BeginButton") sCloseButton = GetResText("CloseButton") sWelcometextLabel1 = ReplaceString(GetResText("WelcometextLabel1"), GetProductName(),"%PRODUCTNAME") sWelcometextLabel3 = GetResText("WelcometextLabel3") ' Microsoft Documents sMSTemplateCheckBox(0) = GetResText("MSTemplateCheckbox_1_") sMSTemplateCheckBox(1) = GetResText("MSTemplateCheckbox_2_") sMSTemplateCheckBox(2) = GetResText("MSTemplateCheckbox_3_") ' DocumentCheckbox- Captions sMSDocumentCheckBox(0) = GetResText("MSDocumentCheckbox_1_") sMSDocumentCheckBox(1) = GetResText("MSDocumentCheckbox_2_") sMSDocumentCheckBox(2) = GetResText("MSDocumentCheckbox_3_") 'StarOffice Applicationnames sContainerName(0) = GetResText("MSContainerName") sSummaryHeader = GetResText("SummaryHeader") sTemplateGroupName = GetResText("GroupnameDefault") sProgressMoreDocs = GetResText("ProgressMoreDocs") sProgressMoreTemplates = GetResText("ProgressMoreTemplates") sNoDirCreation = GetResText("NoDirCreation") sMsgDirNotThere = GetResText("MsgDirNotThere") sQueryForNewCreation = GetResText("QueryfornewCreation") sFileExists = GetResText("FileExists") sMorePathsError3 = GetResText("MorePathsError3") sConvertError1 = GetResText("ConvertError1") sConvertError2 = GetResText("ConvertError2") sRTErrorDesc = GetResText("RTErrorDesc") sRTErrorHeader = GetResText("RTErrorHeader") sOverwriteallFiles = GetResText("OverwriteallFiles") sReeditMacro = GetResText("ReeditMacro") sCouldnotsaveDocument = GetResText("CouldNotsaveDocument") sCouldnotopenDocument = GetResText("CouldNotopenDocument") sPathDialogMessage = GetResText("PathDialogMessage") sTitle = GetResText("DialogTitle") sProgressPage_1 = GetResText("ProgressPage1") sProgressPage_2 = GetResText("ProgressPage2") sProgressPage_3 = GetResText("ProgressPage3") sProgressFound = GetResText("ProgressFound") sProgressPage_5 = GetResText("ProgressPage5") sReady = GetResText("Ready") sSourceDocuments = GetResText("SourceDocuments") sTargetDocuments = GetResText("TargetDocuments") sLogSummary = GetResText("LogfileSummary") sSumInclusiveSubDir = GetResText("SumInclusiveSubDir") sSumSaveDocuments = GetResText("SumSaveDokumente") sSumMSDocuments(0) = GetResText("SumMSTextDocuments") sSumMSDocuments(1) = GetResText("SumMSTableDocuments") sSumMSDocuments(2) = GetResText("SumMSDrawDocuments") sSumMSTemplates(0) = GetResText("SumMSTextTemplates") sSumMSTemplates(1) = GetResText("SumMSTableTemplates") sSumMSTemplates(2) = GetResText("SumMSDrawTemplates") With ImportDialog sImportLabel = GetResText("TextImportLabel") sExportLabel = GetResText("TextExportLabel") sSearchInSubDir = GetResText("SearchInSubDir") .chkTemplateSearchSubDir.Label = sSearchInSubDir .lblDocumentImport.Label = sImportLabel .lblDocumentExport.Label = sExportLabel .chkDocumentSearchSubDir.Label = sSearchInSubDir .lblTemplateImport.Label = sImportLabel .lblTemplateExport.Label = sExportLabel .chkLogfile.Label = GetResText("CreateLogfile") .chkLogfile.Helptext = GetResText("LogfileHelpText") .cmdShowLogFile.Label = GetResText("ShowLogfile") 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 </script:module>