Added check for sections in tables

Redaction/Configuration.xba

@@ -1,7 +1,7 @@
 <?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="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
-Public Const redactionExtensionVersion = &quot;0.8.2&quot;
+Public Const redactionExtensionVersion = &quot;0.8.3&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object

Redaction/Translations.xba

@@ -212,6 +212,12 @@ Function getRussian(identifier As String) As String
       Case "setOutlineLevel"
         getRussian = "задан уровень структуры документа"
         Exit Function
+      Case "section"
+         getRussian = "Раздел"
+         Exit Function
+      Case "isInTable"
+         getRussian = "находится внутри таблицы."
+         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
 	End Select  
@@ -406,6 +412,12 @@ Function getEnglish(identifier As String) As String
       Case "setOutlineLevel"
         getEnglish = "set document structure level"
         Exit Function
+      Case "section"
+         getEnglish = "Section"
+         Exit Function
+      Case "isInTable"
+         getEnglish = "located inside the table."
+         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  
@@ -599,6 +611,12 @@ Function getCroatian(identifier As String) As String
       Case "setOutlineLevel"
         getCroatian = "zadati uroven strukturni dokument"
         Exit Function
+      Case "section"
+         getCroatian = "Odjeljak"
+         Exit Function
+      Case "isInTable"
+         getCroatian = "smještene unutar stola."
+         Exit Function
       Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -792,6 +810,12 @@ Function getSerbian(identifier As String) As String
       Case "setOutlineLevel"
         getSerbian = "задатен уровен структури документа"
         Exit Function
+      Case "section"
+         getSerbian = "Одјељак"
+         Exit Function
+      Case "isInTable"
+         getSerbian = "смештене унутар стола."
+         Exit Function
       Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -985,6 +1009,12 @@ Function getBosnian(identifier As String) As String
       Case "setOutlineLevel"
         getBosnian = "zadati uroven strukturni dokument"
         Exit Function
+      Case "section"
+         getBosnian = "Odjeljak"
+         Exit Function
+      Case "isInTable"
+         getBosnian = "smještene unutar stola."
+         Exit Function
       Case Else
 	    getBosnian = "No translation"
 	End Select  

Redaction/Validation.xba

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