Replaces footnote signs report with navigated report
This commit is contained in:
parent
42682e4331
commit
7e77039620
3 changed files with 197 additions and 162 deletions
|
|
@ -108,7 +108,7 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "Конвертировать символы в целевые свободные шрифты"
|
getRussian = "Конвертировать символы в целевые свободные шрифты"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuReplaceFontsInStyles"
|
Case "advancedMenuReplaceFontsInStyles"
|
||||||
getRussian = "Заменить шрифты стилях"
|
getRussian = "Заменить шрифты в стилях"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "statusStarted"
|
Case "statusStarted"
|
||||||
getRussian = "Чистка документа начата, подождите"
|
getRussian = "Чистка документа начата, подождите"
|
||||||
|
|
@ -159,7 +159,7 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "Перед публикацией документа следует исправить все найденные замечания."
|
getRussian = "Перед публикацией документа следует исправить все найденные замечания."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadSymbolsNotification"
|
Case "validationBadSymbolsNotification"
|
||||||
getRussian = "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами."
|
getRussian = "В тексте обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными отрывками с неподходящими символами."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadDrawings"
|
Case "validationBadDrawings"
|
||||||
getRussian = "В документе найдены рисунки ("
|
getRussian = "В документе найдены рисунки ("
|
||||||
|
|
@ -201,22 +201,22 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "Настройка чистки и проверки"
|
getRussian = "Настройка чистки и проверки"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogRussianFixesIPH"
|
Case "dialogRussianFixesIPH"
|
||||||
getRussian = "Исправления для текстов на русском"
|
getRussian = "Исправления для текстов на русском"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "documentIsReadOnly"
|
Case "documentIsReadOnly"
|
||||||
getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
|
getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validateEndnotes1"
|
Case "validateEndnotes1"
|
||||||
getRussian = "в концевой сноске (абсолютный номер)"
|
getRussian = "в концевой сноске (абсолютный номер)"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "setOutlineLevel"
|
Case "setOutlineLevel"
|
||||||
getRussian = "задан уровень структуры документа"
|
getRussian = "задан уровень структуры документа"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "section"
|
Case "section"
|
||||||
getRussian = "Раздел"
|
getRussian = "Раздел"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "isInTable"
|
Case "isInTable"
|
||||||
getRussian = "находится внутри таблицы."
|
getRussian = "находится внутри таблицы"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundHeadingIn"
|
Case "foundHeadingIn"
|
||||||
getRussian = "Найден заголовок в"
|
getRussian = "Найден заголовок в"
|
||||||
|
|
@ -231,11 +231,11 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "стиля страниц"
|
getRussian = "стиля страниц"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "table"
|
Case "table"
|
||||||
getRussian = "таблице"
|
getRussian = "таблице"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationStarted"
|
Case "validationStarted"
|
||||||
getRussian = "Осуществляется проверка"
|
getRussian = "Осуществляется проверка"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "chooseFontNameDialogTitle"
|
Case "chooseFontNameDialogTitle"
|
||||||
getRussian = "Выбор шрифта для создания отчёта."
|
getRussian = "Выбор шрифта для создания отчёта."
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -270,8 +270,8 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "Исправляем DOI"
|
getRussian = "Исправляем DOI"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuResetChapterNumberingRules"
|
Case "advancedMenuResetChapterNumberingRules"
|
||||||
getRussian = "Сбросить настройки нумерации глав"
|
getRussian = "Сбросить настройки нумерации глав"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogConfigMaxSuperscript"
|
Case "dialogConfigMaxSuperscript"
|
||||||
getRussian = "Макс. длина текста в верхнем индексе"
|
getRussian = "Макс. длина текста в верхнем индексе"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -285,8 +285,8 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "Заменяются тире между цифрами на цифровые"
|
getRussian = "Заменяются тире между цифрами на цифровые"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuconvertFontsToCharStyles"
|
Case "advancedMenuconvertFontsToCharStyles"
|
||||||
getRussian = "Создать стили символов из найденных шрифтов"
|
getRussian = "Создать стили символов из найденных шрифтов"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "buttonClose"
|
Case "buttonClose"
|
||||||
getRussian = "Закрыть"
|
getRussian = "Закрыть"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -294,20 +294,26 @@ Function getRussian(identifier As String) As String
|
||||||
getRussian = "Всего найдено: "
|
getRussian = "Всего найдено: "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "coloredTextDescription"
|
Case "coloredTextDescription"
|
||||||
getRussian = "Навигация по выделенному цветом тексту"
|
getRussian = "Навигация по выделенному цветом тексту"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundColoredTextMessage"
|
Case "foundColoredTextMessage"
|
||||||
getRussian = "Найден текст c непрозрачным фоном. Обычно это не подходит для электронных публикаций. Вместо белого цвета фона используйте «Без заливки»"
|
getRussian = "Найден текст c непрозрачным фоном. Обычно это не подходит для электронных публикаций. Вместо белого цвета фона используйте «Без заливки»"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "invalidParagraphFormattingFound"
|
Case "invalidParagraphFormattingFound"
|
||||||
getRussian = "Найдены некорректные настройки форматирования параграфов. Необходима чистка."
|
getRussian = "Найдены некорректные настройки форматирования параграфов. Необходима чистка."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "fixBrokenCharBackTransparentMenuItem"
|
Case "fixBrokenCharBackTransparentMenuItem"
|
||||||
getRussian = "Исправить некорректные настройки цветовой заливки абзацев"
|
getRussian = "Исправить некорректные настройки цветовой заливки абзацев"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "badSymbols"
|
Case "badSymbols"
|
||||||
getRussian = "Неподходящие для публикации символы"
|
getRussian = "Неподходящие для публикации символы"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
Case "badNoteSings"
|
||||||
|
getRussian = "Неподходящие для публикации символы сносок"
|
||||||
|
Exit Function
|
||||||
|
Case "validationBadFootnotesSymbolsNotification"
|
||||||
|
getRussian = "В символах сносок обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными символами сносок."
|
||||||
|
Exit Function
|
||||||
Case Else
|
Case Else
|
||||||
getRussian = "Перевод не найден"
|
getRussian = "Перевод не найден"
|
||||||
End Select
|
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."
|
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
|
Exit Function
|
||||||
Case "startQuietCleaningDescription"
|
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
|
Exit Function
|
||||||
Case "buttonYes"
|
Case "buttonYes"
|
||||||
getEnglish = "Ok"
|
getEnglish = "Ok"
|
||||||
|
|
@ -371,8 +377,8 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "Remove page break at document start"
|
getEnglish = "Remove page break at document start"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuFixMistakes"
|
Case "advancedMenuFixMistakes"
|
||||||
getEnglish = "Fix frequent mistakes"
|
getEnglish = "Fix frequent mistakes"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuConfigAnchors"
|
Case "advancedMenuConfigAnchors"
|
||||||
getEnglish = "Configure image anchors for digital publications"
|
getEnglish = "Configure image anchors for digital publications"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -449,7 +455,7 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "It is recommended to fix all problems before publication."
|
getEnglish = "It is recommended to fix all problems before publication."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadSymbolsNotification"
|
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
|
Exit Function
|
||||||
Case "validationBadDrawings"
|
Case "validationBadDrawings"
|
||||||
getEnglish = "Drawings was found ("
|
getEnglish = "Drawings was found ("
|
||||||
|
|
@ -491,22 +497,22 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "Clean and validation configuration"
|
getEnglish = "Clean and validation configuration"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogRussianFixesIPH"
|
Case "dialogRussianFixesIPH"
|
||||||
getEnglish = "Corrections for texts in Russian"
|
getEnglish = "Corrections for texts in Russian"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "documentIsReadOnly"
|
Case "documentIsReadOnly"
|
||||||
getEnglish = "The document is read-only. Cleaning cannot be started in this mode."
|
getEnglish = "The document is read-only. Cleaning cannot be started in this mode."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validateEndnotes1"
|
Case "validateEndnotes1"
|
||||||
getEnglish = "in endnote (absolute number)"
|
getEnglish = "in endnote (absolute number)"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "setOutlineLevel"
|
Case "setOutlineLevel"
|
||||||
getEnglish = "set document structure level"
|
getEnglish = "set document structure level"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "section"
|
Case "section"
|
||||||
getEnglish = "Section"
|
getEnglish = "Section"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "isInTable"
|
Case "isInTable"
|
||||||
getEnglish = "located inside the table."
|
getEnglish = "located inside the table"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundHeadingIn"
|
Case "foundHeadingIn"
|
||||||
getEnglish = "Found heading in"
|
getEnglish = "Found heading in"
|
||||||
|
|
@ -521,11 +527,11 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "of page style"
|
getEnglish = "of page style"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "table"
|
Case "table"
|
||||||
getEnglish = "table"
|
getEnglish = "table"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationStarted"
|
Case "validationStarted"
|
||||||
getEnglish = "Validation in progess"
|
getEnglish = "Validation in progess"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "chooseFontNameDialogTitle"
|
Case "chooseFontNameDialogTitle"
|
||||||
getEnglish = "Select a font to create a report."
|
getEnglish = "Select a font to create a report."
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -560,8 +566,8 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "Fixing DOI"
|
getEnglish = "Fixing DOI"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuResetChapterNumberingRules"
|
Case "advancedMenuResetChapterNumberingRules"
|
||||||
getEnglish = "Reset chapter numbering settings"
|
getEnglish = "Reset chapter numbering settings"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogConfigMaxSuperscript"
|
Case "dialogConfigMaxSuperscript"
|
||||||
getEnglish = "Max line length in superscript"
|
getEnglish = "Max line length in superscript"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -575,8 +581,8 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "Replacing dashes between numbers with numeric dashes"
|
getEnglish = "Replacing dashes between numbers with numeric dashes"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuconvertFontsToCharStyles"
|
Case "advancedMenuconvertFontsToCharStyles"
|
||||||
getEnglish = "Create character styles from found fonts "
|
getEnglish = "Create character styles from found fonts "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "buttonClose"
|
Case "buttonClose"
|
||||||
getEnglish = "Close"
|
getEnglish = "Close"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -584,20 +590,26 @@ Function getEnglish(identifier As String) As String
|
||||||
getEnglish = "Total found: "
|
getEnglish = "Total found: "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "coloredTextDescription"
|
Case "coloredTextDescription"
|
||||||
getEnglish = "Navigation over highlighted text"
|
getEnglish = "Navigation over highlighted text"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundColoredTextMessage"
|
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 "
|
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
|
Exit Function
|
||||||
Case "invalidParagraphFormattingFound"
|
Case "invalidParagraphFormattingFound"
|
||||||
getEnglish = "Incorrect paragraph formatting settings found. Cleaning required. "
|
getEnglish = "Incorrect paragraph formatting settings found. Cleaning required. "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "fixBrokenCharBackTransparentMenuItem"
|
Case "fixBrokenCharBackTransparentMenuItem"
|
||||||
getEnglish = "Fix incorrect color fill settings for paragraphs "
|
getEnglish = "Fix incorrect color fill settings for paragraphs "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "badSymbols"
|
Case "badSymbols"
|
||||||
getEnglish = "Unsuitable for publishing characters"
|
getEnglish = "Unsuitable for publishing characters"
|
||||||
Exit Function
|
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
|
Case Else
|
||||||
getEnglish = "No translation"
|
getEnglish = "No translation"
|
||||||
End Select
|
End Select
|
||||||
|
|
@ -738,7 +750,7 @@ Function getCroatian(identifier As String) As String
|
||||||
getCroatian = "Svi pronađeni primedbe moraju biti ispravljeni pre objavljivanja dokumenta."
|
getCroatian = "Svi pronađeni primedbe moraju biti ispravljeni pre objavljivanja dokumenta."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadSymbolsNotification"
|
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
|
Exit Function
|
||||||
Case "validationBadDrawings"
|
Case "validationBadDrawings"
|
||||||
getCroatian = "U dokumentu se nalaze crteži ("
|
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"
|
getCroatian = "Podešavanje čišćenja i provjere"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogRussianFixesIPH"
|
Case "dialogRussianFixesIPH"
|
||||||
getCroatian = "Ispravci za tekstove na ruskom"
|
getCroatian = "Ispravci za tekstove na ruskom"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "documentIsReadOnly"
|
Case "documentIsReadOnly"
|
||||||
getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
|
getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validateEndnotes1"
|
Case "validateEndnotes1"
|
||||||
getCroatian = "u end fusnoti (apsolutni broj)"
|
getCroatian = "u end fusnoti (apsolutni broj)"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "setOutlineLevel"
|
Case "setOutlineLevel"
|
||||||
getCroatian = "zadati uroven strukturni dokument"
|
getCroatian = "zadati uroven strukturni dokument"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "section"
|
Case "section"
|
||||||
getCroatian = "Odjeljak"
|
getCroatian = "Odjeljak"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "isInTable"
|
Case "isInTable"
|
||||||
getCroatian = "smještene unutar stola."
|
getCroatian = "smještene unutar stola"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundHeadingIn"
|
Case "foundHeadingIn"
|
||||||
getCroatian = "Naslov pronađen u"
|
getCroatian = "Naslov pronađen u"
|
||||||
|
|
@ -810,11 +822,11 @@ Function getCroatian(identifier As String) As String
|
||||||
getCroatian = "stil stranice"
|
getCroatian = "stil stranice"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "table"
|
Case "table"
|
||||||
getCroatian = "stola"
|
getCroatian = "stola"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationStarted"
|
Case "validationStarted"
|
||||||
getCroatian = "Provjera u tijeku"
|
getCroatian = "Provjera u tijeku"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "chooseFontNameDialogTitle"
|
Case "chooseFontNameDialogTitle"
|
||||||
getCroatian = "Odaberite font za stvaranje izvješća."
|
getCroatian = "Odaberite font za stvaranje izvješća."
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -849,8 +861,8 @@ Function getCroatian(identifier As String) As String
|
||||||
getCroatian = "Ispravljamo DOI"
|
getCroatian = "Ispravljamo DOI"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuResetChapterNumberingRules"
|
Case "advancedMenuResetChapterNumberingRules"
|
||||||
getCroatian = "Resetirajte postavke numeriranja poglavlja"
|
getCroatian = "Resetirajte postavke numeriranja poglavlja"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogConfigMaxSuperscript"
|
Case "dialogConfigMaxSuperscript"
|
||||||
getCroatian = "Maksimalna duljina retka u natpisu"
|
getCroatian = "Maksimalna duljina retka u natpisu"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -864,8 +876,8 @@ Function getCroatian(identifier As String) As String
|
||||||
getCroatian = "Zamjena crtica između brojeva numeričkim crticama"
|
getCroatian = "Zamjena crtica između brojeva numeričkim crticama"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuconvertFontsToCharStyles"
|
Case "advancedMenuconvertFontsToCharStyles"
|
||||||
getCroatian = "Stvorite stilove znakova iz pronađenih fontova "
|
getCroatian = "Stvorite stilove znakova iz pronađenih fontova "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "buttonClose"
|
Case "buttonClose"
|
||||||
getCroatian = "Zatvoriti "
|
getCroatian = "Zatvoriti "
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -873,20 +885,26 @@ Function getCroatian(identifier As String) As String
|
||||||
getCroatian = "Ukupno pronađeno: "
|
getCroatian = "Ukupno pronađeno: "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "coloredTextDescription"
|
Case "coloredTextDescription"
|
||||||
getCroatian = "Navigacija istaknutim tekstom "
|
getCroatian = "Navigacija istaknutim tekstom "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundColoredTextMessage"
|
Case "foundColoredTextMessage"
|
||||||
getCroatian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine "
|
getCroatian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "invalidParagraphFormattingFound"
|
Case "invalidParagraphFormattingFound"
|
||||||
getCroatian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. "
|
getCroatian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "fixBrokenCharBackTransparentMenuItem"
|
Case "fixBrokenCharBackTransparentMenuItem"
|
||||||
getCroatian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
|
getCroatian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "badSymbols"
|
Case "badSymbols"
|
||||||
getCroatian = "Neprimjerene znakova za objavljivanje"
|
getCroatian = "Neprimjerene znakova za objavljivanje"
|
||||||
Exit Function
|
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
|
Case Else
|
||||||
getCroatian = "No translation"
|
getCroatian = "No translation"
|
||||||
End Select
|
End Select
|
||||||
|
|
@ -1027,7 +1045,7 @@ Function getSerbian(identifier As String) As String
|
||||||
getSerbian = "Сви пронађени примедбе морају бити исправљени пре објављивања документа."
|
getSerbian = "Сви пронађени примедбе морају бити исправљени пре објављивања документа."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadSymbolsNotification"
|
Case "validationBadSymbolsNotification"
|
||||||
getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Сада ћете добити листа одломака текста са сличним знаковима "
|
getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Кликом на стрелице навигатора можете се кретати између пронађених одломака са неприкладним знаковима."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadDrawings"
|
Case "validationBadDrawings"
|
||||||
getSerbian = "У документу се налазе цртежи ("
|
getSerbian = "У документу се налазе цртежи ("
|
||||||
|
|
@ -1069,22 +1087,22 @@ Function getSerbian(identifier As String) As String
|
||||||
getSerbian = "Подешавање чишћења и провере"
|
getSerbian = "Подешавање чишћења и провере"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogRussianFixesIPH"
|
Case "dialogRussianFixesIPH"
|
||||||
getSerbian = "Исправци за текстове на руском"
|
getSerbian = "Исправци за текстове на руском"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "documentIsReadOnly"
|
Case "documentIsReadOnly"
|
||||||
getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
|
getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validateEndnotes1"
|
Case "validateEndnotes1"
|
||||||
getSerbian = "у end фусноти (апсолутни број)"
|
getSerbian = "у end фусноти (апсолутни број)"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "setOutlineLevel"
|
Case "setOutlineLevel"
|
||||||
getSerbian = "задатен уровен структури документа"
|
getSerbian = "задатен уровен структури документа"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "section"
|
Case "section"
|
||||||
getSerbian = "Одјељак"
|
getSerbian = "Одјељак"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "isInTable"
|
Case "isInTable"
|
||||||
getSerbian = "смештене унутар стола."
|
getSerbian = "смештене унутар стола"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundHeadingIn"
|
Case "foundHeadingIn"
|
||||||
getSerbian = "Наслов пронађен у"
|
getSerbian = "Наслов пронађен у"
|
||||||
|
|
@ -1099,11 +1117,11 @@ Function getSerbian(identifier As String) As String
|
||||||
getSerbian = "стил странице"
|
getSerbian = "стил странице"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "table"
|
Case "table"
|
||||||
getSerbian = "стола"
|
getSerbian = "стола"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationStarted"
|
Case "validationStarted"
|
||||||
getSerbian = "Провера у тијеку"
|
getSerbian = "Провера у тијеку"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "chooseFontNameDialogTitle"
|
Case "chooseFontNameDialogTitle"
|
||||||
getSerbian = "Изаберите фонт да бисте направили извештај."
|
getSerbian = "Изаберите фонт да бисте направили извештај."
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -1138,8 +1156,8 @@ Function getSerbian(identifier As String) As String
|
||||||
getSerbian = "Исправљамо DOI"
|
getSerbian = "Исправљамо DOI"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuResetChapterNumberingRules"
|
Case "advancedMenuResetChapterNumberingRules"
|
||||||
getSerbian = "Ресетујте поставке нумерисања поглавља"
|
getSerbian = "Ресетујте поставке нумерисања поглавља"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogConfigMaxSuperscript"
|
Case "dialogConfigMaxSuperscript"
|
||||||
getSerbian = "Максимална дужина реда у натпису"
|
getSerbian = "Максимална дужина реда у натпису"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -1153,8 +1171,8 @@ Function getSerbian(identifier As String) As String
|
||||||
getSerbian = "Замена цртица између бројева нумеричким цртицама"
|
getSerbian = "Замена цртица између бројева нумеричким цртицама"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuconvertFontsToCharStyles"
|
Case "advancedMenuconvertFontsToCharStyles"
|
||||||
getSerbian = "Створите стилове знакова од пронађених фонтова "
|
getSerbian = "Створите стилове знакова од пронађених фонтова "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "buttonClose"
|
Case "buttonClose"
|
||||||
getSerbian = "Затворити"
|
getSerbian = "Затворити"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -1162,20 +1180,26 @@ Function getSerbian(identifier As String) As String
|
||||||
getSerbian = "Укупно пронађено: "
|
getSerbian = "Укупно пронађено: "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "coloredTextDescription"
|
Case "coloredTextDescription"
|
||||||
getSerbian = "Навигација по истакнутом тексту "
|
getSerbian = "Навигација по истакнутом тексту "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundColoredTextMessage"
|
Case "foundColoredTextMessage"
|
||||||
getSerbian = "Пронађен је текст са непрозирном позадином. Ово обично није погодно за електронско издавање. Користите „Без попуњавања“ уместо беле позадине "
|
getSerbian = "Пронађен је текст са непрозирном позадином. Ово обично није погодно за електронско издавање. Користите „Без попуњавања“ уместо беле позадине "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "invalidParagraphFormattingFound"
|
Case "invalidParagraphFormattingFound"
|
||||||
getSerbian = "Пронађене су нетачне поставке форматирања пасуса. Потребно чишћење. "
|
getSerbian = "Пронађене су нетачне поставке форматирања пасуса. Потребно чишћење. "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "fixBrokenCharBackTransparentMenuItem"
|
Case "fixBrokenCharBackTransparentMenuItem"
|
||||||
getSerbian = "Исправите нетачна подешавања попуњавања боја за пасусе "
|
getSerbian = "Исправите нетачна подешавања попуњавања боја за пасусе "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "badSymbols"
|
Case "badSymbols"
|
||||||
getSerbian = "Неодговарајуће знакова за објављивање"
|
getSerbian = "Неодговарајуће знакова за објављивање"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
Case "badNoteSings"
|
||||||
|
getSerbian = "Неприкладни симболи фуснота "
|
||||||
|
Exit Function
|
||||||
|
Case "validationBadFootnotesSymbolsNotification"
|
||||||
|
getSerbian = "У симболима фуснота пронађени су неприкладни за објављивање симболи. "& chr(10) &" Кликом на стрелице навигатора можете се кретати између пронађених симбола фуснота. "
|
||||||
|
Exit Function
|
||||||
Case Else
|
Case Else
|
||||||
getSerbian = "No translation"
|
getSerbian = "No translation"
|
||||||
End Select
|
End Select
|
||||||
|
|
@ -1316,7 +1340,7 @@ Function getBosnian(identifier As String) As String
|
||||||
getBosnian = "Svi pronađeni primedbe moraju biti ispravljeni prije objavljivanja dokumenta."
|
getBosnian = "Svi pronađeni primedbe moraju biti ispravljeni prije objavljivanja dokumenta."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationBadSymbolsNotification"
|
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
|
Exit Function
|
||||||
Case "validationBadDrawings"
|
Case "validationBadDrawings"
|
||||||
getBosnian = "Dokument sadrži crteže ("
|
getBosnian = "Dokument sadrži crteže ("
|
||||||
|
|
@ -1358,22 +1382,22 @@ Function getBosnian(identifier As String) As String
|
||||||
getBosnian = "Podešavanje čišćenja i provjere"
|
getBosnian = "Podešavanje čišćenja i provjere"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogRussianFixesIPH"
|
Case "dialogRussianFixesIPH"
|
||||||
getBosnian = "Ispravci za tekstove na ruskom"
|
getBosnian = "Ispravci za tekstove na ruskom"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "documentIsReadOnly"
|
Case "documentIsReadOnly"
|
||||||
getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
|
getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validateEndnotes1"
|
Case "validateEndnotes1"
|
||||||
getBosnian = "u end fusnoti (apsolutni broj)"
|
getBosnian = "u end fusnoti (apsolutni broj)"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "setOutlineLevel"
|
Case "setOutlineLevel"
|
||||||
getBosnian = "zadati uroven strukturni dokument"
|
getBosnian = "zadati uroven strukturni dokument"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "section"
|
Case "section"
|
||||||
getBosnian = "Odjeljak"
|
getBosnian = "Odjeljak"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "isInTable"
|
Case "isInTable"
|
||||||
getBosnian = "smještene unutar stola."
|
getBosnian = "smještene unutar stola"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundHeadingIn"
|
Case "foundHeadingIn"
|
||||||
getBosnian = "Naslov pronađen u"
|
getBosnian = "Naslov pronađen u"
|
||||||
|
|
@ -1388,11 +1412,11 @@ Function getBosnian(identifier As String) As String
|
||||||
getBosnian = "stil stranice"
|
getBosnian = "stil stranice"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "table"
|
Case "table"
|
||||||
getBosnian = "stola"
|
getBosnian = "stola"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "validationStarted"
|
Case "validationStarted"
|
||||||
getBosnian = "Provjera u tijeku"
|
getBosnian = "Provjera u tijeku"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "chooseFontNameDialogTitle"
|
Case "chooseFontNameDialogTitle"
|
||||||
getBosnian = "Odaberite font za stvaranje izvješća."
|
getBosnian = "Odaberite font za stvaranje izvješća."
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -1427,8 +1451,8 @@ Function getBosnian(identifier As String) As String
|
||||||
getBosnian = "Ispravljamo DOI"
|
getBosnian = "Ispravljamo DOI"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuResetChapterNumberingRules"
|
Case "advancedMenuResetChapterNumberingRules"
|
||||||
getBosnian = "Resetirajte postavke numeriranja poglavlja"
|
getBosnian = "Resetirajte postavke numeriranja poglavlja"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "dialogConfigMaxSuperscript"
|
Case "dialogConfigMaxSuperscript"
|
||||||
getBosnian = "Maksimalna dužina retka u natpisu"
|
getBosnian = "Maksimalna dužina retka u natpisu"
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -1442,8 +1466,8 @@ Function getBosnian(identifier As String) As String
|
||||||
getBosnian = "Zamjena crtica između brojeva numeričkim crticama"
|
getBosnian = "Zamjena crtica između brojeva numeričkim crticama"
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "advancedMenuconvertFontsToCharStyles"
|
Case "advancedMenuconvertFontsToCharStyles"
|
||||||
getBosnian = "Stvorite stilove znakova iz pronađenih fontova "
|
getBosnian = "Stvorite stilove znakova iz pronađenih fontova "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "buttonClose"
|
Case "buttonClose"
|
||||||
getBosnian = "Zatvoriti "
|
getBosnian = "Zatvoriti "
|
||||||
Exit Function
|
Exit Function
|
||||||
|
|
@ -1451,20 +1475,26 @@ Function getBosnian(identifier As String) As String
|
||||||
getBosnian = "Ukupno pronađeno: "
|
getBosnian = "Ukupno pronađeno: "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "coloredTextDescription"
|
Case "coloredTextDescription"
|
||||||
getBosnian = "Navigacija istaknutim tekstom "
|
getBosnian = "Navigacija istaknutim tekstom "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "foundColoredTextMessage"
|
Case "foundColoredTextMessage"
|
||||||
getBosnian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine "
|
getBosnian = "Pronađen tekst s neprozirnom pozadinom. To obično nije prikladno za elektroničko izdavanje. Upotrijebite „Bez popunjavanja“ umjesto bijele pozadine "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "invalidParagraphFormattingFound"
|
Case "invalidParagraphFormattingFound"
|
||||||
getBosnian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. "
|
getBosnian = "Pronađene su pogrešne postavke oblikovanja odlomaka. Potrebno čišćenje. "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "fixBrokenCharBackTransparentMenuItem"
|
Case "fixBrokenCharBackTransparentMenuItem"
|
||||||
getBosnian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
|
getBosnian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
|
||||||
Exit Function
|
Exit Function
|
||||||
Case "badSymbols"
|
Case "badSymbols"
|
||||||
getBosnian = "Neprimjerene znakova za objavljivanje"
|
getBosnian = "Neprimjerene znakova za objavljivanje"
|
||||||
Exit Function
|
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
|
Case Else
|
||||||
getBosnian = "No translation"
|
getBosnian = "No translation"
|
||||||
End Select
|
End Select
|
||||||
|
|
|
||||||
|
|
@ -1,13 +1,13 @@
|
||||||
<?xml version="1.0" encoding="UTF-8"?>
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
<!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
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Sub validateButton
|
Sub validateButton
|
||||||
Dim footnotesReport As String
|
Dim footnotesReport As Boolean
|
||||||
Dim graphicsReport As String
|
Dim graphicsReport As String
|
||||||
Dim sectionsReport As String
|
Dim sectionsReport As String
|
||||||
Dim outlinePageStylesReport As String
|
Dim outlinePageStylesReport As String
|
||||||
|
|
@ -27,7 +27,7 @@ Sub validateButton
|
||||||
|
|
||||||
badText = false
|
badText = false
|
||||||
badNumberings = false
|
badNumberings = false
|
||||||
footnotesReport = noteSingsCheck
|
footnotesReport = noteSingsCheck()
|
||||||
statusIndicator.setValue(10)
|
statusIndicator.setValue(10)
|
||||||
graphicsReport = checkGraphics
|
graphicsReport = checkGraphics
|
||||||
statusIndicator.setValue(20)
|
statusIndicator.setValue(20)
|
||||||
|
|
@ -49,9 +49,6 @@ Sub validateButton
|
||||||
MsgBox outlinePageStylesReport
|
MsgBox outlinePageStylesReport
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If footnotesReport <> "" Then
|
|
||||||
MsgBox footnotesReport
|
|
||||||
EndIf
|
|
||||||
If graphicsReport <> "" Then
|
If graphicsReport <> "" Then
|
||||||
MsgBox graphicsReport
|
MsgBox graphicsReport
|
||||||
EndIf
|
EndIf
|
||||||
|
|
@ -59,7 +56,7 @@ Sub validateButton
|
||||||
MsgBox sectionsReport
|
MsgBox sectionsReport
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
badText = findBadCharacters
|
badText = findBadCharacters()
|
||||||
|
|
||||||
If config.getPropertyValue("complexity") = "makerUp" then
|
If config.getPropertyValue("complexity") = "makerUp" then
|
||||||
needExtendedInfo = true
|
needExtendedInfo = true
|
||||||
|
|
@ -75,9 +72,8 @@ Sub validateButton
|
||||||
|
|
||||||
numberingsErros = printNumberingSymbols(needExtendedInfo)
|
numberingsErros = printNumberingSymbols(needExtendedInfo)
|
||||||
statusIndicator.setValue(80)
|
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")
|
MsgBox getTranslation("validationWarning")
|
||||||
|
|
||||||
Else
|
Else
|
||||||
MsgBox getTranslation("validationSuccess")
|
MsgBox getTranslation("validationSuccess")
|
||||||
EndIf
|
EndIf
|
||||||
|
|
@ -142,7 +138,7 @@ Sub replaceCharsInDOI
|
||||||
AskAndReplace("(?<=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}","-")
|
AskAndReplace("(?<=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}","-")
|
||||||
End sub
|
End sub
|
||||||
|
|
||||||
Private Function noteSingsCheck() As String
|
Private Function noteSingsCheck() As Boolean
|
||||||
Dim footnotes As Object
|
Dim footnotes As Object
|
||||||
Dim footnote As Object
|
Dim footnote As Object
|
||||||
Dim endnote As Object
|
Dim endnote As Object
|
||||||
|
|
@ -152,9 +148,11 @@ Private Function noteSingsCheck() As String
|
||||||
Dim char As Long
|
Dim char As Long
|
||||||
Dim label As String
|
Dim label As String
|
||||||
Dim result As String
|
Dim result As String
|
||||||
|
Dim founds() As Object
|
||||||
|
noteSingsCheck = false
|
||||||
result = ""
|
result = ""
|
||||||
footnotes = ThisComponent.footnotes
|
footnotes = ThisComponent.Footnotes
|
||||||
endnotes = ThisComponent.Footnotes
|
endnotes = ThisComponent.Endnotes
|
||||||
count = footnotes.getCount
|
count = footnotes.getCount
|
||||||
Dim i As Integer
|
Dim i As Integer
|
||||||
Dim j As Integer
|
Dim j As Integer
|
||||||
|
|
@ -164,8 +162,9 @@ Private Function noteSingsCheck() As String
|
||||||
charNum = Len(label)
|
charNum = Len(label)
|
||||||
For j = 1 to charNum
|
For j = 1 to charNum
|
||||||
char = Asc(Right(Left(label,j),1))
|
char = Asc(Right(Left(label,j),1))
|
||||||
If char >= 57344 AND char <= 63743 then
|
If char >= 57344 AND char <= 63743 Then
|
||||||
result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10)
|
addToArray(founds,footnote.Anchor)
|
||||||
|
'result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10)
|
||||||
End If
|
End If
|
||||||
Next j
|
Next j
|
||||||
Next i
|
Next i
|
||||||
|
|
@ -176,12 +175,18 @@ Private Function noteSingsCheck() As String
|
||||||
charNum = Len(label)
|
charNum = Len(label)
|
||||||
For j = 1 to charNum
|
For j = 1 to charNum
|
||||||
char = Asc(Right(Left(label,j),1))
|
char = Asc(Right(Left(label,j),1))
|
||||||
If char >= 57344 AND char <= 63743 then
|
If char >= 57344 AND char <= 63743 Then
|
||||||
result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateEndnotes1") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10)
|
addToArray(founds,endnote.Anchor)
|
||||||
|
'result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateEndnotes1") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10)
|
||||||
End If
|
End If
|
||||||
Next j
|
Next j
|
||||||
Next i
|
Next i
|
||||||
noteSingsCheck = result
|
If (UBound(founds) > 0) Then
|
||||||
|
noteSingsCheck = true
|
||||||
|
MsgBox(getTranslation("validationBadFootnotesSymbolsNotification"))
|
||||||
|
startNavigatorDialog(getTranslation("badNoteSings"),founds)
|
||||||
|
EndIf
|
||||||
|
'noteSingsCheck = result
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Function checkNotesOutline As String
|
Function checkNotesOutline As String
|
||||||
|
|
|
||||||
BIN
translations.ods
BIN
translations.ods
Binary file not shown.
Loading…
Add table
Reference in a new issue