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

Added check for sections in tables

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-06 09:43:46 +02:00
parent 6c42e2b6b3
commit 6059460ced
7 changed files with 63 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Redaction/Validation.xba
View file

@ -1,6 +1,6 @@
<?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 markval5
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval6
End Sub
@ -25,6 +25,7 @@ End Function
Sub validateButton
Dim footnotesReport As String
Dim graphicsReport As String
Dim sectionsReport As String
Dim outlineInNotesReport As String
Dim badText As Boolean
Dim badNumberings As Boolean
@ -35,6 +36,7 @@ Sub validateButton
badNumberings = false
footnotesReport = noteSingsCheck
graphicsReport = checkGraphics
sectionsReport = checkSectionsInTables
outlineInNotesReport = checkNotesOutline()
If outlineInNotesReport &lt;&gt; &quot;&quot; Then
MsgBox outlineInNotesReport
@ -45,6 +47,9 @@ Sub validateButton
If graphicsReport &lt;&gt; &quot;&quot; Then
MsgBox graphicsReport
EndIf
If sectionsReport &lt;&gt; &quot;&quot; Then
MsgBox sectionsReport
EndIf
If isInDoc(&quot;[\uE000-\uF8FF]&quot;) Then
badText = true
EndIf
@ -57,7 +62,7 @@ Sub validateButton
printNumberingSymbols(needExtendedInfo)
If badText OR badNumberings OR footnotesReport &lt;&gt; &quot;&quot; OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Then
If 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; Then
MsgBox getTranslation(&quot;validationWarning&quot;)
If badText Then
MsgBox getTranslation(&quot;validationBadSymbolsNotification&quot;)
@ -165,6 +170,7 @@ End Function
Function checkNotesOutline As String
Dim oDescriptor As Object
Dim footNotes As Object
Dim endNotes As Object
Dim x As Integer
Dim aNote As Object
Dim oEnum As Object
@ -198,6 +204,27 @@ Function checkNotesOutline As String
checkNotesOutline = result
End Function
Function checkSectionsInTables As String
Dim x As Integer
Dim oEnum As Object
Dim result As String
Dim sections As Object
Dim section As Object
Dim anchor As Object
Dim anchorText As Object
result = &quot;&quot;
sections = thisComponent.TextSections
for x = 0 to sections.Count -1
section = sections.getByIndex(x)
anchor = section.getAnchor()
anchorText = anchor.getText()
If anchorText.supportsService(&quot;com.sun.star.text.CellProperties&quot;) Then
result = result &amp; getTranslation(&quot;section&quot;) &amp; &quot; &quot; &amp; section.Name &amp; &quot; &quot; &amp; getTranslation(&quot;isInTable&quot;) &amp; chr(10)
EndIf
Next
checkSectionsInTables = result
End Function
Private Sub printNumberingSymbols(needExtendedInfo)
Dim families As Object
Dim numStyles As Object