Replaces footnote signs report with navigated report

This commit is contained in:
Georgy Litvinov 2021-06-07 12:06:27 +02:00
parent 42682e4331
commit 7e77039620
3 changed files with 197 additions and 162 deletions

View file

@ -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

View file

@ -1,13 +1,13 @@
<?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="Validation" script:language="StarBasic">Sub markval27
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">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 &lt;&gt; &quot;&quot; Then
MsgBox footnotesReport
EndIf
If graphicsReport &lt;&gt; &quot;&quot; Then
MsgBox graphicsReport
EndIf
@ -59,7 +56,7 @@ Sub validateButton
MsgBox sectionsReport
EndIf
badText = findBadCharacters
badText = findBadCharacters()
If config.getPropertyValue(&quot;complexity&quot;) = &quot;makerUp&quot; 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 &lt;&gt; &quot;&quot; OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR badText OR badNumberings OR footnotesReport OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
MsgBox getTranslation(&quot;validationWarning&quot;)
Else
MsgBox getTranslation(&quot;validationSuccess&quot;)
EndIf
@ -142,7 +138,7 @@ Sub replaceCharsInDOI
AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:ХOО?-]{1,50})[‒–—−]{1,5}&quot;,&quot;-&quot;)
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 = &quot;&quot;
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 &gt;= 57344 AND char &lt;= 63743 then
result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes2&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
If char &gt;= 57344 AND char &lt;= 63743 Then
addToArray(founds,footnote.Anchor)
&apos;result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes2&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; 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 &gt;= 57344 AND char &lt;= 63743 then
result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateEndnotes1&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
If char &gt;= 57344 AND char &lt;= 63743 Then
addToArray(founds,endnote.Anchor)
&apos;result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateEndnotes1&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
End If
Next j
Next i
noteSingsCheck = result
If (UBound(founds) &gt; 0) Then
noteSingsCheck = true
MsgBox(getTranslation(&quot;validationBadFootnotesSymbolsNotification&quot;))
startNavigatorDialog(getTranslation(&quot;badNoteSings&quot;),founds)
EndIf
&apos;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
</script:module>
</script:module>

Binary file not shown.