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 = "Конвертировать символы в целевые свободные шрифты"
|
||||
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 = "В документе найдены рисунки ("
|
||||
|
|
@ -216,7 +216,7 @@ Function getRussian(identifier As String) As String
|
|||
getRussian = "Раздел"
|
||||
Exit Function
|
||||
Case "isInTable"
|
||||
getRussian = "находится внутри таблицы."
|
||||
getRussian = "находится внутри таблицы"
|
||||
Exit Function
|
||||
Case "foundHeadingIn"
|
||||
getRussian = "Найден заголовок в"
|
||||
|
|
@ -308,6 +308,12 @@ Function getRussian(identifier As String) As String
|
|||
Case "badSymbols"
|
||||
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"
|
||||
|
|
@ -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 ("
|
||||
|
|
@ -506,7 +512,7 @@ Function getEnglish(identifier As String) As String
|
|||
getEnglish = "Section"
|
||||
Exit Function
|
||||
Case "isInTable"
|
||||
getEnglish = "located inside the table."
|
||||
getEnglish = "located inside the table"
|
||||
Exit Function
|
||||
Case "foundHeadingIn"
|
||||
getEnglish = "Found heading in"
|
||||
|
|
@ -598,6 +604,12 @@ Function getEnglish(identifier As String) As String
|
|||
Case "badSymbols"
|
||||
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 ("
|
||||
|
|
@ -795,7 +807,7 @@ Function getCroatian(identifier As String) As String
|
|||
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"
|
||||
|
|
@ -887,6 +899,12 @@ Function getCroatian(identifier As String) As String
|
|||
Case "badSymbols"
|
||||
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 = "У документу се налазе цртежи ("
|
||||
|
|
@ -1084,7 +1102,7 @@ Function getSerbian(identifier As String) As String
|
|||
getSerbian = "Одјељак"
|
||||
Exit Function
|
||||
Case "isInTable"
|
||||
getSerbian = "смештене унутар стола."
|
||||
getSerbian = "смештене унутар стола"
|
||||
Exit Function
|
||||
Case "foundHeadingIn"
|
||||
getSerbian = "Наслов пронађен у"
|
||||
|
|
@ -1176,6 +1194,12 @@ Function getSerbian(identifier As String) As String
|
|||
Case "badSymbols"
|
||||
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 ("
|
||||
|
|
@ -1373,7 +1397,7 @@ Function getBosnian(identifier As String) As String
|
|||
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"
|
||||
|
|
@ -1465,6 +1489,12 @@ Function getBosnian(identifier As String) As String
|
|||
Case "badSymbols"
|
||||
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
|
||||
|
|
|
|||
|
|
@ -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 <> "" 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
|
||||
|
|
|
|||
BIN
translations.ods
BIN
translations.ods
Binary file not shown.
Loading…
Add table
Reference in a new issue