diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index 89a2d35..94c73c7 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -108,7 +108,7 @@ Function getRussian(identifier As String) As String getRussian = "Конвертировать символы в целевые свободные шрифты" Exit Function Case "advancedMenuReplaceFontsInStyles" - getRussian = "Заменить шрифты стилях" + getRussian = "Заменить шрифты в стилях" Exit Function Case "statusStarted" getRussian = "Чистка документа начата, подождите" @@ -159,7 +159,7 @@ Function getRussian(identifier As String) As String getRussian = "Перед публикацией документа следует исправить все найденные замечания." Exit Function Case "validationBadSymbolsNotification" - getRussian = "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами." + getRussian = "В тексте обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными отрывками с неподходящими символами." Exit Function Case "validationBadDrawings" getRussian = "В документе найдены рисунки (" @@ -201,22 +201,22 @@ Function getRussian(identifier As String) As String getRussian = "Настройка чистки и проверки" Exit Function Case "dialogRussianFixesIPH" - getRussian = "Исправления для текстов на русском" - Exit Function + getRussian = "Исправления для текстов на русском" + Exit Function Case "documentIsReadOnly" - getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен." - Exit Function + getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен." + Exit Function Case "validateEndnotes1" - getRussian = "в концевой сноске (абсолютный номер)" - Exit Function + getRussian = "в концевой сноске (абсолютный номер)" + Exit Function Case "setOutlineLevel" - getRussian = "задан уровень структуры документа" - Exit Function + getRussian = "задан уровень структуры документа" + Exit Function Case "section" getRussian = "Раздел" Exit Function Case "isInTable" - getRussian = "находится внутри таблицы." + getRussian = "находится внутри таблицы" Exit Function Case "foundHeadingIn" getRussian = "Найден заголовок в" @@ -231,11 +231,11 @@ Function getRussian(identifier As String) As String getRussian = "стиля страниц" Exit Function Case "table" - getRussian = "таблице" - Exit Function + getRussian = "таблице" + Exit Function Case "validationStarted" - getRussian = "Осуществляется проверка" - Exit Function + getRussian = "Осуществляется проверка" + Exit Function Case "chooseFontNameDialogTitle" getRussian = "Выбор шрифта для создания отчёта." Exit Function @@ -270,8 +270,8 @@ Function getRussian(identifier As String) As String getRussian = "Исправляем DOI" Exit Function Case "advancedMenuResetChapterNumberingRules" - getRussian = "Сбросить настройки нумерации глав" - Exit Function + getRussian = "Сбросить настройки нумерации глав" + Exit Function Case "dialogConfigMaxSuperscript" getRussian = "Макс. длина текста в верхнем индексе" Exit Function @@ -285,8 +285,8 @@ Function getRussian(identifier As String) As String getRussian = "Заменяются тире между цифрами на цифровые" Exit Function Case "advancedMenuconvertFontsToCharStyles" - getRussian = "Создать стили символов из найденных шрифтов" - Exit Function + getRussian = "Создать стили символов из найденных шрифтов" + Exit Function Case "buttonClose" getRussian = "Закрыть" Exit Function @@ -294,20 +294,26 @@ Function getRussian(identifier As String) As String getRussian = "Всего найдено: " Exit Function Case "coloredTextDescription" - getRussian = "Навигация по выделенному цветом тексту" - Exit Function + getRussian = "Навигация по выделенному цветом тексту" + Exit Function Case "foundColoredTextMessage" - getRussian = "Найден текст c непрозрачным фоном. Обычно это не подходит для электронных публикаций. Вместо белого цвета фона используйте «Без заливки»" - Exit Function + getRussian = "Найден текст c непрозрачным фоном. Обычно это не подходит для электронных публикаций. Вместо белого цвета фона используйте «Без заливки»" + Exit Function Case "invalidParagraphFormattingFound" - getRussian = "Найдены некорректные настройки форматирования параграфов. Необходима чистка." - Exit Function + getRussian = "Найдены некорректные настройки форматирования параграфов. Необходима чистка." + Exit Function Case "fixBrokenCharBackTransparentMenuItem" - getRussian = "Исправить некорректные настройки цветовой заливки абзацев" - Exit Function + getRussian = "Исправить некорректные настройки цветовой заливки абзацев" + Exit Function Case "badSymbols" - getRussian = "Неподходящие для публикации символы" - Exit Function + getRussian = "Неподходящие для публикации символы" + Exit Function + Case "badNoteSings" + getRussian = "Неподходящие для публикации символы сносок" + Exit Function + Case "validationBadFootnotesSymbolsNotification" + getRussian = "В символах сносок обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными символами сносок." + Exit Function Case Else getRussian = "Перевод не найден" End Select @@ -320,7 +326,7 @@ Function getEnglish(identifier As String) As String getEnglish = "Template with styles wasn't found. You can choose template on your computer." & chr(10) &" This stage of cleaning will be skipped if no file chosen." Exit Function Case "startQuietCleaningDescription" - getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." + getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." & chr(10) & "" Exit Function Case "buttonYes" getEnglish = "Ok" @@ -371,8 +377,8 @@ Function getEnglish(identifier As String) As String getEnglish = "Remove page break at document start" Exit Function Case "advancedMenuFixMistakes" - getEnglish = "Fix frequent mistakes" - Exit Function + getEnglish = "Fix frequent mistakes" + Exit Function Case "advancedMenuConfigAnchors" getEnglish = "Configure image anchors for digital publications" Exit Function @@ -449,7 +455,7 @@ Function getEnglish(identifier As String) As String getEnglish = "It is recommended to fix all problems before publication." Exit Function Case "validationBadSymbolsNotification" - getEnglish = "Unsuitable symbols were found" & chr(10) & " Now you will get the list with bad symbols." + getEnglish = "Unsuitable symbols were found." & chr(10) & " By clicking on the arrows of the navigator, you can navigate between the found passages with inappropriate characters. " Exit Function Case "validationBadDrawings" getEnglish = "Drawings was found (" @@ -491,22 +497,22 @@ Function getEnglish(identifier As String) As String getEnglish = "Clean and validation configuration" Exit Function Case "dialogRussianFixesIPH" - getEnglish = "Corrections for texts in Russian" - Exit Function + getEnglish = "Corrections for texts in Russian" + Exit Function Case "documentIsReadOnly" - getEnglish = "The document is read-only. Cleaning cannot be started in this mode." - Exit Function + getEnglish = "The document is read-only. Cleaning cannot be started in this mode." + Exit Function Case "validateEndnotes1" - getEnglish = "in endnote (absolute number)" - Exit Function + getEnglish = "in endnote (absolute number)" + Exit Function Case "setOutlineLevel" - getEnglish = "set document structure level" - Exit Function + getEnglish = "set document structure level" + Exit Function Case "section" getEnglish = "Section" Exit Function Case "isInTable" - getEnglish = "located inside the table." + getEnglish = "located inside the table" Exit Function Case "foundHeadingIn" getEnglish = "Found heading in" @@ -521,11 +527,11 @@ Function getEnglish(identifier As String) As String getEnglish = "of page style" Exit Function Case "table" - getEnglish = "table" - Exit Function + getEnglish = "table" + Exit Function Case "validationStarted" - getEnglish = "Validation in progess" - Exit Function + getEnglish = "Validation in progess" + Exit Function Case "chooseFontNameDialogTitle" getEnglish = "Select a font to create a report." Exit Function @@ -560,8 +566,8 @@ Function getEnglish(identifier As String) As String getEnglish = "Fixing DOI" Exit Function Case "advancedMenuResetChapterNumberingRules" - getEnglish = "Reset chapter numbering settings" - Exit Function + getEnglish = "Reset chapter numbering settings" + Exit Function Case "dialogConfigMaxSuperscript" getEnglish = "Max line length in superscript" Exit Function @@ -575,8 +581,8 @@ Function getEnglish(identifier As String) As String getEnglish = "Replacing dashes between numbers with numeric dashes" Exit Function Case "advancedMenuconvertFontsToCharStyles" - getEnglish = "Create character styles from found fonts " - Exit Function + getEnglish = "Create character styles from found fonts " + Exit Function Case "buttonClose" getEnglish = "Close" Exit Function @@ -584,20 +590,26 @@ Function getEnglish(identifier As String) As String getEnglish = "Total found: " Exit Function Case "coloredTextDescription" - getEnglish = "Navigation over highlighted text" - Exit Function + getEnglish = "Navigation over highlighted text" + Exit Function Case "foundColoredTextMessage" - getEnglish = "Found text with an opaque background. This is usually not suitable for electronic publishing. Use „No Fill“ instead of a white background " - Exit Function + getEnglish = "Found text with an opaque background. This is usually not suitable for electronic publishing. Use „No Fill“ instead of a white background " + Exit Function Case "invalidParagraphFormattingFound" - getEnglish = "Incorrect paragraph formatting settings found. Cleaning required. " - Exit Function + getEnglish = "Incorrect paragraph formatting settings found. Cleaning required. " + Exit Function Case "fixBrokenCharBackTransparentMenuItem" - getEnglish = "Fix incorrect color fill settings for paragraphs " - Exit Function + getEnglish = "Fix incorrect color fill settings for paragraphs " + Exit Function Case "badSymbols" - getEnglish = "Unsuitable for publishing characters" - Exit Function + getEnglish = "Unsuitable for publishing characters" + Exit Function + Case "badNoteSings" + getEnglish = "Unsuitable for publishing footnote symbols " + Exit Function + Case "validationBadFootnotesSymbolsNotification" + getEnglish = "Unsuitable for publication symbols were found in footnote symbols. "& Chr (10) &" By clicking on the navigator arrows, you can navigate between found footnote symbols. " + Exit Function Case Else getEnglish = "No translation" End Select @@ -738,7 +750,7 @@ Function getCroatian(identifier As String) As String getCroatian = "Svi pronađeni primedbe moraju biti ispravljeni pre objavljivanja dokumenta." Exit Function Case "validationBadSymbolsNotification" - getCroatian = "U tekstu su pronađeni ne prikladni karaktera. " & chr(10) & "Sada ćete dobiti lista odlomaka teksta sa sličnim znakovima" + getCroatian = "U tekstu su pronađeni ne prikladni karaktera. " & chr(10) & "Klikom na strelice navigatora možete se kretati između pronađenih odlomaka s neprikladnim znakovima." Exit Function Case "validationBadDrawings" getCroatian = "U dokumentu se nalaze crteži (" @@ -780,22 +792,22 @@ Function getCroatian(identifier As String) As String getCroatian = "Podešavanje čišćenja i provjere" Exit Function Case "dialogRussianFixesIPH" - getCroatian = "Ispravci za tekstove na ruskom" - Exit Function + getCroatian = "Ispravci za tekstove na ruskom" + Exit Function Case "documentIsReadOnly" - getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada." - Exit Function + getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada." + Exit Function Case "validateEndnotes1" - getCroatian = "u end fusnoti (apsolutni broj)" - Exit Function + getCroatian = "u end fusnoti (apsolutni broj)" + Exit Function Case "setOutlineLevel" - getCroatian = "zadati uroven strukturni dokument" - Exit Function + getCroatian = "zadati uroven strukturni dokument" + Exit Function Case "section" getCroatian = "Odjeljak" Exit Function Case "isInTable" - getCroatian = "smještene unutar stola." + getCroatian = "smještene unutar stola" Exit Function Case "foundHeadingIn" getCroatian = "Naslov pronađen u" @@ -810,11 +822,11 @@ Function getCroatian(identifier As String) As String getCroatian = "stil stranice" Exit Function Case "table" - getCroatian = "stola" - Exit Function + getCroatian = "stola" + Exit Function Case "validationStarted" - getCroatian = "Provjera u tijeku" - Exit Function + getCroatian = "Provjera u tijeku" + Exit Function Case "chooseFontNameDialogTitle" getCroatian = "Odaberite font za stvaranje izvješća." Exit Function @@ -849,8 +861,8 @@ Function getCroatian(identifier As String) As String getCroatian = "Ispravljamo DOI" Exit Function Case "advancedMenuResetChapterNumberingRules" - getCroatian = "Resetirajte postavke numeriranja poglavlja" - Exit Function + getCroatian = "Resetirajte postavke numeriranja poglavlja" + Exit Function Case "dialogConfigMaxSuperscript" getCroatian = "Maksimalna duljina retka u natpisu" Exit Function @@ -864,8 +876,8 @@ Function getCroatian(identifier As String) As String getCroatian = "Zamjena crtica između brojeva numeričkim crticama" Exit Function Case "advancedMenuconvertFontsToCharStyles" - getCroatian = "Stvorite stilove znakova iz pronađenih fontova " - Exit Function + getCroatian = "Stvorite stilove znakova iz pronađenih fontova " + Exit Function Case "buttonClose" getCroatian = "Zatvoriti " Exit Function @@ -873,20 +885,26 @@ Function getCroatian(identifier As String) As String getCroatian = "Ukupno pronađeno: " Exit Function Case "coloredTextDescription" - getCroatian = "Navigacija istaknutim tekstom " - Exit Function + getCroatian = "Navigacija istaknutim tekstom " + Exit Function Case "foundColoredTextMessage" - getCroatian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine " - Exit Function + getCroatian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine " + Exit Function Case "invalidParagraphFormattingFound" - getCroatian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. " - Exit Function + getCroatian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. " + Exit Function Case "fixBrokenCharBackTransparentMenuItem" - getCroatian = "Ispravite netočne postavke ispunjavanja boja za odlomke " - Exit Function + getCroatian = "Ispravite netočne postavke ispunjavanja boja za odlomke " + Exit Function Case "badSymbols" - getCroatian = "Neprimjerene znakova za objavljivanje" - Exit Function + getCroatian = "Neprimjerene znakova za objavljivanje" + Exit Function + Case "badNoteSings" + getCroatian = "Neprikladni simboli fusnota " + Exit Function + Case "validationBadFootnotesSymbolsNotification" + getCroatian = "U simbolima fusnota pronađeni su neprikladni za objavljivanje simboli. "& Chr (10) &" Klikom na strelice navigatora možete se kretati između pronađenih simbola fusnota. " + Exit Function Case Else getCroatian = "No translation" End Select @@ -1027,7 +1045,7 @@ Function getSerbian(identifier As String) As String getSerbian = "Сви пронађени примедбе морају бити исправљени пре објављивања документа." Exit Function Case "validationBadSymbolsNotification" - getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Сада ћете добити листа одломака текста са сличним знаковима " + getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Кликом на стрелице навигатора можете се кретати између пронађених одломака са неприкладним знаковима." Exit Function Case "validationBadDrawings" getSerbian = "У документу се налазе цртежи (" @@ -1069,22 +1087,22 @@ Function getSerbian(identifier As String) As String getSerbian = "Подешавање чишћења и провере" Exit Function Case "dialogRussianFixesIPH" - getSerbian = "Исправци за текстове на руском" - Exit Function + getSerbian = "Исправци за текстове на руском" + Exit Function Case "documentIsReadOnly" - getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму." - Exit Function + getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму." + Exit Function Case "validateEndnotes1" - getSerbian = "у end фусноти (апсолутни број)" - Exit Function + getSerbian = "у end фусноти (апсолутни број)" + Exit Function Case "setOutlineLevel" - getSerbian = "задатен уровен структури документа" - Exit Function + getSerbian = "задатен уровен структури документа" + Exit Function Case "section" getSerbian = "Одјељак" Exit Function Case "isInTable" - getSerbian = "смештене унутар стола." + getSerbian = "смештене унутар стола" Exit Function Case "foundHeadingIn" getSerbian = "Наслов пронађен у" @@ -1099,11 +1117,11 @@ Function getSerbian(identifier As String) As String getSerbian = "стил странице" Exit Function Case "table" - getSerbian = "стола" - Exit Function + getSerbian = "стола" + Exit Function Case "validationStarted" - getSerbian = "Провера у тијеку" - Exit Function + getSerbian = "Провера у тијеку" + Exit Function Case "chooseFontNameDialogTitle" getSerbian = "Изаберите фонт да бисте направили извештај." Exit Function @@ -1138,8 +1156,8 @@ Function getSerbian(identifier As String) As String getSerbian = "Исправљамо DOI" Exit Function Case "advancedMenuResetChapterNumberingRules" - getSerbian = "Ресетујте поставке нумерисања поглавља" - Exit Function + getSerbian = "Ресетујте поставке нумерисања поглавља" + Exit Function Case "dialogConfigMaxSuperscript" getSerbian = "Максимална дужина реда у натпису" Exit Function @@ -1153,8 +1171,8 @@ Function getSerbian(identifier As String) As String getSerbian = "Замена цртица између бројева нумеричким цртицама" Exit Function Case "advancedMenuconvertFontsToCharStyles" - getSerbian = "Створите стилове знакова од пронађених фонтова " - Exit Function + getSerbian = "Створите стилове знакова од пронађених фонтова " + Exit Function Case "buttonClose" getSerbian = "Затворити" Exit Function @@ -1162,20 +1180,26 @@ Function getSerbian(identifier As String) As String getSerbian = "Укупно пронађено: " Exit Function Case "coloredTextDescription" - getSerbian = "Навигација по истакнутом тексту " - Exit Function + getSerbian = "Навигација по истакнутом тексту " + Exit Function Case "foundColoredTextMessage" - getSerbian = "Пронађен је текст са непрозирном позадином. Ово обично није погодно за електронско издавање. Користите „Без попуњавања“ уместо беле позадине " - Exit Function + getSerbian = "Пронађен је текст са непрозирном позадином. Ово обично није погодно за електронско издавање. Користите „Без попуњавања“ уместо беле позадине " + Exit Function Case "invalidParagraphFormattingFound" - getSerbian = "Пронађене су нетачне поставке форматирања пасуса. Потребно чишћење. " - Exit Function + getSerbian = "Пронађене су нетачне поставке форматирања пасуса. Потребно чишћење. " + Exit Function Case "fixBrokenCharBackTransparentMenuItem" - getSerbian = "Исправите нетачна подешавања попуњавања боја за пасусе " - Exit Function + getSerbian = "Исправите нетачна подешавања попуњавања боја за пасусе " + Exit Function Case "badSymbols" - getSerbian = "Неодговарајуће знакова за објављивање" - Exit Function + getSerbian = "Неодговарајуће знакова за објављивање" + Exit Function + Case "badNoteSings" + getSerbian = "Неприкладни симболи фуснота " + Exit Function + Case "validationBadFootnotesSymbolsNotification" + getSerbian = "У симболима фуснота пронађени су неприкладни за објављивање симболи. "& chr(10) &" Кликом на стрелице навигатора можете се кретати између пронађених симбола фуснота. " + Exit Function Case Else getSerbian = "No translation" End Select @@ -1316,7 +1340,7 @@ Function getBosnian(identifier As String) As String getBosnian = "Svi pronađeni primedbe moraju biti ispravljeni prije objavljivanja dokumenta." Exit Function Case "validationBadSymbolsNotification" - getBosnian = "U tekstu su pronađeni neprikladni znakovi." & chr(10) & "Sada ćete dobiti listu isječaka teksta sa sličnim znakovima" + getBosnian = "U tekstu su pronađeni neprikladni znakovi." & chr(10) & "Klikom na strelice navigatora možete se kretati između pronađenih odlomaka s neprikladnim znakovima." Exit Function Case "validationBadDrawings" getBosnian = "Dokument sadrži crteže (" @@ -1358,22 +1382,22 @@ Function getBosnian(identifier As String) As String getBosnian = "Podešavanje čišćenja i provjere" Exit Function Case "dialogRussianFixesIPH" - getBosnian = "Ispravci za tekstove na ruskom" - Exit Function + getBosnian = "Ispravci za tekstove na ruskom" + Exit Function Case "documentIsReadOnly" - getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada." - Exit Function + getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada." + Exit Function Case "validateEndnotes1" - getBosnian = "u end fusnoti (apsolutni broj)" - Exit Function + getBosnian = "u end fusnoti (apsolutni broj)" + Exit Function Case "setOutlineLevel" - getBosnian = "zadati uroven strukturni dokument" - Exit Function + getBosnian = "zadati uroven strukturni dokument" + Exit Function Case "section" getBosnian = "Odjeljak" Exit Function Case "isInTable" - getBosnian = "smještene unutar stola." + getBosnian = "smještene unutar stola" Exit Function Case "foundHeadingIn" getBosnian = "Naslov pronađen u" @@ -1388,11 +1412,11 @@ Function getBosnian(identifier As String) As String getBosnian = "stil stranice" Exit Function Case "table" - getBosnian = "stola" - Exit Function + getBosnian = "stola" + Exit Function Case "validationStarted" - getBosnian = "Provjera u tijeku" - Exit Function + getBosnian = "Provjera u tijeku" + Exit Function Case "chooseFontNameDialogTitle" getBosnian = "Odaberite font za stvaranje izvješća." Exit Function @@ -1427,8 +1451,8 @@ Function getBosnian(identifier As String) As String getBosnian = "Ispravljamo DOI" Exit Function Case "advancedMenuResetChapterNumberingRules" - getBosnian = "Resetirajte postavke numeriranja poglavlja" - Exit Function + getBosnian = "Resetirajte postavke numeriranja poglavlja" + Exit Function Case "dialogConfigMaxSuperscript" getBosnian = "Maksimalna dužina retka u natpisu" Exit Function @@ -1442,8 +1466,8 @@ Function getBosnian(identifier As String) As String getBosnian = "Zamjena crtica između brojeva numeričkim crticama" Exit Function Case "advancedMenuconvertFontsToCharStyles" - getBosnian = "Stvorite stilove znakova iz pronađenih fontova " - Exit Function + getBosnian = "Stvorite stilove znakova iz pronađenih fontova " + Exit Function Case "buttonClose" getBosnian = "Zatvoriti " Exit Function @@ -1451,20 +1475,26 @@ Function getBosnian(identifier As String) As String getBosnian = "Ukupno pronađeno: " Exit Function Case "coloredTextDescription" - getBosnian = "Navigacija istaknutim tekstom " - Exit Function + getBosnian = "Navigacija istaknutim tekstom " + Exit Function Case "foundColoredTextMessage" - getBosnian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine " - Exit Function + getBosnian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine " + Exit Function Case "invalidParagraphFormattingFound" - getBosnian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. " - Exit Function + getBosnian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. " + Exit Function Case "fixBrokenCharBackTransparentMenuItem" - getBosnian = "Ispravite netočne postavke ispunjavanja boja za odlomke " - Exit Function + getBosnian = "Ispravite netočne postavke ispunjavanja boja za odlomke " + Exit Function Case "badSymbols" - getBosnian = "Neprimjerene znakova za objavljivanje" - Exit Function + getBosnian = "Neprimjerene znakova za objavljivanje" + Exit Function + Case "badNoteSings" + getBosnian = "Neprikladni simboli fusnota " + Exit Function + Case "validationBadFootnotesSymbolsNotification" + getBosnian = "U simbolima fusnota pronađeni su neprikladni za objavljivanje simboli. "& Chr (10) &" Klikom na strelice navigatora možete se kretati između pronađenih simbola fusnota. " + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba index ab028eb..235508e 100644 --- a/Redaction/Validation.xba +++ b/Redaction/Validation.xba @@ -1,13 +1,13 @@ -Sub markval27 +Sub markval28 End Sub Sub validateButton - Dim footnotesReport As String + Dim footnotesReport As Boolean Dim graphicsReport As String Dim sectionsReport As String Dim outlinePageStylesReport As String @@ -27,7 +27,7 @@ Sub validateButton badText = false badNumberings = false - footnotesReport = noteSingsCheck + footnotesReport = noteSingsCheck() statusIndicator.setValue(10) graphicsReport = checkGraphics statusIndicator.setValue(20) @@ -49,9 +49,6 @@ Sub validateButton MsgBox outlinePageStylesReport EndIf - If footnotesReport <> "" Then - MsgBox footnotesReport - EndIf If graphicsReport <> "" Then MsgBox graphicsReport EndIf @@ -59,7 +56,7 @@ Sub validateButton MsgBox sectionsReport EndIf - badText = findBadCharacters + badText = findBadCharacters() If config.getPropertyValue("complexity") = "makerUp" then needExtendedInfo = true @@ -75,9 +72,8 @@ Sub validateButton numberingsErros = printNumberingSymbols(needExtendedInfo) statusIndicator.setValue(80) - If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR badText OR badNumberings OR footnotesReport <> "" OR graphicsReport <> "" Or outlineInNotesReport <> "" Or sectionsReport <> "" OR oulineInTablesReport <> "" OR outlinePageStylesReport <> "" Then + If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR badText OR badNumberings OR footnotesReport OR graphicsReport <> "" Or outlineInNotesReport <> "" Or sectionsReport <> "" OR oulineInTablesReport <> "" OR outlinePageStylesReport <> "" Then MsgBox getTranslation("validationWarning") - Else MsgBox getTranslation("validationSuccess") EndIf @@ -142,7 +138,7 @@ Sub replaceCharsInDOI AskAndReplace("(?<=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}","-") End sub -Private Function noteSingsCheck() As String +Private Function noteSingsCheck() As Boolean Dim footnotes As Object Dim footnote As Object Dim endnote As Object @@ -152,9 +148,11 @@ Private Function noteSingsCheck() As String Dim char As Long Dim label As String Dim result As String + Dim founds() As Object + noteSingsCheck = false result = "" - footnotes = ThisComponent.footnotes - endnotes = ThisComponent.Footnotes + footnotes = ThisComponent.Footnotes + endnotes = ThisComponent.Endnotes count = footnotes.getCount Dim i As Integer Dim j As Integer @@ -164,8 +162,9 @@ Private Function noteSingsCheck() As String charNum = Len(label) For j = 1 to charNum char = Asc(Right(Left(label,j),1)) - If char >= 57344 AND char <= 63743 then - result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10) + If char >= 57344 AND char <= 63743 Then + addToArray(founds,footnote.Anchor) + 'result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10) End If Next j Next i @@ -176,12 +175,18 @@ Private Function noteSingsCheck() As String charNum = Len(label) For j = 1 to charNum char = Asc(Right(Left(label,j),1)) - If char >= 57344 AND char <= 63743 then - result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateEndnotes1") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10) + If char >= 57344 AND char <= 63743 Then + addToArray(founds,endnote.Anchor) + 'result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateEndnotes1") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10) End If Next j Next i - noteSingsCheck = result + If (UBound(founds) > 0) Then + noteSingsCheck = true + MsgBox(getTranslation("validationBadFootnotesSymbolsNotification")) + startNavigatorDialog(getTranslation("badNoteSings"),founds) + EndIf + 'noteSingsCheck = result End Function Function checkNotesOutline As String @@ -1138,4 +1143,4 @@ Function findInDoc(searchString As String) As Variant founds = Thiscomponent.findAll(sDesc) findInDoc = founds End Function - + \ No newline at end of file diff --git a/translations.ods b/translations.ods index d3422f8..6aee008 100644 Binary files a/translations.ods and b/translations.ods differ