litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Check for bad symbols in endnote signs

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-03 15:47:47 +02:00
parent 067119da14
commit 17c5b58f7d
1 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Redaction/Validation.xba
View file

@ -1,6 +1,6 @@
<?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 markval2 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval3
End Sub End Sub
@ -34,7 +34,7 @@ Sub validateButton
badText = false badText = false
badFootnoteSigns = false badFootnoteSigns = false
badNumberings = false badNumberings = false
footnotesReport = checkAllFootnotes footnotesReport = noteSingsCheck
graphicsReport = checkGraphics graphicsReport = checkGraphics
If footnotesReport &lt;&gt; &quot;&quot; Then If footnotesReport &lt;&gt; &quot;&quot; Then
badFootnoteSigns = true badFootnoteSigns = true
@ -123,15 +123,19 @@ Private Sub removeBadCharacters
showTrackedChanges showTrackedChanges
End Sub End Sub
Private Function checkAllFootnotes() As String Private Function noteSingsCheck() As String
Dim footnotes As Object Dim footnotes As Object
Dim footnote As Object
Dim endnote As Object
Dim endnotes As Object
Dim count as Integer Dim count as Integer
Dim charNum as Long Dim charNum as Long
Dim char As Long Dim char As Long
Dim label As String Dim label As String
Dim result As String Dim result As String
result = &quot;&quot; result = &quot;&quot;
footnotes = ThisComponent.Footnotes footnotes = ThisComponent.footnotes
endnotes = ThisComponent.Footnotes
count = footnotes.getCount count = footnotes.getCount
Dim i As Integer Dim i As Integer
Dim j As Integer Dim j As Integer
@ -146,7 +150,19 @@ Private Function checkAllFootnotes() As String
End If End If
Next j Next j
Next i Next i
checkAllFootnotes = result count = endnotes.getCount
For i = 0 to count-1
endnote = endnotes.getByIndex(i)
label = endnote.Label
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)
End If
Next j
Next i
noteSingsCheck = result
End Function End Function
Private Sub printNumberingSymbols(needExtendedInfo) Private Sub printNumberingSymbols(needExtendedInfo)