cleanandvalidate/Redaction/Translations.xba
2020-05-04 14:28:39 +02:00

202 lines
No EOL
9.5 KiB
XML
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

<?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="Translations" script:language="StarBasic" script:moduleType="normal">
Function getTranslation(identifier As String) As String
Globalscope.BasicLibraries.LoadLibrary( &quot;Tools&quot; )
Dim lang As String
lang = GetStarOfficeLocale().Language
Select Case lang
Case &quot;ru&quot;
getTranslation = getRussian(identifier)
Exit Function
Case Else
getTranslation = getEnglish(identifier)
Exit Function
End Select
End Function
Function getRussian(identifier As String) As String
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getRussian = &quot;Файл-шаблон, содержащий стили для загрузки в документ не был задан. &quot; &amp; chr(10) &amp;&quot;Вы можете выбрать новый файл-шаблон. &quot; &amp; chr(10) &amp; &quot;Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getRussian = &quot;Вы хотите запустить чистку документа? &quot; &amp; chr(10) &amp; &quot;Здесь Вы можете также указать новый файл-шаблон.&quot; &amp; chr(10) &amp; &quot;Стили из шаблона будут загружены в документ.&quot;
Exit Function
Case &quot;buttonYes&quot;
getRussian = &quot;Да&quot;
Exit Function
Case &quot;quietStartCleaningTitle&quot;
getRussian = &quot;Подтверждение запуска чистки&quot;
Exit Function
Case &quot;noStylesFileDialogTitle&quot;
getRussian = &quot;Файл со стилями не найден&quot;
Exit Function
Case &quot;buttonTemplateNotFoundSkip&quot;
getRussian = &quot;Продолжить&quot;
Exit Function
Case &quot;buttonStop&quot;
getRussian = &quot;Нет&quot;
Exit Function
Case &quot;buttonLoad&quot;
getRussian = &quot;Указать шаблон&quot;
Exit Function
Case &quot;buttonNameToSelectFileWithStyles&quot;
getRussian = &quot;Указать файл&quot;
Exit Function
Case &quot;cleaningFinished&quot;
getRussian = &quot;Чистка завершена&quot;
Exit Function
Case &quot;advancedMenuDialogTitle&quot;
getRussian = &quot;Чистка в экспертном режиме &quot;
Exit Function
Case &quot;buttonCancel&quot;
getRussian = &quot;Отмена&quot;
Exit Function
Case &quot;buttonOK&quot;
getRussian = &quot;Запуск&quot;
Exit Function
Case &quot;advancedMenuRemoveBasic&quot;
getRussian = &quot;Удалить макросы из файла&quot;
Exit Function
Case &quot;advancedMenuRemoveManualPageBreaks&quot;
getRussian = &quot;Удалить ручные разрывы страниц&quot;
Exit Function
Case &quot;advancedMenuLoadStandardStyles&quot;
getRussian = &quot;Загрузить стили из шаблона&quot;
Exit Function
Case &quot;advancedMenuRemovePageStyles&quot;
getRussian = &quot;Удалить пользовательские стили страниц&quot;
Exit Function
Case &quot;advancedMenuRemoveInitPageBreak&quot;
getRussian = &quot;Удалить разрыв страницы в начале документа&quot;
Exit Function
Case &quot;advancedMenuFixMistakes&quot;
getRussian = &quot;Исправить часто встречающиеся ошибки&quot;
Exit Function
Case &quot;advancedMenuConfigAnchors&quot;
getRussian = &quot;Настроить привязки изображений для электронных публикаций&quot;
Exit Function
Case &quot;advancedMenuConfigTables&quot;
getRussian = &quot;Настроить таблицы для электронных публикаций&quot;
Exit Function
Case &quot;advancedMenuRemoveBookmarks&quot;
getRussian = &quot;Удалить закладки&quot;
Exit Function
Case &quot;advancedMenuRemoveLinks&quot;
getRussian = &quot;Удалить ссылки&quot;
Exit Function
Case &quot;advancedMenuRemoveUnusedStyles&quot;
getRussian = &quot;Удалить неиспользуемые стили&quot;
Exit Function
Case &quot;advancedMenuReplaceWhiteBackground&quot;
getRussian = &quot;Заменить белый фон символов на прозрачный&quot;
Exit Function
Case &quot;advancedMenuCleanFormatting&quot;
getRussian = &quot;Очистить форматирование&quot;
Exit Function
Case &quot;advancedMenuSymbolsConversion&quot;
getRussian = &quot;Произвести конвертацию символов&quot;
Exit Function
Case &quot;advancedMenuReplaceFontsInStyles&quot;
getRussian = &quot;Заменить шрифты стилях&quot;
Exit Function
Case Else
getRussian = &quot;Перевод не найден&quot;
End Select
End Function
Function getEnglish(identifier As String) As String
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getEnglish = &quot;Template with styles wasn&apos;t found. You can choose template on your computer.&quot; &amp; chr(10) &amp;&quot; This stage of cleaning will be skipped if no file chosen.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getEnglish = &quot;Do you want to start document cleaning?&quot; &amp; chr(10) &amp; &quot;You can choose template with styles.&quot; &amp; chr(10) &amp; &quot;Styles will be loaded in process of cleaning.&quot;
Exit Function
Case &quot;buttonYes&quot;
getEnglish = &quot;Ok&quot;
Exit Function
Case &quot;quietStartCleaningTitle&quot;
getEnglish = &quot;Confirmation&quot;
Exit Function
Case &quot;noStylesFileDialogTitle&quot;
getEnglish = &quot;Template file not found&quot;
Exit Function
Case &quot;buttonTemplateNotFoundSkip&quot;
getEnglish = &quot;Proceed&quot;
Exit Function
Case &quot;buttonStop&quot;
getEnglish = &quot;Cancel&quot;
Exit Function
Case &quot;buttonLoad&quot;
getEnglish = &quot;Set template&quot;
Exit Function
Case &quot;buttonNameToSelectFileWithStyles&quot;
getEnglish = &quot;Select file&quot;
Exit Function
Case &quot;cleaningFinished&quot;
getEnglish = &quot;Cleaning is completed&quot;
Exit Function
Case &quot;advancedMenuDialogTitle&quot;
getEnglish = &quot;Advanced cleaning&quot;
Exit Function
Case &quot;buttonCancel&quot;
getEnglish = &quot;Cancel&quot;
Exit Function
Case &quot;buttonOK&quot;
getEnglish = &quot;Start&quot;
Exit Function
Case &quot;advancedMenuRemoveBasic&quot;
getEnglish = &quot;Remove macro from file&quot;
Exit Function
Case &quot;advancedMenuRemoveManualPageBreaks&quot;
getEnglish = &quot;Remove manual page breaks&quot;
Exit Function
Case &quot;advancedMenuLoadStandardStyles&quot;
getEnglish = &quot;Load styles from template&quot;
Exit Function
Case &quot;advancedMenuRemovePageStyles&quot;
getEnglish = &quot;Remove custom page styles&quot;
Exit Function
Case &quot;advancedMenuRemoveInitPageBreak&quot;
getEnglish = &quot;Remove page break at document start&quot;
Exit Function
Case &quot;advancedMenuFixMistakes&quot;
getEnglish = &quot;Remove frequent mistakes&quot;
Exit Function
Case &quot;advancedMenuConfigAnchors&quot;
getEnglish = &quot;Configure image anchors for digital publications&quot;
Exit Function
Case &quot;advancedMenuConfigTables&quot;
getEnglish = &quot;Configure tables for digital publications&quot;
Exit Function
Case &quot;advancedMenuRemoveBookmarks&quot;
getEnglish = &quot;Remove bookmarks&quot;
Exit Function
Case &quot;advancedMenuRemoveLinks&quot;
getEnglish = &quot;Remove links&quot;
Exit Function
Case &quot;advancedMenuRemoveUnusedStyles&quot;
getEnglish = &quot;Remove unused styles&quot;
Exit Function
Case &quot;advancedMenuReplaceWhiteBackground&quot;
getEnglish = &quot;Replace white symbol back with transparent&quot;
Exit Function
Case &quot;advancedMenuCleanFormatting&quot;
getEnglish = &quot;Clean manual formatting&quot;
Exit Function
Case &quot;advancedMenuSymbolsConversion&quot;
getEnglish = &quot;Convert symbols&quot;
Exit Function
Case &quot;advancedMenuReplaceFontsInStyles&quot;
getEnglish = &quot;Replace fonts in styles&quot;
Exit Function
Case Else
getEnglish = &quot;No translation&quot;
End Select
End Function
</script:module>