Addons.xcu

@@ -115,7 +115,7 @@
            </prop>
            <node oor:name="UserDefinedImages">
              <prop oor:name="ImageBigURL">
-               <value>%origin%/icons/clean.svg</value>
+               <value>%origin%/icons/clean.png</value>
              </prop>
            </node>
          </node>
@@ -125,7 +125,7 @@
            </prop>
            <node oor:name="UserDefinedImages">
              <prop oor:name="ImageBigURL">
-               <value>%origin%/icons/validate.svg</value>
+               <value>%origin%/icons/validate.png</value>
              </prop>
            </node>
          </node>
@@ -135,7 +135,7 @@
            </prop>
            <node oor:name="UserDefinedImages">
              <prop oor:name="ImageBigURL">
-               <value>%origin%/icons/report.svg</value>
+               <value>%origin%/icons/report.png</value>
              </prop>
            </node>
          </node>

META-INF/manifest.xml

@@ -2,6 +2,5 @@
 <manifest:manifest>
  <manifest:file-entry manifest:full-path="Redaction/" manifest:media-type="application/vnd.sun.star.basic-library"/>
  <manifest:file-entry manifest:full-path="Addons.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>
- <manifest:file-entry manifest:full-path="Templates.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>
  <manifest:file-entry manifest:full-path="WriterWindowState.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>
 </manifest:manifest>

Redaction/Clean.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="Clean" script:language="StarBasic">Sub mark96
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark82
 
 End Sub
 
@@ -13,9 +13,6 @@ Sub cleanButton
 	  MsgBox(getTranslation(&quot;documentIsReadOnly&quot;))
 	  Exit Sub 
 	EndIf
-	If config.getPropertyValue(&quot;predefined_template&quot;) = &quot;false&quot; Then
-		configureStyleFileDialog()
-	EndIf
 	If config.getPropertyValue(&quot;complexity&quot;) = &quot;user&quot; then
 		quietStartDialog()
 	Else
@@ -23,46 +20,43 @@ Sub cleanButton
 	EndIf	
 End Sub
 
-Dim advancedCleaningDialog As Object
-
 Private Sub makerUpMenu
+	Dim dialog As Object
 	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
-	advancedCleaningDialog = CreateUnoDialog(DialogLibraries.Redaction.CleaningDialog)
+	dialog = CreateUnoDialog(DialogLibraries.Redaction.CleaningDialog)
-    advancedCleaningDialog.getControl(&quot;fontsInStyles&quot;).Label = getTranslation(&quot;advancedMenuReplaceFontsInStyles&quot;)
+	
-    advancedCleaningDialog.getControl(&quot;symbolsConversion&quot;).Label = getTranslation(&quot;advancedMenuSymbolsConversion&quot;)
+    dialog.getControl(&quot;fontsInStyles&quot;).Label = getTranslation(&quot;advancedMenuReplaceFontsInStyles&quot;)
-    advancedCleaningDialog.getControl(&quot;cleanFormatting&quot;).Label = getTranslation(&quot;advancedMenuCleanFormatting&quot;)
+    dialog.getControl(&quot;symbolsConversion&quot;).Label = getTranslation(&quot;advancedMenuSymbolsConversion&quot;)
-    advancedCleaningDialog.getControl(&quot;replaceWhiteBackground&quot;).Label = getTranslation(&quot;advancedMenuReplaceWhiteBackground&quot;)
+    dialog.getControl(&quot;cleanFormatting&quot;).Label = getTranslation(&quot;advancedMenuCleanFormatting&quot;)
-    advancedCleaningDialog.getControl(&quot;removeUnusedStyles&quot;).Label = getTranslation(&quot;advancedMenuRemoveUnusedStyles&quot;)
+    dialog.getControl(&quot;replaceWhiteBackground&quot;).Label = getTranslation(&quot;advancedMenuReplaceWhiteBackground&quot;)
-    advancedCleaningDialog.getControl(&quot;removeLinks&quot;).Label = getTranslation(&quot;advancedMenuRemoveLinks&quot;)
+    dialog.getControl(&quot;removeUnusedStyles&quot;).Label = getTranslation(&quot;advancedMenuRemoveUnusedStyles&quot;)
-    advancedCleaningDialog.getControl(&quot;removeAllFields&quot;).Label = getTranslation(&quot;advancedMenuRemoveAllFields&quot;)
+    dialog.getControl(&quot;removeLinks&quot;).Label = getTranslation(&quot;advancedMenuRemoveLinks&quot;)
-    advancedCleaningDialog.getControl(&quot;removeBookmarks&quot;).Label = getTranslation(&quot;advancedMenuRemoveBookmarks&quot;)
+    dialog.getControl(&quot;removeAllFields&quot;).Label = getTranslation(&quot;advancedMenuRemoveAllFields&quot;)
-    advancedCleaningDialog.getControl(&quot;configTables&quot;).Label = getTranslation(&quot;advancedMenuConfigTables&quot;)
+    dialog.getControl(&quot;removeBookmarks&quot;).Label = getTranslation(&quot;advancedMenuRemoveBookmarks&quot;)
-    advancedCleaningDialog.getControl(&quot;configAnchors&quot;).Label = getTranslation(&quot;advancedMenuConfigAnchors&quot;)
+    dialog.getControl(&quot;configTables&quot;).Label = getTranslation(&quot;advancedMenuConfigTables&quot;)
-    advancedCleaningDialog.getControl(&quot;fixMistakes&quot;).Label = getTranslation(&quot;advancedMenuFixMistakes&quot;)
+    dialog.getControl(&quot;configAnchors&quot;).Label = getTranslation(&quot;advancedMenuConfigAnchors&quot;)
-    advancedCleaningDialog.getControl(&quot;fixDOI&quot;).Label = getTranslation(&quot;advancedMenuFixDOI&quot;)
+    dialog.getControl(&quot;fixMistakes&quot;).Label = getTranslation(&quot;advancedMenuFixMistakes&quot;)
-    advancedCleaningDialog.getControl(&quot;replaceNumHyphen&quot;).Label = getTranslation(&quot;replaceNumHyphen&quot;)
+    dialog.getControl(&quot;fixDOI&quot;).Label = getTranslation(&quot;advancedMenuFixDOI&quot;)
-    advancedCleaningDialog.getControl(&quot;removeInitPageBreak&quot;).Label = getTranslation(&quot;advancedMenuRemoveInitPageBreak&quot;)
+    dialog.getControl(&quot;replaceNumHyphen&quot;).Label = getTranslation(&quot;replaceNumHyphen&quot;)
-    advancedCleaningDialog.getControl(&quot;removePageStyles&quot;).Label = getTranslation(&quot;advancedMenuRemovePageStyles&quot;)
+    dialog.getControl(&quot;removeInitPageBreak&quot;).Label = getTranslation(&quot;advancedMenuRemoveInitPageBreak&quot;)
-    advancedCleaningDialog.getControl(&quot;loadStandardStyles&quot;).Label = getTranslation(&quot;advancedMenuLoadStandardStyles&quot;)
+    dialog.getControl(&quot;removePageStyles&quot;).Label = getTranslation(&quot;advancedMenuRemovePageStyles&quot;)
-    advancedCleaningDialog.getControl(&quot;removeManualPageBreaks&quot;).Label = getTranslation(&quot;advancedMenuRemoveManualPageBreaks&quot;)
+    dialog.getControl(&quot;loadStandardStyles&quot;).Label = getTranslation(&quot;advancedMenuLoadStandardStyles&quot;)
-    advancedCleaningDialog.getControl(&quot;removeBasic&quot;).Label = getTranslation(&quot;advancedMenuRemoveBasic&quot;)
+    dialog.getControl(&quot;removeManualPageBreaks&quot;).Label = getTranslation(&quot;advancedMenuRemoveManualPageBreaks&quot;)
-    advancedCleaningDialog.getControl(&quot;resetChapterNumberingRules&quot;).Label = getTranslation(&quot;advancedMenuResetChapterNumberingRules&quot;)
+    dialog.getControl(&quot;removeBasic&quot;).Label = getTranslation(&quot;advancedMenuRemoveBasic&quot;)
-    advancedCleaningDialog.getControl(&quot;convertFontsToCharStyles&quot;).Label = getTranslation(&quot;advancedMenuconvertFontsToCharStyles&quot;)
+    dialog.getControl(&quot;resetChapterNumberingRules&quot;).Label = getTranslation(&quot;advancedMenuResetChapterNumberingRules&quot;)
-    advancedCleaningDialog.getControl(&quot;fixBrokenCharBackTransparent&quot;).Label = getTranslation(&quot;fixBrokenCharBackTransparentMenuItem&quot;)
+    dialog.getControl(&quot;convertFontsToCharStyles&quot;).Label = getTranslation(&quot;advancedMenuconvertFontsToCharStyles&quot;)
-    advancedCleaningDialog.getControl(&quot;removeNotTransparentBackgrounds&quot;).Label = getTranslation(&quot;removeNotTransparentBackgrounds&quot;)
+    dialog.getControl(&quot;fixBrokenCharBackTransparent&quot;).Label = getTranslation(&quot;fixBrokenCharBackTransparentMenuItem&quot;)
-    advancedCleaningDialog.getControl(&quot;fixDiacriticKerning&quot;).Label = getTranslation(&quot;fixDiacriticKerning&quot;)
+    dialog.getControl(&quot;Cancel&quot;).Label = getTranslation(&quot;buttonCancel&quot;)
-    advancedCleaningDialog.getControl(&quot;Cancel&quot;).Label = getTranslation(&quot;buttonCancel&quot;)
+    dialog.getControl(&quot;OK&quot;).Label = getTranslation(&quot;buttonOK&quot;)
-    advancedCleaningDialog.getControl(&quot;OK&quot;).Label = getTranslation(&quot;buttonOK&quot;)
+    dialog.getControl(&quot;buttonLoad&quot;).Label = getTranslation(&quot;buttonLoad&quot;)
-    advancedCleaningDialog.getControl(&quot;buttonLoad&quot;).Label = getTranslation(&quot;buttonLoad&quot;)
+    dialog.Title = getTranslation(&quot;advancedMenuDialogTitle&quot;)
-    advancedCleaningDialog.Title = getTranslation(&quot;advancedMenuDialogTitle&quot;)
+	dialog.setVisible(true)
-   	setAdvancedDialogDescription()
+	Select Case dialog.Execute()
-	advancedCleaningDialog.setVisible(true)
-	Select Case advancedCleaningDialog.Execute()
     Case 1
-        cleanAccordingTo(advancedCleaningDialog)
+        cleanAccordingTo(dialog)
     Case 0
     End Select
-    advancedCleaningDialog.dispose()
+    dialog.dispose()
     Exit sub	
 End Sub
 
@@ -162,12 +156,7 @@ Private Sub cleanAccordingTo(dialog As Object)
 	If dialog.getControl(&quot;fixBrokenCharBackTransparent&quot;).state = 1 Then
 		fixBrokenCharBackTransparent()
 	EndIf
-	If dialog.getControl(&quot;removeNotTransparentBackgrounds&quot;).state = 1 Then
+	
-		fixColoredBackgroundInDoc()
-	EndIf
-	If dialog.getControl(&quot;fixDiacriticKerning&quot;).state = 1 Then
-		fixDiacriticKerning()
-	EndIf
 	
 	statusIndicator.end()
 	saveAndreload()
@@ -206,8 +195,6 @@ Private Sub quietCleaning
 	saveAndreload()
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
     unicodeSymbolsConversion
-  	statusIndicator.Start(getTranslation(&quot;statusFixingDiacriticCharactersKerning&quot;),100)	
-    fixDiacriticKerning
    	statusIndicator.Start(getTranslation(&quot;statusCleaningManualFormatting&quot;),100)	
 	cleanFormatting
 	statusIndicator.Start(getTranslation(&quot;statusReplaceWhiteBackground&quot;),100)	
@@ -334,18 +321,12 @@ Private Sub unicodeSymbolsConversion
 	&apos;Extended latin-1 0080—00FF
 	&apos;Cyrillic unicode block range \u0400-\u04FF
 	&apos;Basic Latin \u0020-\u007E
-	&apos;Combining diacritical marks 0301 0304 0303 0323 032e 0331 035f
+	&apos;Combining diacritical marks 0301 0304 0323 032e 0331 035f
-	combiningDiacritic_Astra = &quot;\u0301\u0303\u0304\u0308\u0323\u032e\u0331\u0341\u035f&quot;
-	Dim extendedLatinA_Astra As String 
-	extendedLatinA_Astra = &quot;\u1e15\u1e17\u1e53\u0129\u0169&quot;
-	&apos;
-	&apos;
-	&apos;
 	&apos;General Punctuation \u2000-\u206f
 	&apos;Latin Extended A \u0100-\u017f
     &apos;\u02bb Modifier Letter Turned Comma is in IPH Astra
 &apos;	unicodeConversionEverywhere(&quot;[\u0020-\u007F]+&quot;,RAtts)
-	unicodeConversionEverywhere(&quot;[\u0020-\u007f\u0080-\u00ff\u0400-\u04ff\u2000-\u206f\u2100-\u214f\u02bb\u0100-\u017f&quot; &amp; combiningDiacritic_Astra &amp; extendedLatinA_Astra &amp;&quot;]+&quot;,RAtts)
+	unicodeConversionEverywhere(&quot;[\u0020-\u007f\u0080-\u00ff\u0400-\u04ff\u2000-\u206f\u2100-\u214f\u0301\u0304\u0323\u032e\u0331\u0341\u035f\u02bb\u0100-\u017f]+&quot;,RAtts)
 	&apos;Arabic Scheherazade
     &apos;Arabic Presentation Forms-A fb50-fdff
     &apos;Arabic Presentation Forms-B fe70-feff
@@ -470,24 +451,15 @@ Sub removeAllFields()
     field = fieldEnum.nextElement()
     field.dispose()
   Wend
-End Sub
+End sub
-
-Public Const RX_Greek_letters = &quot;\u0388-\u03ce&quot;
-Public Const RX_Latin_up_alphabet = &quot;\u0041-\u005a&quot;
-Public Const RX_Latin_low_alphabet = &quot;\u0061-\u007a&quot;
-Public Const RX_Cyrillic_alphabet = &quot;\u0410-\u044f&quot;
-Public Const RX_Comma = &quot;\u002c&quot;
-Public Const RX_Digits = &quot;\u0030-\u0039&quot;
-Public Const RX_Roman_numbers = &quot;MDCLXVI&quot;
-Public Const RX_Letters_Dash =  &quot;[&quot; &amp; RX_Latin_up_alphabet &amp; RX_Latin_low_alphabet &amp; RX_Cyrillic_alphabet &amp; RX_Greek_letters &amp; &quot;]&quot;
-Public Const RX_Letters = &quot;[&quot; &amp; RX_Latin_up_alphabet &amp; RX_Latin_low_alphabet &amp; RX_Cyrillic_alphabet &amp; RX_Greek_letters &amp; &quot;]&quot;
 
 Private Sub fixFrequentMistakes
 	Dim config As Object
 	config = initRedactionConfiguration()
 	Dim NBSP As String
 	Dim space As String
-
+	Dim latinPlusCyrillicLettersRegExp As String
+	latinPlusCyrillicLettersRegExp = &quot;[\u0041-\u005a\u0061-\u007a\u0410-\u044f]&quot;
 	NBSP = &quot; &quot;
 	space = &quot; &quot;
 	&apos;Не должно быть символов табуляции
@@ -504,21 +476,19 @@ Private Sub fixFrequentMistakes
    	AskAndReplace(&quot;[:space:]+(?=[\.,;:?!\)\]\}»¡¿”’])&quot;,&quot;&quot;)
    	&apos;Не должно быть пробелов после скобок [({ и кавычек «„
 	AskAndReplace(&quot;(?&lt;=[\(\[\{«„])[:space:]&quot;,&quot;&quot;)
-	&apos;Между буквами среднее или длинное тире должно быть замененено на среднее и обрамлено пробелами
+	&apos;Между буквами среднее тире должно обрамляться пробелами
-	AskAndReplace(&quot;(?&lt;=&quot; &amp; RX_Letters_Dash &amp; &quot;)[—–]+(?=.)&quot;,NBSP &amp; &quot;–&quot; &amp; NBSP)
+	AskAndReplace(&quot;(?&lt;=&quot; &amp; latinPlusCyrillicLettersRegExp &amp; &quot;)–(?=&quot; &amp; latinPlusCyrillicLettersRegExp &amp; &quot;)&quot;,NBSP &amp; &quot;–&quot; &amp; NBSP)
-	AskAndReplace(&quot;(?&lt;=.)[—–]+(?=&quot; &amp; RX_Letters_Dash &amp; &quot;)&quot;,NBSP &amp; &quot;–&quot; &amp; NBSP)
+	&apos;Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире
-	&apos;Между буквами дефисы-минусы, цифровые тире, средние тире и длинные тире заменяются на одно среднее тире
+    AskAndReplace(&quot;(?&lt;=&quot; &amp; latinPlusCyrillicLettersRegExp &amp; &quot;[:space:])[-‒—−](?=[:space:]&quot; &amp; latinPlusCyrillicLettersRegExp &amp; &quot;)&quot;,&quot;–&quot;)
-    AskAndReplace(&quot;(?&lt;=&quot; &amp; RX_Letters_Dash &amp; &quot;[:space:])[-‒—−–]+(?=[:space:].)&quot;,&quot;–&quot;)
-    AskAndReplace(&quot;(?&lt;=.[:space:])[-‒—−–]+(?=[:space:]&quot; &amp; RX_Letters_Dash &amp; &quot;)&quot;,&quot;–&quot;)
     &apos;Между двумя цифрами и тире не долнжо быть пробелов. А также тире должно быть цифровым.
     &apos;Также проверяем, что перед искомым тире нет DOI
     &apos;&apos;&apos;&apos;&apos;AskAndReplace(&quot;(?&lt;!DOI[0-9. /XVI:-‒–—−-]{1,50})(?&lt;=[:digit:])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[:digit:])&quot;,&quot;‒&quot;)
  	&apos;Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним
-	AskAndReplace(&quot;(?&lt;=[&quot; &amp; RX_Roman_numbers &amp; &quot;])(?:[:space:])?[-‒–—−]+(?:[:space:])?(?=[&quot; &amp; RX_Roman_numbers &amp; &quot;])&quot;,&quot;–&quot;)
+	AskAndReplace(&quot;(?&lt;=[MDCLXVI])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[MDCLXVI])&quot;,&quot;–&quot;)
 	&apos;Между буквой и угловой открывающейся скобкой должен быть пробел
-	AskAndReplace(&quot;(?&lt;=&quot; &amp; RX_Letters &amp; &quot;)&lt;(?=…&gt;)&quot;,space &amp; &quot;&lt;&quot;)
+	AskAndReplace(&quot;(?&lt;=&quot; &amp; latinPlusCyrillicLettersRegExp &amp; &quot;)&lt;(?=…&gt;)&quot;,space &amp; &quot;&lt;&quot;)
 	&apos;Между угловой закрывающейся скобкой и буквой должен быть пробел
-	AskAndReplace(&quot;(?&lt;=&lt;…)&gt;(?=&quot; &amp; RX_Letters &amp; &quot;)&quot;,&quot;&gt;&quot; &amp; space)	
+	AskAndReplace(&quot;(?&lt;=&lt;…)&gt;(?=&quot; &amp; latinPlusCyrillicLettersRegExp &amp; &quot;)&quot;,&quot;&gt;&quot; &amp; space)	
 	
 	If config.getPropertyValue(&quot;fixes_russian_iph&quot;) = &quot;true&quot; Then
 		&apos;между N. Y. не должно быть пробела
@@ -557,17 +527,17 @@ Private Sub loadArticleStyles
     Dim dispatcher As Object
     Dim filePath As String
     Dim fileTest As Object
-    Dim predefined As String
+    Dim fileName As String
     Dim aArgs(0)  As New com.sun.star.beans.PropertyValue
     Dim config As Object
 	config = initRedactionConfiguration()
-	predefined = config.getPropertyValue(&quot;predefined_template&quot;)
+	fileName = config.getPropertyValue(&quot;defaultTemplate&quot;)
-	filePath = getTemplateFile(predefined)
+    filePath = getTemplatePath() &amp; &quot;/&quot; &amp; fileName
     fileTest = CreateUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
     If NOT fileTest.exists(filePath) Then
-      configureStyleFileDialog()
+      noStylesFileDialog()
-      predefined = config.getPropertyValue(&quot;predefined_template&quot;)
+      fileName = config.getPropertyValue(&quot;defaultTemplate&quot;)
-      filePath = getTemplateFile(predefined)
+      filePath = getTemplatePath() &amp; &quot;/&quot; &amp; fileName
       If NOT fileTest.exists(filePath) Then
       &apos;MsgBox &quot;Файл стилей &quot; &amp; fileName &amp; &quot; не добавлен в Мои шаблоны. Не могу загрузить стили в текущий файл.&quot;
         Exit Sub
@@ -2018,7 +1988,7 @@ Sub replaceNumHyphenRegExp
 End sub
 
 Sub fixBrokenCharBackTransparent
-	Dim footNotes As Object 
+	Dim foonNotes As Object 
 	Dim endNotes As Object 
 	Dim i As Integer
 	Dim oStyles As Object
@@ -2097,93 +2067,4 @@ Sub setDefaultBackColorInText(oText As Object)
 		EndIf
 	Wend 
 End Sub
-
-
-Function fixColoredBackgroundInDoc() As Boolean
-	Dim founds As Object
-	Dim sDesc As Object
-	Dim i As Long
-	Dim foundObjects() As Object
-	Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue
-	SrchAttributes(0).Name = &quot;CharBackTransparent&quot;
-	SrchAttributes(0).Value = False
-	sDesc = Thiscomponent.createSearchDescriptor()
-	sDesc.SearchAll = true
-	sDesc.ValueSearch = false
-	sDesc.SearchRegularExpression = true
-    sDesc.searchStyles = true
-	sDesc.SetSearchAttributes(SrchAttributes())
-	founds = Thiscomponent.findAll(sDesc)
-	If founds.count &lt;&gt; 0 Then
-		foundObjects = convertXIndexAccessToArray(founds)
-		For i = LBound(foundObjects) To UBound(foundObjects)
-			foundObjects(i).CharBackTransparent = false
-			foundObjects(i).CharBackColor = -1
-		Next i
-	EndIf
-	
-End Function
-
-
-Sub fixDiacriticKerning
-	Dim oSearch As Object
-	Dim oFound As Object
-	Dim oPara As Object
-	oSearch = ThisComponent.createSearchDescriptor()
-	oSearch.SearchString = &quot;[\u0300-\u036F]&quot;
-	oSearch.SearchRegularExpression=True
-	oSearch.searchAll=True
-	oFound = ThisComponent.findFirst(oSearch)
-	Do While Not IsNull(oFound)
-		oPara = oFound.TextParagraph
-		fixDiacriticKerningInPara(oPara)
-		oFound = ThisComponent.findNext(oFound.End, oSearch)
-	Loop
-End Sub
-
-Sub fixDiacriticKerningInPara(oPara As Object)
-  Dim paraEnum As Object
-  Dim portion As Object
-  Dim prevPortion As Object
-  paraEnum = oPara.createEnumeration
-  If paraEnum.hasMoreElements Then
-  	prevPortion = paraEnum.nextElement
-    While paraEnum.hasMoreElements
-      portion = paraEnum.nextElement
-      While isFirstCharDiacritic(portion)
-        moveFirstCharacter(portion, prevPortion)
-      Wend
-      prevPortion = portion
-    Wend
-  EndIf
-End Sub
-
-Function isFirstCharDiacritic(portion As Object) As Boolean
-	isFirstCharDiacritic = false
-	Dim portionText As String
-	Dim diaLowBound As Long
-	Dim diaHighBound As Long
-	Dim charNum As Long
-	diaLowBound = 768
-	diaHighBound = 879
-	portionText = portion.String
-	If Len(portionText) = 0 Then
-	  Exit Function
-	EndIf
-	charNum = Asc(portionText)
-	If charNum &gt;= diaLowBound And charNum &lt;= diaHighBound Then
-	  isFirstCharDiacritic = true
-	EndIf
-End Function
-
-Sub moveFirstCharacter(portion As Object, prevPortion As Object)
-	Dim prevEnd As Object
-	Dim nextStart As Object
-	prevEnd = prevPortion.getEnd()
-	prevEnd.String = Left(portion.String,1)
-	nextStart = portion.Text.createTextCursorByRange(portion.Start)
-	nextStart.goRight(1,true)
-	nextStart.setString(&quot;&quot;)
-End Sub
-
 </script:module>

Redaction/CleaningDialog.xdl

@@ -1,36 +1,33 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="CleaningDialog" dlg:left="107" dlg:top="22" dlg:width="237" dlg:height="285" dlg:help-text="&amp;21.CleaningDialog.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;22.CleaningDialog.Title">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="CleaningDialog" dlg:left="107" dlg:top="22" dlg:width="237" dlg:height="247" dlg:help-text="&amp;21.CleaningDialog.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;22.CleaningDialog.Title">
  <dlg:bulletinboard>
-  <dlg:button dlg:id="Cancel" dlg:tab-index="0" dlg:left="28" dlg:top="271" dlg:width="40" dlg:height="12" dlg:value="Отмена" dlg:button-type="cancel"/>
+  <dlg:button dlg:id="Cancel" dlg:tab-index="0" dlg:left="28" dlg:top="232" dlg:width="40" dlg:height="12" dlg:value="Отмена" dlg:button-type="cancel"/>
-  <dlg:button dlg:id="CommandButton1" dlg:tab-index="1" dlg:left="24" dlg:top="180" dlg:width="2" dlg:height="0" dlg:value="CommandButton1"/>
+  <dlg:button dlg:id="CommandButton1" dlg:tab-index="1" dlg:left="24" dlg:top="170" dlg:width="2" dlg:height="0" dlg:value="CommandButton1"/>
-  <dlg:button dlg:id="OK" dlg:tab-index="2" dlg:left="92" dlg:top="271" dlg:width="40" dlg:height="12" dlg:value="OK" dlg:button-type="ok"/>
+  <dlg:button dlg:id="OK" dlg:tab-index="2" dlg:left="92" dlg:top="232" dlg:width="40" dlg:height="12" dlg:value="OK" dlg:button-type="ok"/>
   <dlg:checkbox dlg:id="fontsInStyles" dlg:tab-index="3" dlg:left="11" dlg:top="10" dlg:width="218" dlg:height="7" dlg:value="Заменить названия шрифтов в стилях" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeLinks" dlg:tab-index="6" dlg:left="11" dlg:top="60" dlg:width="218" dlg:height="7" dlg:value="Удалить гиперссылки" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeLinks" dlg:tab-index="6" dlg:left="11" dlg:top="50" dlg:width="218" dlg:height="7" dlg:value="Удалить гиперссылки" dlg:checked="false"/>
   <dlg:checkbox dlg:id="cleanFormatting" dlg:tab-index="5" dlg:left="11" dlg:top="30" dlg:width="218" dlg:height="7" dlg:value="Очистить форматирование" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeBookmarks" dlg:tab-index="7" dlg:left="11" dlg:top="70" dlg:width="218" dlg:height="7" dlg:value="Удалить закладки" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeBookmarks" dlg:tab-index="7" dlg:left="11" dlg:top="60" dlg:width="218" dlg:height="7" dlg:value="Удалить закладки" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="configTables" dlg:tab-index="8" dlg:left="11" dlg:top="80" dlg:width="218" dlg:height="7" dlg:value="Настроить свойства таблиц" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="configTables" dlg:tab-index="8" dlg:left="11" dlg:top="70" dlg:width="218" dlg:height="7" dlg:value="Настроить свойства таблиц" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="configAnchors" dlg:tab-index="9" dlg:left="11" dlg:top="90" dlg:width="218" dlg:height="7" dlg:value="Настроить привязки изображений" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="configAnchors" dlg:tab-index="9" dlg:left="11" dlg:top="80" dlg:width="218" dlg:height="7" dlg:value="Настроить привязки изображений" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="fixMistakes" dlg:tab-index="10" dlg:left="11" dlg:top="100" dlg:width="218" dlg:height="7" dlg:value="Исправить часто встречающиеся ошибки набора" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="fixMistakes" dlg:tab-index="10" dlg:left="11" dlg:top="90" dlg:width="218" dlg:height="7" dlg:value="Исправить часто встречающиеся ошибки набора" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeInitPageBreak" dlg:tab-index="11" dlg:left="11" dlg:top="120" dlg:width="218" dlg:height="7" dlg:value="Удалить разрыв страницы в начале документа" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeInitPageBreak" dlg:tab-index="11" dlg:left="11" dlg:top="110" dlg:width="218" dlg:height="7" dlg:value="Удалить разрыв страницы в начале документа" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removePageStyles" dlg:tab-index="12" dlg:left="11" dlg:top="130" dlg:width="218" dlg:height="7" dlg:value="Удалить пользовательские стили страниц" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removePageStyles" dlg:tab-index="12" dlg:left="11" dlg:top="120" dlg:width="218" dlg:height="7" dlg:value="Удалить пользовательские стили страниц" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="loadStandardStyles" dlg:tab-index="13" dlg:left="11" dlg:top="140" dlg:width="218" dlg:height="7" dlg:value="Загрузить стили страниц из шаблона Статья.ott" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="loadStandardStyles" dlg:tab-index="13" dlg:left="11" dlg:top="130" dlg:width="218" dlg:height="7" dlg:value="Загрузить стили страниц из шаблона Статья.ott" dlg:checked="false"/>
   <dlg:checkbox dlg:id="symbolsConversion" dlg:tab-index="4" dlg:left="11" dlg:top="20" dlg:width="218" dlg:height="7" dlg:value="Произвести конвертацию символов" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeUnusedStyles" dlg:tab-index="14" dlg:left="11" dlg:top="150" dlg:width="218" dlg:height="7" dlg:value="Удалить неиспользуемые стили" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeUnusedStyles" dlg:tab-index="14" dlg:left="11" dlg:top="140" dlg:width="218" dlg:height="7" dlg:value="Удалить неиспользуемые стили" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeManualPageBreaks" dlg:tab-index="15" dlg:left="11" dlg:top="160" dlg:width="218" dlg:height="7" dlg:value="Удалить все  разрывы страниц" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeManualPageBreaks" dlg:tab-index="15" dlg:left="11" dlg:top="150" dlg:width="218" dlg:height="7" dlg:value="Удалить все  разрывы страниц" dlg:checked="false"/>
   <dlg:checkbox dlg:id="replaceWhiteBackground" dlg:tab-index="16" dlg:left="11" dlg:top="40" dlg:width="218" dlg:height="7" dlg:value="Заменить белый фон символов на прозрачный" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeBasic" dlg:tab-index="17" dlg:left="11" dlg:top="170" dlg:width="218" dlg:height="7" dlg:value="Удалить макросы" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeBasic" dlg:tab-index="17" dlg:left="11" dlg:top="160" dlg:width="218" dlg:height="7" dlg:value="Удалить макросы" dlg:checked="false"/>
-  <dlg:button dlg:id="buttonLoad" dlg:tab-index="18" dlg:left="158" dlg:top="271" dlg:width="65" dlg:height="12" dlg:value="loadTemplate">
+  <dlg:button dlg:id="buttonLoad" dlg:tab-index="18" dlg:left="158" dlg:top="232" dlg:width="52" dlg:height="12" dlg:value="loadTemplate">
-   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.configureStyleFileDialog?language=Basic&amp;location=application" script:language="Script"/>
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.setDeafultTemplate?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:button>
-  <dlg:checkbox dlg:id="removeAllFields" dlg:tab-index="19" dlg:left="11" dlg:top="180" dlg:width="218" dlg:height="7" dlg:value="Удалить все поля" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="removeAllFields" dlg:tab-index="19" dlg:left="11" dlg:top="170" dlg:width="218" dlg:height="7" dlg:value="Удалить все поля" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="fixDOI" dlg:tab-index="20" dlg:left="11" dlg:top="110" dlg:width="218" dlg:height="7" dlg:value="Исправить DOI" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="fixDOI" dlg:tab-index="20" dlg:left="11" dlg:top="100" dlg:width="218" dlg:height="7" dlg:value="Исправить DOI" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="resetChapterNumberingRules" dlg:tab-index="21" dlg:left="11" dlg:top="190" dlg:width="218" dlg:height="7" dlg:value="Сбросить настройки нумерации глав" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="resetChapterNumberingRules" dlg:tab-index="21" dlg:left="11" dlg:top="180" dlg:width="218" dlg:height="7" dlg:value="Сбросить настройки нумерации глав" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="replaceNumHyphen" dlg:tab-index="22" dlg:left="11" dlg:top="200" dlg:width="218" dlg:height="7" dlg:value="Исправить тире между цифрами" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="replaceNumHyphen" dlg:tab-index="22" dlg:left="11" dlg:top="190" dlg:width="218" dlg:height="7" dlg:value="Исправить тире между цифрами" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="convertFontsToCharStyles" dlg:tab-index="23" dlg:left="11" dlg:top="210" dlg:width="218" dlg:height="7" dlg:value="Конвертировать шрифты в стили символов" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="convertFontsToCharStyles" dlg:tab-index="23" dlg:left="11" dlg:top="200" dlg:width="218" dlg:height="7" dlg:value="Конвертировать шрифты в стили символов" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="fixBrokenCharBackTransparent" dlg:tab-index="24" dlg:left="11" dlg:top="220" dlg:width="218" dlg:height="7" dlg:value="fixBrokenCharBackTransparent" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="fixBrokenCharBackTransparent" dlg:tab-index="24" dlg:left="11" dlg:top="210" dlg:width="218" dlg:height="7" dlg:value="fixBrokenCharBackTransparent" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="removeNotTransparentBackgrounds" dlg:tab-index="25" dlg:left="11" dlg:top="50" dlg:width="218" dlg:height="7" dlg:value="Удалить непрозрачные фоны в тексте" dlg:checked="false"/>
-  <dlg:text dlg:id="description" dlg:tab-index="26" dlg:left="11" dlg:top="251" dlg:width="217" dlg:height="16" dlg:value="Label1" dlg:multiline="true"/>
-  <dlg:checkbox dlg:id="fixDiacriticKerning" dlg:tab-index="27" dlg:left="11" dlg:top="230" dlg:width="218" dlg:height="7" dlg:value="Fix diacritic kerning" dlg:checked="false"/>
  </dlg:bulletinboard>
 </dlg:window>

Redaction/Configuration.xba

@@ -1,23 +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 = &quot;cleanAndValidate&quot;
+<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.10.11&quot;
+Public Const redactionExtensionVersion = &quot;0.9.30&quot;
-Public Const template_name_monography = &quot;Монография&quot;
-Public Const template_name_pj = &quot;Философский журнал&quot;
-Public Const template_name_pq = &quot;Вопросы философии&quot;
-Public Const template_name_hp = &quot;История философии&quot;
-Public Const template_name_hpe = &quot;Историко-философский ежегодник&quot;
-Public Const template_name_pr = &quot;Философия религии&quot;
-Public Const template_name_fnit = &quot;Философия науки и техники&quot;
-Public Const template_name_pa = &quot;Философская антропология&quot;
-Public Const template_name_pcr = &quot;Проблемы цивилизационного развития&quot;
-Public Const template_name_eifn = &quot;Эпистемология и философия науки&quot;
-Public Const template_name_et = &quot;Этическая мысль&quot;
-Public Const template_name_ephe = &quot;Электронная философская энциклопедия&quot;
-Public Const template_name_iph_big = &quot;Большой формат издания&quot;
-Public Const template_manual = &quot;custom_selected_template&quot;
-Public Const articles_path = &quot;/templates/articles/&quot;
-
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object
@@ -37,9 +21,6 @@ Function initRedactionConfiguration()
    	EndIf
    	If Not propSetInfo.hasPropertyByName(&quot;fixes_russian_iph&quot;) Then
       redactionProps.addProperty(&quot;fixes_russian_iph&quot;, 128, &quot;true&quot;)
-   	EndIf
-   	If Not propSetInfo.hasPropertyByName(&quot;predefined_template&quot;) Then
-      redactionProps.addProperty(&quot;predefined_template&quot;, 128, &quot;false&quot;)
    	EndIf
    	If Not propSetInfo.hasPropertyByName(&quot;complexity&quot;) Then
       redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;)
@@ -49,9 +30,6 @@ Function initRedactionConfiguration()
    	On Error Goto exceptionHandler2	
    	If Not propSetInfo.hasPropertyByName(&quot;defaultTemplate&quot;) Then
       redactionProps.addProperty(&quot;defaultTemplate&quot;, 128, &quot;Статья.ott&quot;)
-   	EndIf
-   	If Not propSetInfo.hasPropertyByName(&quot;predefined_template&quot;) Then
-      redactionProps.addProperty(&quot;predefined_template&quot;, 128, &quot;false&quot;)
    	EndIf 
    	exceptionHandler2:
     Resume Next  
@@ -126,152 +104,71 @@ Private Sub configurationDialog
     Exit sub
 End Sub
 
-Dim queitCleaningDialog As Object
-
 Private Sub quietStartDialog
+	Dim dialog As Object
 	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
-	queitCleaningDialog = CreateUnoDialog(DialogLibraries.Redaction.StartQuietCleaning)
+	dialog = CreateUnoDialog(DialogLibraries.Redaction.StartQuietCleaning)
-
+	Dim description As String
 	Dim buttonNameOk As String
 	Dim buttonNameStop As String
 	Dim buttonNameLoad As String
 	Dim dialogTitle As String
+	description = getTranslation(&quot;startQuietCleaningDescription&quot;)
 	buttonNameOk = getTranslation(&quot;buttonYes&quot;)
 	buttonNameStop = getTranslation(&quot;buttonStop&quot;)
 	buttonNameLoad = getTranslation(&quot;buttonLoad&quot;)
 	dialogTitle = getTranslation(&quot;quietStartCleaningTitle&quot;)
-	queitCleaningDialog.Title = dialogTitle
+	dialog.Title = dialogTitle
-	setQuietDialogDescription()
+	dialog.getControl(&quot;Description&quot;).setText(description)
-	queitCleaningDialog.getControl(&quot;buttonOk&quot;).Label = buttonNameOk
+	dialog.getControl(&quot;buttonOk&quot;).Label = buttonNameOk
-	queitCleaningDialog.getControl(&quot;buttonStop&quot;).Label = buttonNameStop
+	dialog.getControl(&quot;buttonStop&quot;).Label = buttonNameStop
-	queitCleaningDialog.getControl(&quot;buttonLoad&quot;).Label = buttonNameLoad
+	dialog.getControl(&quot;buttonLoad&quot;).Label = buttonNameLoad
-	queitCleaningDialog.setVisible(true)
+	dialog.setVisible(true)
-	Select Case queitCleaningDialog.Execute()
+	Select Case dialog.Execute()
       Case 1
-        queitCleaningDialog.setVisible(false)
+        dialog.setVisible(false)
-        queitCleaningDialog.dispose()
+        dialog.dispose()
 		quietCleaning
       Case 0
-      	queitCleaningDialog.setVisible(false)
+      	dialog.setVisible(false)
-        queitCleaningDialog.dispose()
+        dialog.dispose()
     End Select
 
     Exit sub
 End Sub
 
-Function setAdvancedDialogDescription()
+Private Sub noStylesFileDialog
-	If IsNull(advancedCleaningDialog) Then
-		Exit Function
-	EndIf
-	Dim config As Object
-	Dim description As String
-	Dim predefined As String
-	Dim customFile As String
-	config = initRedactionConfiguration()
-	predefined = config.getPropertyValue(&quot;predefined_template&quot;)
-	customFile = config.getPropertyValue(&quot;defaultTemplate&quot;)
-	If predefined = &quot;false&quot; Then
-		description = getTranslation(&quot;templateNotSelected&quot;)
-	ElseIf predefined = template_manual Then
-		description = getTranslation(&quot;templateChosen&quot;) &amp; &quot; «&quot; &amp; customFile &amp; &quot;»&quot;
-	Else
-		description = getTranslation(&quot;templateChosen&quot;) &amp; &quot; «&quot; &amp; predefined &amp; &quot;»&quot;
-	EndIf
-	advancedCleaningDialog.getControl(&quot;description&quot;).setText(description)
-End Function
-
-Function setQuietDialogDescription()
-	If IsNull(queitCleaningDialog) Then
-		Exit Function
-	EndIf
-	Dim config As Object
-	Dim description As String
-	Dim predefined As String
-	Dim customFile As String
-	config = initRedactionConfiguration()
-	predefined = config.getPropertyValue(&quot;predefined_template&quot;)
-	customFile = config.getPropertyValue(&quot;defaultTemplate&quot;)
-	If predefined = &quot;false&quot; Then
-		description = getTranslation(&quot;startQuietCleaningDescription1&quot;) &amp; &quot; &quot; &amp; getTranslation(&quot;startQuietCleaningDescription2&quot;)
-	ElseIf predefined = template_manual Then
-		description = getTranslation(&quot;startQuietCleaningDescription1&quot;) &amp; &quot; «&quot; &amp; customFile &amp; &quot;» &quot; &amp; getTranslation(&quot;startQuietCleaningDescription2&quot;)
-	Else
-		description = getTranslation(&quot;startQuietCleaningDescription1&quot;) &amp; &quot; «&quot; &amp; predefined &amp; &quot;» &quot; &amp; getTranslation(&quot;startQuietCleaningDescription2&quot;)
-	EndIf
-	queitCleaningDialog.getControl(&quot;Description&quot;).setText(description)
-End Function
-
-Dim styleFileDialog As Object
-
-Private Sub configureStyleFileDialog
 	&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
-	Dim config As Object
-	Dim dialog As Object
-	Dim predefined As String
-	Dim description As String	
-	Dim customFile As String
-	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
-	styleFileDialog = CreateUnoDialog(DialogLibraries.Redaction.NoStyleFile)
-	config = initRedactionConfiguration()
-	predefined = config.getPropertyValue(&quot;predefined_template&quot;)
-	customFile = config.getPropertyValue(&quot;defaultTemplate&quot;)
-	If predefined = &quot;false&quot; Then
-		description = getTranslation(&quot;noFileWithStylesFound&quot;)
-	ElseIf predefined = template_manual Then
-		description = getTranslation(&quot;manualStyleFileSet&quot;) &amp; &quot; «&quot; &amp; customFile &amp; &quot;»&quot;
-	Else
-		description = getTranslation(&quot;predefiendTemplateSelected&quot;) &amp; &quot; «&quot; &amp; predefined &amp; &quot;»&quot;
-	EndIf
-	styleFileDialog.Title = getTranslation(&quot;noStylesFileDialogTitle&quot;)
-	styleFileDialog.getControl(&quot;Description&quot;).setText(description)
-	styleFileDialog.getControl(&quot;FileSelection&quot;).Label = getTranslation(&quot;buttonNameToSelectFileWithStyles&quot;)
-	styleFileDialog.getControl(&quot;buttonOk&quot;).Label = getTranslation(&quot;buttonTemplateNotFoundSkip&quot;)
-	styleFileDialog.setVisible(true)
-	Select Case styleFileDialog.Execute()
-    Case 0
-    End Select
-    setQuietDialogDescription()
-    setAdvancedDialogDescription()
-    styleFileDialog.setVisible(false)
-    styleFileDialog.dispose()
-    
-End Sub
-
-
-Sub selectTemplateDialog()
-	Dim config As Object
-	Dim description As String	
-	Dim templateName As String
-	Dim templateNames() As String
-	Dim i As Integer
-	Dim listComponent As Object
-	config = initRedactionConfiguration()
 	Dim dialog As Object
 	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
-	dialog = CreateUnoDialog(DialogLibraries.Redaction.SelectTemplate)
+	dialog = CreateUnoDialog(DialogLibraries.Redaction.NoStyleFile)
-    listComponent = dialog.getControl(&quot;ListBox&quot;)
+	Dim description As String
-    dialog.getControl(&quot;buttonOk&quot;).Label = getTranslation(&quot;buttonYes&quot;)
+	Dim buttonName As String
-    dialog.getControl(&quot;buttonStop&quot;).Label = getTranslation(&quot;buttonStop&quot;)
+	Dim dialogTitle As String
-    dialog.Title = getTranslation(&quot;selectTemplateDialogTitle&quot;)
+	Dim buttonTemplateNotFoundSkip As String
-    templateNames = getTemplateNames()
+	dialogTitle = getTranslation(&quot;noStylesFileDialogTitle&quot;)
-	listComponent.addItems(templateNames , 0)
+	description = getTranslation(&quot;noFileWithStylesFound&quot;)
-	dialog.setVisible(true)
+	buttonName = getTranslation(&quot;buttonNameToSelectFileWithStyles&quot;)
+	buttonTemplateNotFoundSkip = getTranslation(&quot;buttonTemplateNotFoundSkip&quot;)
+	dialog.Title = dialogTitle
+	dialog.getControl(&quot;Description&quot;).setText(description)
+	dialog.getControl(&quot;FileSelection&quot;).Label = buttonName
+	dialog.getControl(&quot;buttonOk&quot;).Label = buttonTemplateNotFoundSkip
+		dialog.setVisible(true)
 	Select Case dialog.Execute()
-   	Case 1
+    Case 1
-		templateName = listComponent.SelectedItem
+		setDeafultTemplate()
-		If NOT (templateName=&quot;0&quot; or templateName=&quot;&quot;) Then
-          config.setPropertyValue(&quot;predefined_template&quot;, templateName)
-          description = getTranslation(&quot;predefiendTemplateSelected&quot;) &amp; &quot; «&quot; &amp; templateName &amp; &quot;»&quot;
-          styleFileDialog.getControl(&quot;Description&quot;).setText(description)
-	    EndIf
     Case 0
+    
     End Select
     dialog.setVisible(false)
     dialog.dispose()
+    Exit sub
 End Sub
 
-Sub setManualTemplate()
+
-	Dim description As String	
+
+Sub setDeafultTemplate()
 	Dim selectedTemplate As String
     selectedTemplate = getFileURLDialog()
     oSimpleFileAccess = CreateUnoService( &quot;com.sun.star.ucb.SimpleFileAccess&quot; )
@@ -283,16 +180,13 @@ Sub setManualTemplate()
 	config = initRedactionConfiguration()
 	fileName = Dir(selectedTemplate)
 	config.setPropertyValue(&quot;defaultTemplate&quot;,fileName)
-	config.setPropertyValue(&quot;predefined_template&quot;, template_manual)
 	Dim templatePath As String
 	templatePath = getTemplatePath()
     MkDir(templatePath)
 	FileCopy(selectedTemplate, templatePath &amp; &quot;/&quot; &amp; fileName)	
-	description = getTranslation(&quot;manualStyleFileSet&quot;) &amp; &quot; «&quot; &amp; fileName &amp; &quot;»&quot;
-    styleFileDialog.getControl(&quot;Description&quot;).setText(description)
 End Sub
 
-Function getFileURLDialog() As String
+ Function getFileURLDialog() As String
       Dim oFilePicker As Object, oSimpleFileAccess As Object
       Dim oSettings As Object, oPathSettings As Object
       Dim oTextField As Object, oTextFieldModel As Object
@@ -321,81 +215,5 @@ Function getFileURLDialog() As String
           End If
       End If
       getFileURLDialog = &quot;&quot;
-End Function
+  End Function
-
-
-Function getTemplateNames() As Variant
-	Dim names() As String
-&apos;	AddToArray(names, template_name_monography)
-	AddToArray(names, template_name_pq)
-	AddToArray(names, template_name_hp)
-	AddToArray(names, template_name_hpe)
-	AddToArray(names, template_name_pr)
-	AddToArray(names, template_name_fnit)
-	AddToArray(names, template_name_pa)
-	AddToArray(names, template_name_pj)
-	AddToArray(names, template_name_pcr)
-	AddToArray(names, template_name_eifn)
-	AddToArray(names, template_name_et)
-	AddToArray(names, template_name_ephe)
-	AddToArray(names, template_name_iph_big)
-	getTemplateNames = names
-End Function
-
-Function extensionPath() As String
-	Dim oPackageInfoProvider As Object
-	oPackageInfoProvider = GetDefaultContext.getByName(&quot;/singletons/com.sun.star.deployment.PackageInformationProvider&quot;)
-	extensionPath = oPackageInfoProvider.getPackageLocation(&quot;pro.litvinovg.Redaction&quot;)
-End Function
-
-Function getTemplateFile(templateName As String) As String
-	Dim config As Object
-	Dim fileName As String
-	Select Case templateName
-	  Case template_manual
-	  	config = initRedactionConfiguration()
-		fileName = config.getPropertyValue(&quot;defaultTemplate&quot;)
-	    getTemplateFile = getTemplatePath() &amp; &quot;/&quot; &amp; fileName
-	    Exit Function
-	  Case template_name_eifn
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_эифн.ott&quot;
-	    Exit Function
-   	  Case template_name_fnit
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_фнит.ott&quot;
-	    Exit Function
-   	  Case template_name_pa
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_фа.ott&quot;
-	    Exit Function
-   	  Case template_name_pj
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_фж.ott&quot;
-	    Exit Function
-   	  Case template_name_et
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_эм.ott&quot;
-	    Exit Function
-	  Case template_name_pq
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_вф.ott&quot;
-	    Exit Function	    
-	  Case template_name_pr
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_фр.ott&quot;
-	    Exit Function  
- 	  Case template_name_pcr
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_пцр.ott&quot;
-	    Exit Function
-   	  Case template_name_hp
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_иф.ott&quot;
-	    Exit Function
-   	  Case template_name_hpe
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_ифе.ott&quot;
-	    Exit Function
-   	  Case template_name_ephe
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья_эфэ.ott&quot;
-	    Exit Function
-   	  Case template_name_iph_big
-	    getTemplateFile = extensionPath() &amp; &quot;/templates/books/большой_формат_для_архива.ott&quot;
-	    Exit Function
-	  Case Else
-	    getTemplateFile = extensionPath() &amp; articles_path &amp; &quot;статья.ott&quot;
-	    Exit Function
-	End Select  
-End Function
 </script:module>

Redaction/NoStyleFile.xdl

@@ -1,15 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="NoStyleFile" dlg:left="140" dlg:top="101" dlg:width="243" dlg:height="98" dlg:help-text="&amp;5.NoStyleFile.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;6.NoStyleFile.Title">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="NoStyleFile" dlg:left="140" dlg:top="101" dlg:width="239" dlg:height="98" dlg:help-text="&amp;5.NoStyleFile.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;6.NoStyleFile.Title">
  <dlg:bulletinboard>
-  <dlg:button dlg:id="CommandButton2" dlg:tab-index="2" dlg:left="167" dlg:top="139" dlg:width="1" dlg:height="0" dlg:help-text="&amp;15.NoStyleFile.CommandButton2.HelpText" dlg:value="&amp;16.NoStyleFile.CommandButton2.Label"/>
+  <dlg:button dlg:id="CommandButton2" dlg:tab-index="1" dlg:left="167" dlg:top="139" dlg:width="1" dlg:height="0" dlg:help-text="&amp;15.NoStyleFile.CommandButton2.HelpText" dlg:value="&amp;16.NoStyleFile.CommandButton2.Label"/>
-  <dlg:button dlg:id="FileSelection" dlg:tab-index="3" dlg:left="12" dlg:top="75" dlg:width="65" dlg:height="13" dlg:help-text="&amp;19.NoStyleFile.FileSelection.HelpText" dlg:value="&amp;20.NoStyleFile.FileSelection.Label">
+  <dlg:button dlg:id="FileSelection" dlg:tab-index="2" dlg:left="46" dlg:top="75" dlg:width="60" dlg:height="13" dlg:help-text="&amp;19.NoStyleFile.FileSelection.HelpText" dlg:value="&amp;20.NoStyleFile.FileSelection.Label" dlg:button-type="ok"/>
-   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.setManualTemplate?language=Basic&amp;location=application" script:language="Script"/>
+  <dlg:text dlg:id="Description" dlg:tab-index="3" dlg:left="23" dlg:top="13" dlg:width="192" dlg:height="52" dlg:help-text="&amp;27.NoStyleFile.Description.HelpText" dlg:value="&amp;28.NoStyleFile.Description.Label"/>
-  </dlg:button>
+  <dlg:button dlg:id="buttonOk" dlg:tab-index="0" dlg:left="138" dlg:top="75" dlg:width="60" dlg:height="13" dlg:help-text="&amp;13.NoStyleFile.CommandButton1.HelpText" dlg:value="ok" dlg:button-type="cancel"/>
-  <dlg:text dlg:id="Description" dlg:tab-index="4" dlg:left="12" dlg:top="13" dlg:width="219" dlg:height="52" dlg:help-text="&amp;27.NoStyleFile.Description.HelpText" dlg:value="&amp;28.NoStyleFile.Description.Label" dlg:multiline="true"/>
-  <dlg:button dlg:id="buttonOk" dlg:tab-index="0" dlg:left="166" dlg:top="75" dlg:width="65" dlg:height="13" dlg:help-text="&amp;13.NoStyleFile.CommandButton1.HelpText" dlg:value="ok" dlg:button-type="cancel"/>
-  <dlg:button dlg:id="ListSelection" dlg:tab-index="1" dlg:left="89" dlg:top="75" dlg:width="65" dlg:height="13" dlg:help-text="&amp;19.NoStyleFile.FileSelection.HelpText" dlg:value="Выбрать из списка">
-   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.selectTemplateDialog?language=Basic&amp;location=application" script:language="Script"/>
-  </dlg:button>
  </dlg:bulletinboard>
 </dlg:window>

Redaction/SelectTemplate.xdl

@@ -1,9 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="SelectTemplate" dlg:left="146" dlg:top="89" dlg:width="220" dlg:height="202" dlg:closeable="true" dlg:moveable="true" dlg:title="Choose template with styles">
- <dlg:bulletinboard>
-  <dlg:menulist dlg:id="ListBox" dlg:tab-index="0" dlg:left="1" dlg:top="3" dlg:width="218" dlg:height="175"/>
-  <dlg:button dlg:id="buttonOk" dlg:tab-index="1" dlg:left="26" dlg:top="185" dlg:width="65" dlg:height="13" dlg:value="Ok" dlg:button-type="ok"/>
-  <dlg:button dlg:id="buttonStop" dlg:tab-index="2" dlg:left="126" dlg:top="185" dlg:width="65" dlg:height="13" dlg:value="Cancel" dlg:button-type="cancel"/>
- </dlg:bulletinboard>
-</dlg:window>

Redaction/StartQuietCleaning.xdl

@@ -2,11 +2,11 @@
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
 <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="StartQuietCleaning" dlg:left="124" dlg:top="101" dlg:width="222" dlg:height="96" dlg:help-text="&amp;29.StartQuietCleaning.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;30.StartQuietCleaning.Title">
  <dlg:bulletinboard>
-  <dlg:text dlg:id="Description" dlg:tab-index="1" dlg:left="15" dlg:top="8" dlg:width="194" dlg:height="56" dlg:help-text="&amp;33.StartQuietCleaning.Description.HelpText" dlg:value="&amp;34.StartQuietCleaning.Description.Label" dlg:multiline="true"/>
+  <dlg:text dlg:id="Description" dlg:tab-index="0" dlg:left="15" dlg:top="18" dlg:width="194" dlg:height="40" dlg:help-text="&amp;33.StartQuietCleaning.Description.HelpText" dlg:value="&amp;34.StartQuietCleaning.Description.Label"/>
-  <dlg:button dlg:id="buttonOk" dlg:tab-index="0" dlg:left="15" dlg:top="71" dlg:width="60" dlg:height="17" dlg:help-text="&amp;55.StartQuietCleaning.buttonOk.HelpText" dlg:value="&amp;56.StartQuietCleaning.buttonOk.Label" dlg:button-type="ok"/>
+  <dlg:button dlg:id="buttonOk" dlg:tab-index="1" dlg:left="15" dlg:top="71" dlg:width="52" dlg:height="17" dlg:help-text="&amp;55.StartQuietCleaning.buttonOk.HelpText" dlg:value="&amp;56.StartQuietCleaning.buttonOk.Label" dlg:button-type="ok"/>
-  <dlg:button dlg:id="buttonStop" dlg:tab-index="3" dlg:left="83" dlg:top="71" dlg:width="60" dlg:height="17" dlg:help-text="&amp;57.StartQuietCleaning.buttonStop.HelpText" dlg:value="&amp;58.StartQuietCleaning.buttonStop.Label" dlg:button-type="cancel"/>
+  <dlg:button dlg:id="buttonStop" dlg:tab-index="3" dlg:left="84" dlg:top="71" dlg:width="52" dlg:height="17" dlg:help-text="&amp;57.StartQuietCleaning.buttonStop.HelpText" dlg:value="&amp;58.StartQuietCleaning.buttonStop.Label" dlg:button-type="cancel"/>
-  <dlg:button dlg:id="buttonLoad" dlg:tab-index="2" dlg:left="149" dlg:top="71" dlg:width="60" dlg:height="17" dlg:help-text="&amp;59.StartQuietCleaning.buttonLoad.HelpText" dlg:value="&amp;60.StartQuietCleaning.buttonLoad.Label">
+  <dlg:button dlg:id="buttonLoad" dlg:tab-index="2" dlg:left="156" dlg:top="71" dlg:width="52" dlg:height="17" dlg:help-text="&amp;59.StartQuietCleaning.buttonLoad.HelpText" dlg:value="&amp;60.StartQuietCleaning.buttonLoad.Label">
-   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.configureStyleFileDialog?language=Basic&amp;location=application" script:language="Script"/>
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.setDeafultTemplate?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:button>
  </dlg:bulletinboard>
 </dlg:window>

Redaction/Translations.xba

@@ -27,13 +27,10 @@ End Function
 Function getRussian(identifier As String) As String
     Select Case identifier
       Case "noFileWithStylesFound"
-         getRussian = "Файл-шаблон, содержащий стили для загрузки в документ не был задан. " & chr(10) &"Вы можете выбрать новый файл-шаблон. " & chr(10) & "Если файл-шаблон не будет выбран, то загрузка стилей из шаблона при чистке не будет выполняться."
+         getRussian = "Файл-шаблон, содержащий стили для загрузки в документ не был задан. " & chr(10) &"Вы можете выбрать новый файл-шаблон. " & chr(10) & "Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен."
          Exit Function
-      Case "startQuietCleaningDescription1"
+      Case "startQuietCleaningDescription"
-         getRussian = "Вы хотите запустить чистку документа?  " & chr(10) & "Вы можете также указать новый файл-шаблон." & chr(10) & "Стили из шаблона "
+         getRussian = "Вы хотите запустить чистку документа?  " & chr(10) & "Здесь Вы можете также указать новый файл-шаблон." & chr(10) & "Стили из шаблона будут загружены в документ."
-         Exit Function
-      Case "startQuietCleaningDescription2"
-         getRussian = "будут загружены в документ."
          Exit Function
       Case "buttonYes"
          getRussian = "Да"
@@ -42,7 +39,7 @@ Function getRussian(identifier As String) As String
          getRussian = "Подтверждение запуска чистки"
          Exit Function
       Case "noStylesFileDialogTitle"
-         getRussian = "Выбор файла со стилями"
+         getRussian = "Файл со стилями не найден"
          Exit Function
       Case "buttonTemplateNotFoundSkip"
          getRussian = "Продолжить"
@@ -51,7 +48,7 @@ Function getRussian(identifier As String) As String
          getRussian = "Нет"
          Exit Function
       Case "buttonLoad"
-         getRussian = "Выбрать шаблон"
+         getRussian = "Указать шаблон"
          Exit Function
       Case "buttonNameToSelectFileWithStyles"
          getRussian = "Указать файл"
@@ -111,7 +108,7 @@ Function getRussian(identifier As String) As String
          getRussian = "Конвертировать символы в целевые свободные шрифты"
          Exit Function
       Case "advancedMenuReplaceFontsInStyles"
-         getRussian = "Заменить шрифты в стилях"
+         getRussian = "Заменить шрифты стилях"
          Exit Function
       Case "statusStarted"
          getRussian = "Чистка документа начата, подождите"
@@ -162,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 = "В документе найдены рисунки ("
@@ -204,22 +201,22 @@ Function getRussian(identifier As String) As String
          getRussian = "Настройка чистки и проверки"
          Exit Function
       Case "dialogRussianFixesIPH"
-         getRussian = "Исправления для текстов на русском"
+        getRussian = "Исправления для текстов на русском"
-         Exit Function
+        Exit Function
       Case "documentIsReadOnly"
-         getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
+        getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
-         Exit Function
+        Exit Function
       Case "validateEndnotes1"
-         getRussian = "в концевой сноске (абсолютный номер)"
+        getRussian = "в концевой сноске (абсолютный номер)"
-         Exit Function
+        Exit Function
       Case "setOutlineLevel"
-         getRussian = "задан уровень структуры документа"
+        getRussian = "задан уровень структуры документа"
-         Exit Function
+        Exit Function
       Case "section"
          getRussian = "Раздел"
          Exit Function
       Case "isInTable"
-         getRussian = "находится внутри таблицы"
+         getRussian = "находится внутри таблицы."
          Exit Function
       Case "foundHeadingIn"
          getRussian = "Найден заголовок в"
@@ -234,11 +231,11 @@ Function getRussian(identifier As String) As String
          getRussian = "стиля страниц"
          Exit Function
       Case "table"
-         getRussian = "таблице"
+        getRussian = "таблице"
-         Exit Function
+        Exit Function
       Case "validationStarted"
-         getRussian = "Осуществляется проверка"
+        getRussian = "Осуществляется проверка"
-         Exit Function
+        Exit Function
       Case "chooseFontNameDialogTitle"
          getRussian = "Выбор шрифта для создания отчёта."
          Exit Function
@@ -273,8 +270,8 @@ Function getRussian(identifier As String) As String
          getRussian = "Исправляем DOI"
          Exit Function
       Case "advancedMenuResetChapterNumberingRules"
-         getRussian = "Сбросить настройки нумерации глав"
+        getRussian = "Сбросить настройки нумерации глав"
-         Exit Function
+        Exit Function
       Case "dialogConfigMaxSuperscript"
          getRussian = "Макс. длина текста в верхнем индексе"
          Exit Function
@@ -288,8 +285,8 @@ Function getRussian(identifier As String) As String
          getRussian = "Заменяются тире между цифрами на цифровые"
          Exit Function
       Case "advancedMenuconvertFontsToCharStyles"
-         getRussian = "Создать стили символов из найденных шрифтов"
+        getRussian = "Создать стили символов из найденных шрифтов"
-         Exit Function
+        Exit Function
       Case "buttonClose"
          getRussian = "Закрыть"
          Exit Function
@@ -297,59 +294,20 @@ Function getRussian(identifier As String) As String
          getRussian = "Всего найдено: "
          Exit Function
       Case "coloredTextDescription"
-         getRussian = "Навигация по выделенному цветом тексту"
+        getRussian = "Навигация по выделенному цветом тексту"
-         Exit Function
+        Exit Function
       Case "foundColoredTextMessage"
-         getRussian = "Найден текст c непрозрачным фоном. Обычно это не подходит для электронных публикаций. Вместо белого цвета фона используйте «Без заливки»"
+        getRussian = "Найден текст c непрозрачным фоном. Обычно это не подходит для электронных публикаций. Вместо белого цвета фона используйте «Без заливки»"
-         Exit Function
+        Exit Function
       Case "invalidParagraphFormattingFound"
-         getRussian = "Найдены некорректные настройки форматирования параграфов. Необходима чистка."
+        getRussian = "Найдены некорректные настройки форматирования параграфов. Необходима чистка."
-         Exit Function
+        Exit Function
       Case "fixBrokenCharBackTransparentMenuItem"
-         getRussian = "Исправить некорректные настройки цветовой заливки абзацев"
+        getRussian = "Исправить некорректные настройки цветовой заливки абзацев"
-         Exit Function
+        Exit Function
       Case "badSymbols"
-         getRussian = "Неподходящие для публикации символы"
+        getRussian = "Неподходящие для публикации символы"
-         Exit Function
-      Case "badNoteSings"
-         getRussian = "Неподходящие для публикации символы сносок"
-         Exit Function
-      Case "validationBadFootnotesSymbolsNotification"
-         getRussian = "В символах сносок обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными символами сносок."
-         Exit Function
-      Case "badSectionsInTables"
-        getRussian = "Разделы, которые не должны находится внутри таблиц"
         Exit Function
-      Case "badHeadingsInFootnotes"
-        getRussian = "Заголовки, которые не должны находиться в сносках"
-        Exit Function
-      Case "badHeadingsInTables"
-        getRussian = "Заголовки, которые нельзя размещать внутри таблиц"
-        Exit Function
-      Case "removeNotTransparentBackgrounds"
-        getRussian = "Удалить непрозрачные фоны в тексте"
-        Exit Function
-      Case "manualStyleFileSet"
-         getRussian = "При чистке будет использоваться указанный вручную шаблон"
-         Exit Function
-      Case "predefiendTemplateSelected"
-         getRussian = "При чистке будет использоваться выбранный из списка шаблон"
-         Exit Function
-      Case "selectTemplateDialogTitle"
-        getRussian = "Выберите шаблон из списка"
-        Exit Function
-      Case "templateNotSelected"
-         getRussian = "Шаблон не выбран"
-         Exit Function
-      Case "templateChosen"
-         getRussian = "Выбран шаблон"
-         Exit Function
-      Case "statusFixingDiacriticCharactersKerning"
-         getRussian = "Исправляем комбинирование с диакритическими символами"
-         Exit Function
-      Case "fixDiacriticKerning"
-         getRussian = "Исправить комбинирование с диакритическими символами"
-         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
 	End Select  
@@ -361,11 +319,8 @@ Function getEnglish(identifier As String) As String
       Case "noFileWithStylesFound"
          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 "startQuietCleaningDescription1"
+      Case "startQuietCleaningDescription"
-         getEnglish = "Do you want to start document cleaning?"  & chr(10) & "You can choose template with styles." & chr(10) & "Styles from template "
+         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."
-         Exit Function
-      Case "startQuietCleaningDescription2"
-         getEnglish = "will be loaded in process of cleaning." & chr(10) & ""
          Exit Function
       Case "buttonYes"
          getEnglish = "Ok"
@@ -374,7 +329,7 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Confirmation"
          Exit Function
       Case "noStylesFileDialogTitle"
-         getEnglish = "Configure a style file"
+         getEnglish = "Template file not found"
          Exit Function
       Case "buttonTemplateNotFoundSkip"
          getEnglish = "Proceed"
@@ -416,8 +371,8 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Remove page break at document start"
          Exit Function
       Case "advancedMenuFixMistakes"
-         getEnglish = "Fix frequent mistakes"
+        getEnglish = "Fix frequent mistakes"
-         Exit Function
+        Exit Function
       Case "advancedMenuConfigAnchors"
          getEnglish = "Configure image anchors for digital publications"
          Exit Function
@@ -494,7 +449,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) & " By clicking on the arrows of the navigator, you can navigate between the found passages with inappropriate characters. "
+         getEnglish = "Unsuitable symbols were found" & chr(10) & " Now you will get the list with bad symbols."
          Exit Function
       Case "validationBadDrawings"
          getEnglish = "Drawings was found ("
@@ -536,22 +491,22 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Clean and validation configuration"
          Exit Function
       Case "dialogRussianFixesIPH"
-         getEnglish = "Corrections for texts in Russian"
+        getEnglish = "Corrections for texts in Russian"
-         Exit Function
+        Exit Function
       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"
-         getEnglish = "in endnote (absolute number)"
+        getEnglish = "in endnote (absolute number)"
-         Exit Function
+        Exit Function
       Case "setOutlineLevel"
-         getEnglish = "set document structure level"
+        getEnglish = "set document structure level"
-         Exit Function
+        Exit Function
       Case "section"
          getEnglish = "Section"
          Exit Function
       Case "isInTable"
-         getEnglish = "located inside the table"
+         getEnglish = "located inside the table."
          Exit Function
       Case "foundHeadingIn"
          getEnglish = "Found heading in"
@@ -566,11 +521,11 @@ Function getEnglish(identifier As String) As String
          getEnglish = "of page style"
          Exit Function
       Case "table"
-         getEnglish = "table"
+        getEnglish = "table"
-         Exit Function
+        Exit Function
       Case "validationStarted"
-         getEnglish = "Validation in progess"
+        getEnglish = "Validation in progess"
-         Exit Function
+        Exit Function
       Case "chooseFontNameDialogTitle"
          getEnglish = "Select a font to create a report."
          Exit Function
@@ -605,8 +560,8 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Fixing DOI"
          Exit Function
       Case "advancedMenuResetChapterNumberingRules"
-         getEnglish = "Reset chapter numbering settings"
+        getEnglish = "Reset chapter numbering settings"
-         Exit Function
+        Exit Function
       Case "dialogConfigMaxSuperscript"
          getEnglish = "Max line length in superscript"
          Exit Function
@@ -620,8 +575,8 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Replacing dashes between numbers with numeric dashes"
          Exit Function
       Case "advancedMenuconvertFontsToCharStyles"
-         getEnglish = "Create character styles from found fonts "
+        getEnglish = "Create character styles from found fonts "
-         Exit Function
+        Exit Function
       Case "buttonClose"
          getEnglish = "Close"
          Exit Function
@@ -629,59 +584,20 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Total found: "
          Exit Function
       Case "coloredTextDescription"
-         getEnglish = "Navigation over highlighted text"
+        getEnglish = "Navigation over highlighted text"
-         Exit Function
+        Exit Function
       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"
-         getEnglish = "Incorrect paragraph formatting settings found. Cleaning required. "
+        getEnglish = "Incorrect paragraph formatting settings found. Cleaning required. "
-         Exit Function
+        Exit Function
       Case "fixBrokenCharBackTransparentMenuItem"
-         getEnglish = "Fix incorrect color fill settings for paragraphs "
+        getEnglish = "Fix incorrect color fill settings for paragraphs "
-         Exit Function
+        Exit Function
       Case "badSymbols"
-         getEnglish = "Unsuitable for publishing characters"
+        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 "badSectionsInTables"
-        getEnglish = "Sections that shouldn't be inside tables "
         Exit Function
-      Case "badHeadingsInFootnotes"
-        getEnglish = "Headings that should not be in footnotes"
-        Exit Function
-      Case "badHeadingsInTables"
-        getEnglish = "Headers that shouldn't be placed inside tables"
-        Exit Function
-      Case "removeNotTransparentBackgrounds"
-        getEnglish = "Remove not transparent backgrounds in text"
-        Exit Function
-      Case "manualStyleFileSet"
-         getEnglish = "For cleaning will be used manually specified template "
-         Exit Function
-      Case "predefiendTemplateSelected"
-         getEnglish = "For cleaning will be used template selected from the list"
-         Exit Function
-      Case "selectTemplateDialogTitle"
-        getEnglish = "Select a template from the list "
-        Exit Function
-      Case "templateNotSelected"
-         getEnglish = "Template not selected"
-         Exit Function
-      Case "templateChosen"
-         getEnglish = "Selected template"
-         Exit Function
-      Case "statusFixingDiacriticCharactersKerning"
-         getEnglish = "Fixing the combination with diacritics "
-         Exit Function
-      Case "fixDiacriticKerning"
-         getEnglish = "Fix combining with diacritic characters"
-         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  
@@ -692,11 +608,8 @@ Function getCroatian(identifier As String) As String
       Case "noFileWithStylesFound"
          getCroatian = "Datoteka šablona koja sadrži stilove za učitavanje u dokument nije navedena. " & chr(10) &"Možete izabrati novi šablon na računaru. " & chr(10) & "Ako datoteka šablona nije izabrana, ovaj korak čišćenja će se preskočiti."
          Exit Function
-      Case "startQuietCleaningDescription1"
+      Case "startQuietCleaningDescription"
-         getCroatian = "Da li želite da počnete sa čišćenjem dokumenta?" & chr(10) & "Ovde možete da odredite i novu datoteku šablona." & chr(10) & "Stilovi iz šablona "
+         getCroatian = "Da li želite da počnete sa čišćenjem dokumenta?" & chr(10) & "Ovde možete da odredite i novu datoteku šablona." & chr(10) & "Stilovi iz šablona biće učitani u dokument."
-         Exit Function
-      Case "startQuietCleaningDescription2"
-         getCroatian = "biće učitani u dokument."
          Exit Function
       Case "buttonYes"
          getCroatian = "Da"
@@ -705,7 +618,7 @@ Function getCroatian(identifier As String) As String
          getCroatian = "Potvrda pokretanja čišćenja"
          Exit Function
       Case "noStylesFileDialogTitle"
-         getCroatian = "Konfigurišite datoteku stila"
+         getCroatian = "Šablon sa stilovima nije pronađen"
          Exit Function
       Case "buttonTemplateNotFoundSkip"
          getCroatian = "Nastavite"
@@ -825,7 +738,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) & "Klikom na strelice navigatora možete se kretati između pronađenih odlomaka s neprikladnim znakovima."
+         getCroatian = "U tekstu su pronađeni ne prikladni karaktera. " & chr(10) & "Sada ćete dobiti lista odlomaka teksta sa sličnim znakovima"
          Exit Function
       Case "validationBadDrawings"
          getCroatian = "U dokumentu se nalaze crteži ("
@@ -867,22 +780,22 @@ Function getCroatian(identifier As String) As String
          getCroatian = "Podešavanje čišćenja i provjere"
          Exit Function
       Case "dialogRussianFixesIPH"
-         getCroatian = "Ispravci za tekstove na ruskom"
+        getCroatian = "Ispravci za tekstove na ruskom"
-         Exit Function
+        Exit Function
       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"
-         getCroatian = "u end fusnoti (apsolutni broj)"
+        getCroatian = "u end fusnoti (apsolutni broj)"
-         Exit Function
+        Exit Function
       Case "setOutlineLevel"
-         getCroatian = "zadati uroven strukturni dokument"
+        getCroatian = "zadati uroven strukturni dokument"
-         Exit Function
+        Exit Function
       Case "section"
          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"
@@ -897,11 +810,11 @@ Function getCroatian(identifier As String) As String
          getCroatian = "stil stranice"
          Exit Function
       Case "table"
-         getCroatian = "stola"
+        getCroatian = "stola"
-         Exit Function
+        Exit Function
       Case "validationStarted"
-         getCroatian = "Provjera u tijeku"
+        getCroatian = "Provjera u tijeku"
-         Exit Function
+        Exit Function
       Case "chooseFontNameDialogTitle"
          getCroatian = "Odaberite font za stvaranje izvješća."
          Exit Function
@@ -936,8 +849,8 @@ Function getCroatian(identifier As String) As String
          getCroatian = "Ispravljamo DOI"
          Exit Function
       Case "advancedMenuResetChapterNumberingRules"
-         getCroatian = "Resetirajte postavke numeriranja poglavlja"
+        getCroatian = "Resetirajte postavke numeriranja poglavlja"
-         Exit Function
+        Exit Function
       Case "dialogConfigMaxSuperscript"
          getCroatian = "Maksimalna duljina retka u natpisu"
          Exit Function
@@ -951,8 +864,8 @@ Function getCroatian(identifier As String) As String
          getCroatian = "Zamjena crtica između brojeva numeričkim crticama"
          Exit Function
       Case "advancedMenuconvertFontsToCharStyles"
-         getCroatian = "Stvorite stilove znakova iz pronađenih fontova "
+        getCroatian = "Stvorite stilove znakova iz pronađenih fontova "
-         Exit Function
+        Exit Function
       Case "buttonClose"
          getCroatian = "Zatvoriti "
          Exit Function
@@ -960,59 +873,20 @@ Function getCroatian(identifier As String) As String
          getCroatian = "Ukupno pronađeno: "
          Exit Function
       Case "coloredTextDescription"
-         getCroatian = "Navigacija istaknutim tekstom "
+        getCroatian = "Navigacija istaknutim tekstom "
-         Exit Function
+        Exit Function
       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"
-         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"
-         getCroatian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
+        getCroatian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
-         Exit Function
+        Exit Function
       Case "badSymbols"
-         getCroatian = "Neprimjerene znakova za objavljivanje"
+        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 "badSectionsInTables"
-        getCroatian = "Odjeljci koji ne bi trebali biti unutar tablica "
         Exit Function
-      Case "badHeadingsInFootnotes"
-        getCroatian = "Naslovi koji ne bi trebali biti u fusnotama"
-        Exit Function
-      Case "badHeadingsInTables"
-        getCroatian = "Zaglavlja koja se ne smiju stavljati unutar tablica"
-        Exit Function
-      Case "removeNotTransparentBackgrounds"
-        getCroatian = "Uklonite netransparentne pozadine u tekstu"
-        Exit Function
-      Case "manualStyleFileSet"
-         getCroatian = "Prilikom čišćenja koristit će se ručno naveden predložak"
-         Exit Function
-      Case "predefiendTemplateSelected"
-         getCroatian = "Prilikom čišćenja koristit će se predložak odabran s popisa"
-         Exit Function
-      Case "selectTemplateDialogTitle"
-        getCroatian = "Izaberite obrazac sa liste"
-        Exit Function
-      Case "templateNotSelected"
-         getCroatian = "Šablon nije izabran"
-         Exit Function
-      Case "templateChosen"
-         getCroatian = "Izabrani šablon"
-         Exit Function
-      Case "statusFixingDiacriticCharactersKerning"
-         getCroatian = "Popravljanje kombinacije s dijakritičkim znakovima"
-         Exit Function
-      Case "fixDiacriticKerning"
-         getCroatian = "Ispravite kombiniranje s naglašenim likovima"
-         Exit Function
       Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -1023,11 +897,8 @@ Function getSerbian(identifier As String) As String
       Case "noFileWithStylesFound"
          getSerbian = "Датотека шаблона која садржи стилове за учитавање у документ није наведена." & chr(10) &"Можете изабрати нови šablon на рачунару. " & chr(10) & "Ако датотека шаблона није изабрана, овај корак чишћења ће се прескочити."
          Exit Function
-      Case "startQuietCleaningDescription1"
+      Case "startQuietCleaningDescription"
-         getSerbian = "Да ли желите да почнете са чишћењем документа?" & chr(10) & "Овде можете да одредите и нову датотеку шаблона." & chr(10) & "Стилови из шаблона "
+         getSerbian = "Да ли желите да почнете са чишћењем документа?" & chr(10) & "Овде можете да одредите и нову датотеку шаблона." & chr(10) & "Стилови из шаблона биће учитани у документ."
-         Exit Function
-      Case "startQuietCleaningDescription2"
-         getSerbian = "биће учитани у документ."
          Exit Function
       Case "buttonYes"
          getSerbian = "Да"
@@ -1036,7 +907,7 @@ Function getSerbian(identifier As String) As String
          getSerbian = "Потврда покретања чишћења"
          Exit Function
       Case "noStylesFileDialogTitle"
-         getSerbian = "Конфигуришите датотеку стила"
+         getSerbian = "Šablon са стиловима није пронађен"
          Exit Function
       Case "buttonTemplateNotFoundSkip"
          getSerbian = "Наставите"
@@ -1156,7 +1027,7 @@ Function getSerbian(identifier As String) As String
          getSerbian = "Сви пронађени примедбе морају бити исправљени пре објављивања документа."
          Exit Function
       Case "validationBadSymbolsNotification"
-         getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Кликом на стрелице навигатора можете се кретати између пронађених одломака са неприкладним знаковима."
+         getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Сада ћете добити листа одломака текста са сличним знаковима "
          Exit Function
       Case "validationBadDrawings"
          getSerbian = "У документу се налазе цртежи ("
@@ -1198,22 +1069,22 @@ Function getSerbian(identifier As String) As String
          getSerbian = "Подешавање чишћења и провере"
          Exit Function
       Case "dialogRussianFixesIPH"
-         getSerbian = "Исправци за текстове на руском"
+        getSerbian = "Исправци за текстове на руском"
-         Exit Function
+        Exit Function
       Case "documentIsReadOnly"
-         getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
+        getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
-         Exit Function
+        Exit Function
       Case "validateEndnotes1"
-         getSerbian = "у end фусноти (апсолутни број)"
+        getSerbian = "у end фусноти (апсолутни број)"
-         Exit Function
+        Exit Function
       Case "setOutlineLevel"
-         getSerbian = "задатен уровен структури документа"
+        getSerbian = "задатен уровен структури документа"
-         Exit Function
+        Exit Function
       Case "section"
          getSerbian = "Одјељак"
          Exit Function
       Case "isInTable"
-         getSerbian = "смештене унутар стола"
+         getSerbian = "смештене унутар стола."
          Exit Function
       Case "foundHeadingIn"
          getSerbian = "Наслов пронађен у"
@@ -1228,11 +1099,11 @@ Function getSerbian(identifier As String) As String
          getSerbian = "стил странице"
          Exit Function
       Case "table"
-         getSerbian = "стола"
+        getSerbian = "стола"
-         Exit Function
+        Exit Function
       Case "validationStarted"
-         getSerbian = "Провера у тијеку"
+        getSerbian = "Провера у тијеку"
-         Exit Function
+        Exit Function
       Case "chooseFontNameDialogTitle"
          getSerbian = "Изаберите фонт да бисте направили извештај."
          Exit Function
@@ -1267,8 +1138,8 @@ Function getSerbian(identifier As String) As String
          getSerbian = "Исправљамо DOI"
          Exit Function
       Case "advancedMenuResetChapterNumberingRules"
-         getSerbian = "Ресетујте поставке нумерисања поглавља"
+        getSerbian = "Ресетујте поставке нумерисања поглавља"
-         Exit Function
+        Exit Function
       Case "dialogConfigMaxSuperscript"
          getSerbian = "Максимална дужина реда у натпису"
          Exit Function
@@ -1282,8 +1153,8 @@ Function getSerbian(identifier As String) As String
          getSerbian = "Замена цртица између бројева нумеричким цртицама"
          Exit Function
       Case "advancedMenuconvertFontsToCharStyles"
-         getSerbian = "Створите стилове знакова од пронађених фонтова "
+        getSerbian = "Створите стилове знакова од пронађених фонтова "
-         Exit Function
+        Exit Function
       Case "buttonClose"
          getSerbian = "Затворити"
          Exit Function
@@ -1291,59 +1162,20 @@ Function getSerbian(identifier As String) As String
          getSerbian = "Укупно пронађено: "
          Exit Function
       Case "coloredTextDescription"
-         getSerbian = "Навигација по истакнутом тексту "
+        getSerbian = "Навигација по истакнутом тексту "
-         Exit Function
+        Exit Function
       Case "foundColoredTextMessage"
-         getSerbian = "Пронађен је текст са непрозирном позадином. Ово обично није погодно за електронско издавање. Користите „Без попуњавања“ уместо беле позадине "
+        getSerbian = "Пронађен је текст са непрозирном позадином. Ово обично није погодно за електронско издавање. Користите „Без попуњавања“ уместо беле позадине "
-         Exit Function
+        Exit Function
       Case "invalidParagraphFormattingFound"
-         getSerbian = "Пронађене су нетачне поставке форматирања пасуса. Потребно чишћење. "
+        getSerbian = "Пронађене су нетачне поставке форматирања пасуса. Потребно чишћење. "
-         Exit Function
+        Exit Function
       Case "fixBrokenCharBackTransparentMenuItem"
-         getSerbian = "Исправите нетачна подешавања попуњавања боја за пасусе "
+        getSerbian = "Исправите нетачна подешавања попуњавања боја за пасусе "
-         Exit Function
+        Exit Function
       Case "badSymbols"
-         getSerbian = "Неодговарајуће знакова за објављивање"
+        getSerbian = "Неодговарајуће знакова за објављивање"
-         Exit Function
-      Case "badNoteSings"
-         getSerbian = "Неприкладни симболи фуснота "
-         Exit Function
-      Case "validationBadFootnotesSymbolsNotification"
-         getSerbian = "У симболима фуснота пронађени су неприкладни за објављивање симболи. "& chr(10) &" Кликом на стрелице навигатора можете се кретати између пронађених симбола фуснота. "
-         Exit Function
-      Case "badSectionsInTables"
-        getSerbian = "Одељци који не би требало да буду унутар табела"
         Exit Function
-      Case "badHeadingsInFootnotes"
-        getSerbian = "Наслови који не смеју бити у фуснотама"
-        Exit Function
-      Case "badHeadingsInTables"
-        getSerbian = "Заглавља која не смеју бити смештена унутар табела"
-        Exit Function
-      Case "removeNotTransparentBackgrounds"
-        getSerbian = "Уклоните нетранспарентне позадине у тексту"
-        Exit Function
-      Case "manualStyleFileSet"
-         getSerbian = "Приликом чишћења користиће се ручно наведен шаблон"
-         Exit Function
-      Case "predefiendTemplateSelected"
-         getSerbian = "Приликом чишћења користиће се шаблон изабран са листе"
-         Exit Function
-      Case "selectTemplateDialogTitle"
-        getSerbian = "Изаберите образац са листе"
-        Exit Function
-      Case "templateNotSelected"
-         getSerbian = "Шаблон није изабран"
-         Exit Function
-      Case "templateChosen"
-         getSerbian = "Изабрани шаблон"
-         Exit Function
-      Case "statusFixingDiacriticCharactersKerning"
-         getSerbian = "Ispravljanje kombinacije sa dijakritičkim znacima "
-         Exit Function
-      Case "fixDiacriticKerning"
-         getSerbian = "Ispravite kombiniranje s naglašenim likovima"
-         Exit Function
       Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -1354,11 +1186,8 @@ Function getBosnian(identifier As String) As String
       Case "noFileWithStylesFound"
          getBosnian = "Datoteka predloška koja sadrži stilove za učitavanje u dokument nije navedena." & chr(10) &" Na računaru možete odabrati novi predložak. " & chr(10) &"Ako datoteka predloška nije odabrana, ovaj korak čišćenja će se preskočiti."
          Exit Function
-      Case "startQuietCleaningDescription1"
+      Case "startQuietCleaningDescription"
-         getBosnian = "Želite li započeti s čišćenjem dokumenta?" & chr(10) & "Ovdje možete odrediti i novu datoteku predloška." & chr(10) & "Stilovi iz predloška"
+         getBosnian = "Želite li započeti s čišćenjem dokumenta?" & chr(10) & "Ovdje možete odrediti i novu datoteku predloška." & chr(10) & "Stilovi iz predloška bit će učitani u dokument."
-         Exit Function
-      Case "startQuietCleaningDescription2"
-         getBosnian = " bit će učitani u dokument."
          Exit Function
       Case "buttonYes"
          getBosnian = "Da"
@@ -1367,7 +1196,7 @@ Function getBosnian(identifier As String) As String
          getBosnian = "Potvrda čišćenja"
          Exit Function
       Case "noStylesFileDialogTitle"
-         getBosnian = "Konfigurišite datoteku stila"
+         getBosnian = "Datoteka predloška nije pronađena"
          Exit Function
       Case "buttonTemplateNotFoundSkip"
          getBosnian = "Nastavite"
@@ -1487,7 +1316,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) & "Klikom na strelice navigatora možete se kretati između pronađenih odlomaka s neprikladnim znakovima."
+         getBosnian = "U tekstu su pronađeni neprikladni znakovi." & chr(10) & "Sada ćete dobiti listu isječaka teksta sa sličnim znakovima"
          Exit Function
       Case "validationBadDrawings"
          getBosnian = "Dokument sadrži crteže ("
@@ -1529,22 +1358,22 @@ Function getBosnian(identifier As String) As String
          getBosnian = "Podešavanje čišćenja i provjere"
          Exit Function
       Case "dialogRussianFixesIPH"
-         getBosnian = "Ispravci za tekstove na ruskom"
+        getBosnian = "Ispravci za tekstove na ruskom"
-         Exit Function
+        Exit Function
       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"
-         getBosnian = "u end fusnoti (apsolutni broj)"
+        getBosnian = "u end fusnoti (apsolutni broj)"
-         Exit Function
+        Exit Function
       Case "setOutlineLevel"
-         getBosnian = "zadati uroven strukturni dokument"
+        getBosnian = "zadati uroven strukturni dokument"
-         Exit Function
+        Exit Function
       Case "section"
          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"
@@ -1559,11 +1388,11 @@ Function getBosnian(identifier As String) As String
          getBosnian = "stil stranice"
          Exit Function
       Case "table"
-         getBosnian = "stola"
+        getBosnian = "stola"
-         Exit Function
+        Exit Function
       Case "validationStarted"
-         getBosnian = "Provjera u tijeku"
+        getBosnian = "Provjera u tijeku"
-         Exit Function
+        Exit Function
       Case "chooseFontNameDialogTitle"
          getBosnian = "Odaberite font za stvaranje izvješća."
          Exit Function
@@ -1598,8 +1427,8 @@ Function getBosnian(identifier As String) As String
          getBosnian = "Ispravljamo DOI"
          Exit Function
       Case "advancedMenuResetChapterNumberingRules"
-         getBosnian = "Resetirajte postavke numeriranja poglavlja"
+        getBosnian = "Resetirajte postavke numeriranja poglavlja"
-         Exit Function
+        Exit Function
       Case "dialogConfigMaxSuperscript"
          getBosnian = "Maksimalna dužina retka u natpisu"
          Exit Function
@@ -1613,8 +1442,8 @@ Function getBosnian(identifier As String) As String
          getBosnian = "Zamjena crtica između brojeva numeričkim crticama"
          Exit Function
       Case "advancedMenuconvertFontsToCharStyles"
-         getBosnian = "Stvorite stilove znakova iz pronađenih fontova "
+        getBosnian = "Stvorite stilove znakova iz pronađenih fontova "
-         Exit Function
+        Exit Function
       Case "buttonClose"
          getBosnian = "Zatvoriti "
          Exit Function
@@ -1622,59 +1451,20 @@ Function getBosnian(identifier As String) As String
          getBosnian = "Ukupno pronađeno: "
          Exit Function
       Case "coloredTextDescription"
-         getBosnian = "Navigacija istaknutim tekstom "
+        getBosnian = "Navigacija istaknutim tekstom "
-         Exit Function
+        Exit Function
       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"
-         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"
-         getBosnian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
+        getBosnian = "Ispravite netočne postavke ispunjavanja boja za odlomke "
-         Exit Function
+        Exit Function
       Case "badSymbols"
-         getBosnian = "Neprimjerene znakova za objavljivanje"
+        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 "badSectionsInTables"
-        getBosnian = "Odjeljci koji ne bi trebali biti unutar tablica "
         Exit Function
-      Case "badHeadingsInFootnotes"
-        getBosnian = "Naslovi koji ne bi trebali biti u fusnotama"
-        Exit Function
-      Case "badHeadingsInTables"
-        getBosnian = "Zaglavlja koja se ne smiju stavljati unutar tablica"
-        Exit Function
-      Case "removeNotTransparentBackgrounds"
-        getBosnian = "Uklonite netransparentne pozadine u tekstu"
-        Exit Function
-      Case "manualStyleFileSet"
-         getBosnian = "Prilikom čišćenja koristit će se ručno naveden predložak"
-         Exit Function
-      Case "predefiendTemplateSelected"
-         getBosnian = "Prilikom čišćenja koristit će se predložak odabran s popisa"
-         Exit Function
-      Case "selectTemplateDialogTitle"
-        getBosnian = "Изаберите образац са листе"
-        Exit Function
-      Case "templateNotSelected"
-         getBosnian = "Šablon nije izabran"
-         Exit Function
-      Case "templateChosen"
-         getBosnian = "Izabrani šablon"
-         Exit Function
-      Case "statusFixingDiacriticCharactersKerning"
-         getBosnian = "Popravljanje kombinacije s dijakritičkim znakovima"
-         Exit Function
-      Case "fixDiacriticKerning"
-         getBosnian = "Ispravite kombiniranje s naglašenim likovima"
-         Exit Function
       Case Else
 	    getBosnian = "No translation"
 	End Select  

Redaction/Validation.xba

@@ -1,101 +1,118 @@
 <?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 markval31
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval26
+
 End Sub
 
 
 
 Sub validateButton
-	Dim badFootnoteSigns As Boolean
+	Dim footnotesReport As String
-	Dim badGraphics As Boolean
+	Dim graphicsReport As String
-	Dim badSectionsInTables As Boolean
+	Dim sectionsReport As String
-	Dim badHeadingsInFootnotes As Boolean
 	Dim outlinePageStylesReport As String
-	Dim badHeadingsInTables As Boolean
+	Dim outlineInNotesReport As String
+	Dim oulineInTablesReport As String
 	Dim badText As Boolean
+	Dim badNumberings As Boolean
 	Dim needExtendedInfo As Boolean
 	Dim config As Object
 	Dim needFixColoredText As Boolean
 	Dim brokenCharBackTransparent As Boolean
  	config = initRedactionConfiguration()
+ 	
  	Dim statusIndicator as Object
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
 	statusIndicator.Start(getTranslation(&quot;validationStarted&quot;),100)
 	
-	badFootnoteSigns = noteSignsCheck()
+	badText = false
+	badNumberings = false
+	footnotesReport = noteSingsCheck
 	statusIndicator.setValue(10)
-	
+	graphicsReport = checkGraphics
-	badGraphics = checkGraphics()
-	
-	badText = findBadCharacters()
-	
-	needFixColoredText = findColoredBackgroundInDoc()
-	
 	statusIndicator.setValue(20)
-
+	sectionsReport = checkSectionsInTables
-	badSectionsInTables = checkSectionsInTables()
 	statusIndicator.setValue(30)
-	
+	outlineInNotesReport = checkNotesOutline()
-	badHeadingsInFootnotes = checkNotesOutline()
 	statusIndicator.setValue(40)
-	
+	outlinePageStylesReport = checkHeadingsInHeadersFooters
-	outlinePageStylesReport = checkHeadingsInHeadersFooters()
 	statusIndicator.setValue(50)
-	
+	oulineInTablesReport = checkHeadingsInTextTables
-	badHeadingsInTables = checkHeadingsInTextTables()
-	
 	statusIndicator.setValue(60)
-	
+	If outlineInNotesReport &lt;&gt; &quot;&quot; Then
+		MsgBox outlineInNotesReport
+	EndIf
+	If oulineInTablesReport &lt;&gt; &quot;&quot; Then
+		MsgBox oulineInTablesReport
+	EndIf
 	If outlinePageStylesReport &lt;&gt; &quot;&quot; Then
 		MsgBox outlinePageStylesReport
 	EndIf
 	
+	If footnotesReport &lt;&gt; &quot;&quot; Then
+		MsgBox footnotesReport
+	EndIf	
+	If graphicsReport &lt;&gt; &quot;&quot; Then
+		MsgBox graphicsReport
+	EndIf
+	If sectionsReport &lt;&gt; &quot;&quot; Then
+		MsgBox sectionsReport
+	EndIf
+	
+	badText = findBadCharacters
+	
 	If config.getPropertyValue(&quot;complexity&quot;) = &quot;makerUp&quot; then
 		needExtendedInfo = true
 	Else
 		needExtendedInfo = false
 	EndIf
 	
-	brokenCharBackTransparent = hasbrokenCharBackTransparent()
+	brokenCharBackTransparent = hasbrokenCharBackTransparent
 	If (brokenCharBackTransparent) Then
 		MsgBox getTranslation(&quot;invalidParagraphFormattingFound&quot;)
 	EndIf
+	needFixColoredText = findColoredBackgroundInDoc
 	
 	numberingsErros = printNumberingSymbols(needExtendedInfo)
 	statusIndicator.setValue(80)
-	If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR badText OR badFootnoteSigns OR badGraphics Or badHeadingsInFootnotes Or badSectionsInTables OR badHeadingsInTables OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
+	If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR 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; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
 		MsgBox getTranslation(&quot;validationWarning&quot;)	
+		
 	Else
-		MsgBox getTranslation(&quot;validationSuccess&quot;)
+      MsgBox getTranslation(&quot;validationSuccess&quot;)
 	EndIf
 	statusIndicator.end()
 End Sub
 
-Function checkGraphics() As Boolean
+Private Function checkGraphics() As String
 	Dim drawPages As Object
 	Dim count as Integer
 	Dim draw As Object
+	Dim result As String
+	result = &quot;&quot;
 	Dim shapeType As String
 	Dim embeededObject As Object
+	Dim badFrame As Long
+	badFrame = 0
+	Dim drawingN As Long
+	drawingN = 0
 	drawPages = ThisComponent.DrawPage
-	Dim i As Long
+	Dim i As Integer
-	Dim badDrawings() As Object
-	Dim badFrames() As Object
 	count = drawPages.getCount()
-	For i = 0 to count - 1
+	For i = 0 to count-1
 		draw = drawPages.getByIndex(i)
 		shapeType = draw.ShapeType
 		If InStr(shapeType,&quot;com.sun.star.drawing&quot;) = 1 Then
-			addToArray(badDrawings, draw.Anchor)
+			drawingN = drawingN + 1 
 		EndIf	
 		If InStr(shapeType,&quot;FrameShape&quot;) = 1 Then
 			If draw.supportsService(&quot;com.sun.star.text.TextEmbeddedObject&quot;) Then
 				embeededObject = draw.getEmbeddedObject()
 				If IsNull(embeededObject) Then
-					addToArray(badFrames, draw.Anchor)
+					badFrame = badFrame + 1 
 				Else
 					If Not embeededObject.supportsService(&quot;com.sun.star.formula.FormulaProperties&quot;) Then
-						addToArray(badFrames, draw.Anchor)
+						badFrame = badFrame + 1 
 					Else
 						&apos;Formula
 					EndIf	
@@ -103,15 +120,13 @@ Function checkGraphics() As Boolean
 			EndIf
 		EndIf	
 	Next i
-	checkGraphics = false
+	If drawingN &lt;&gt; 0 Then
-	If UBound(badDrawings) &gt; -1 Then
+		result = result &amp; getTranslation(&quot;validationBadDrawings&quot;) &amp; drawingN &amp; getTranslation(&quot;validationExcerptNotSuitable&quot;) &amp; chr(10)
-		startNavigatorDialog(getTranslation(&quot;validationBadDrawings&quot;) &amp; (UBound(badDrawings) + 1) &amp; getTranslation(&quot;validationExcerptNotSuitable&quot;),badDrawings)
-		checkGraphics = true
 	EndIf
-	If UBound(badFrames) &gt; -1 Then
+	If badFrame &lt;&gt; 0 Then
-		startNavigatorDialog(getTranslation(&quot;validationBadEmbeededObjects&quot;) &amp; (UBound(badFrames) + 1) &amp; getTranslation(&quot;validationExcerptNotSuitable&quot;),badFrames)
+		result = result &amp; getTranslation(&quot;validationBadEmbeededObjects&quot;) &amp; badFrame &amp; getTranslation(&quot;validationExcerptNotSuitable&quot;) &amp; chr(10)
-		checkGraphics = true
 	EndIf
+	checkGraphics = result
 End Function
 
 Private Sub fixDOI
@@ -127,7 +142,7 @@ Sub replaceCharsInDOI
     AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}&quot;,&quot;-&quot;)
 End sub
 
-Private Function noteSignsCheck() As Boolean
+Private Function noteSingsCheck() As String
 	Dim footnotes As Object
 	Dim footnote As Object
 	Dim endnote As Object
@@ -137,11 +152,9 @@ Private Function noteSignsCheck() As Boolean
 	Dim char As Long
 	Dim label As String
 	Dim result As String
-	Dim founds() As Object
-	noteSignsCheck = false
 	result = &quot;&quot;
-	footnotes = ThisComponent.Footnotes
+	footnotes = ThisComponent.footnotes
-	endnotes = ThisComponent.Endnotes
+	endnotes = ThisComponent.Footnotes
 	count = footnotes.getCount
 	Dim i As Integer
 	Dim j As Integer
@@ -151,9 +164,8 @@ Private Function noteSignsCheck() As Boolean
 		charNum = Len(label)
 		For j = 1 to charNum
 		  char = Asc(Right(Left(label,j),1))
-		  If char &gt;= 57344 AND char &lt;= 63743 Then
+		  If char &gt;= 57344 AND char &lt;= 63743 then
-		  	addToArray(founds,footnote.Anchor)
+		  	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)
-		  	&apos;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
@@ -164,30 +176,24 @@ Private Function noteSignsCheck() As Boolean
 		charNum = Len(label)
 		For j = 1 to charNum
 		  char = Asc(Right(Left(label,j),1))
-		  If char &gt;= 57344 AND char &lt;= 63743 Then
+		  If char &gt;= 57344 AND char &lt;= 63743 then
-  		  	addToArray(founds,endnote.Anchor)
+		  	result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateEndnotes1&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
-		  	&apos;result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateEndnotes1&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
 		  End If
 		Next j
 	Next i
-	If (UBound(founds) &gt; -1) Then
+	noteSingsCheck = result
-		noteSignsCheck = true
-		MsgBox(getTranslation(&quot;validationBadFootnotesSymbolsNotification&quot;))
-		startNavigatorDialog(getTranslation(&quot;badNoteSings&quot;),founds)
-	EndIf
-	&apos;noteSignsCheck = result
 End Function
 
-Function checkNotesOutline As Boolean
+Function checkNotesOutline As String
+	Dim oDescriptor As Object
 	Dim footNotes As Object
 	Dim endNotes As Object
-	Dim x As Long
+	Dim x As Integer
 	Dim aNote As Object
 	Dim oEnum As Object
 	Dim oCurPar As Object
-&apos;	Dim result As String
+	Dim result As String
-	Dim founds() As Object
+	result = &quot;&quot;
-&apos;	result = &quot;&quot;
 	footNotes = thisComponent.footNotes
 	endNotes = thisComponent.EndNotes
 	for x = 0 to footNotes.Count -1
@@ -197,8 +203,7 @@ Function checkNotesOutline As Boolean
 	  Do While oEnum.hasMoreElements()
 	    oCurPar = oEnum.nextElement()
 	    If oCurPar.OutlineLevel &gt; 0 Then
-	    	addToArray(founds,oCurPar)
+	    result = result &amp; getTranslation(&quot;validateFootnotes2&quot;)  &amp; &quot; &quot; &amp; x &amp; &quot; &quot; &amp; getTranslation(&quot;setOutlineLevel&quot;) &amp; &quot; &quot; &amp; oCurPar.OutlineLevel &amp; chr(10)
-	 &apos;   result = result &amp; getTranslation(&quot;validateFootnotes2&quot;)  &amp; &quot; &quot; &amp; x &amp; &quot; &quot; &amp; getTranslation(&quot;setOutlineLevel&quot;) &amp; &quot; &quot; &amp; oCurPar.OutlineLevel &amp; chr(10)
 	    EndIf
 	  Loop
 	Next
@@ -209,29 +214,21 @@ Function checkNotesOutline As Boolean
 	  Do While oEnum.hasMoreElements()
 	    oCurPar = oEnum.nextElement()
 	    If oCurPar.OutlineLevel &gt; 0 Then
-		    addToArray(founds,oCurPar)
+	    result = result &amp; getTranslation(&quot;validateEndnotes1&quot;)  &amp; &quot; &quot; &amp; x &amp; &quot; &quot; &amp; getTranslation(&quot;setOutlineLevel&quot;) &amp; &quot; &quot; &amp; oCurPar.OutlineLevel &amp; chr(10)
-	&apos;    result = result &amp; getTranslation(&quot;validateEndnotes1&quot;)  &amp; &quot; &quot; &amp; x &amp; &quot; &quot; &amp; getTranslation(&quot;setOutlineLevel&quot;) &amp; &quot; &quot; &amp; oCurPar.OutlineLevel &amp; chr(10)
 	    EndIf
 	  Loop
 	Next
-	If (UBound(founds) &gt; -1) Then
+	checkNotesOutline = result
-		startNavigatorDialog(getTranslation(&quot;badHeadingsInFootnotes&quot;),founds)
-		checkNotesOutline = true
-	Else
-		checkNotesOutline = false
-	EndIf
-	
 End Function
 
-Function checkSectionsInTables As Boolean
+Function checkSectionsInTables As String
 	Dim x As Integer
 	Dim oEnum As Object
-	&apos;Dim result As String
+	Dim result As String
 	Dim sections As Object
 	Dim section As Object
 	Dim anchor As Object
 	Dim anchorText As Object
-	Dim badSections() As Object
 	result = &quot;&quot;
 	sections = thisComponent.TextSections
 	for x = 0 to sections.Count -1
@@ -239,17 +236,10 @@ Function checkSectionsInTables As Boolean
 	  anchor = section.getAnchor()
 	  anchorText = anchor.getText()
 	  If anchorText.supportsService(&quot;com.sun.star.text.CellProperties&quot;) Then
-	  	addToArray(badSections(),anchor)
+	    result = result &amp; getTranslation(&quot;section&quot;) &amp; &quot; &quot; &amp; section.Name &amp; &quot; &quot; &amp; getTranslation(&quot;isInTable&quot;) &amp; chr(10)
-	    &apos;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
-	If (UBound(badSections) &gt; -1) Then
-		checkSectionsInTables = true
-		startNavigatorDialog(getTranslation(&quot;badSectionsInTables&quot;),badSections)
-	Else 
-		checkSectionsInTables = false
-	EndIf
 End Function
 
 Function checkHeadingsInHeadersFooters As String
@@ -307,7 +297,7 @@ Function checkHeadingsInHeadersFooters As String
 	checkHeadingsInHeadersFooters = result
 End Function
 
-Function checkHeadingsInTextTables() As Boolean
+Function checkHeadingsInTextTables() As String
 	Dim enum1Element As Object
 	Dim enum1 As Object
 	Dim enum2 As Object
@@ -320,7 +310,8 @@ Function checkHeadingsInTextTables() As Boolean
 	Dim cell As Object
 	Dim cellText As Object
 	Dim firstCellName As String
-	Dim founds() As Object
+	Dim result As String
+	result = &quot;&quot;
 	enum1 = ThisComponent.Text.createEnumeration
 	While enum1.hasMoreElements
 		enum1Element = enum1.nextElement
@@ -331,86 +322,20 @@ Function checkHeadingsInTextTables() As Boolean
 				cell = enum1Element.getCellByName(cellNames(i))
 				cellText = cell.getText()
 				If cellNames(i) = firstCellName Then 
-				  addHeadingNotFirstInText(cellText,founds) 
+				  If isHeadingNotFirstInText(cellText) Then
+				    result = result &amp; getTranslation(&quot;foundHeadingIn&quot;) &amp; &quot; &quot; &amp; getTranslation(&quot;table&quot;) &amp; &quot; &quot; &amp; enum1Element.TableName &amp; chr(10)
+				  EndIf
 				Else
-				  addHeadingsInText(cellText,founds)
+				  If isHeadingsInText(cellText) Then
+				    result = result &amp; getTranslation(&quot;foundHeadingIn&quot;) &amp; &quot; &quot; &amp; getTranslation(&quot;table&quot;) &amp; &quot; &quot; &amp; enum1Element.TableName &amp; chr(10)
+				  EndIf
 				EndIf
 		    Next i
 		EndIf
 	Wend 
-	If (UBound(founds) &gt; -1) Then
+	checkHeadingsInTextTables = result
-		checkHeadingsInTextTables = true
-		startNavigatorDialog(getTranslation(&quot;badHeadingsInTables&quot;),founds)
-	Else 
-		checkHeadingsInTextTables = false
-	EndIf
 End Function
 
-Sub addHeadingNotFirstInText(oText As Object, founds() As Object)
-	Dim enum1Element As Object
-	Dim enum1 As Object
-	Dim enum2 As Object
-	Dim thisPortion As Object
-	Dim footnoteText As Object
-	Dim label As String
-	Dim labelNum As Integer
-	Dim i As Integer
-	Dim count As Integer
-	Dim cell As Object
-	Dim cellText As Object
-	Dim first As Boolean
-	first = true
-	enum1 = oText.createEnumeration
-	While enum1.hasMoreElements
-		enum1Element = enum1.nextElement
-		If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
-			If Not first Then
-			  If enum1Element.OutlineLevel &gt; 0 Then
-			    addToArray(founds,enum1Element)
-			  EndIf
-			EndIf
-		ElseIf enum1Element.supportsService(&quot;com.sun.star.text.TextTable&quot;) Then
-			cellNames = enum1Element.cellNames
-			For i = LBound(cellNames) To Ubound(cellNames)
-				cell = enum1Element.getCellByName(cellNames(i))
-				cellText = cell.getText()
-				addHeadingsInText(cellText,founds) 
-		    Next i
-		EndIf
-		first = false
-	Wend 
-End Sub
-
-Sub addHeadingsInText(oText As Object, founds() As Object)
-	Dim enum1Element As Object
-	Dim enum1 As Object
-	Dim enum2 As Object
-	Dim thisPortion As Object
-	Dim footnoteText As Object
-	Dim label As String
-	Dim labelNum As Integer
-	Dim i As Integer
-	Dim count As Integer
-	Dim cell As Object
-	Dim cellText As Object
-	enum1 = oText.Text.createEnumeration
-	While enum1.hasMoreElements
-		enum1Element = enum1.nextElement
-		If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
-			If enum1Element.OutlineLevel &gt; 0 Then
-				addToArray(founds,enum1Element)
-			EndIf			
-		ElseIf enum1Element.supportsService(&quot;com.sun.star.text.TextTable&quot;) Then
-			cellNames = enum1Element.cellNames
-			For i = LBound(cellNames) To Ubound(cellNames)
-				cell = enum1Element.getCellByName(cellNames(i))
-				cellText = cell.getText()
-				addHeadingsInText(cellText,founds)
-		    Next i
-		EndIf
-	Wend 
-End Sub
-
 Function isHeadingNotFirstInText(oText As Object) As Boolean
 	Dim enum1Element As Object
 	Dim enum1 As Object
@@ -488,26 +413,26 @@ Function isHeadingsInText(oText As Object) As Boolean
 End Function
 
 Function hasBrokenCharBackTransparent As Boolean
-	Dim footNotes As Object 
+	Dim foonNotes As Object 
 	Dim endNotes As Object 
-	Dim i As Long
+	Dim i As Integer
 	Dim oStyles As Object
 	Dim pageStyles As Object
 	Dim pageStyle As Object
-	hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(ThisComponent.Text)
+	hasBrokenCharBackTransparent = isBackColorInText(ThisComponent.Text)
 	If (hasBrokenCharBackTransparent) Then
 		Exit Function
 	EndIf
-	footNotes = ThisComponent.FootNotes
+	footNotes = thisComponent.footNotes
-	For i = 0 to footNotes.getCount - 1
+	For i = 0 to footNotes.Count -1
-		hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(footNotes.getByIndex(i).Text)
+		hasBrokenCharBackTransparent = isBackColorInText(footNotes.getByIndex(i).Text)
 		If (hasBrokenCharBackTransparent) Then
 			Exit Function
 		EndIf
 	Next i
 	endNotes = thisComponent.footNotes
 	For i = 0 to footNotes.Count -1
-		hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(endNotes.getByIndex(i).Text)
+		hasBrokenCharBackTransparent = isBackColorInText(endNotes.getByIndex(i).Text)
 		If (hasBrokenCharBackTransparent) Then
 			Exit Function
 		EndIf
@@ -517,49 +442,49 @@ Function hasBrokenCharBackTransparent As Boolean
 	For i = 0 to pageStyles.Count -1
 		pageStyle = pageStyles.getByIndex(i)
 		If Not IsEmpty(pageStyle.FooterText) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.FooterText)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.FooterText)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.FooterTextFirst) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.FooterTextFirst)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.FooterTextFirst)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.FooterTextRight) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.FooterTextRight)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.FooterTextRight)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.FooterTextLeft) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.FooterTextLeft)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.FooterTextLeft)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.HeaderText) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.HeaderText)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.HeaderText)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.HeaderTextFirst) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.HeaderTextFirst)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.HeaderTextFirst)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.HeaderTextRight) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.HeaderTextRight)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.HeaderTextRight)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
 		EndIf
 		If Not IsEmpty(pageStyle.HeaderTextLeft) Then
-			hasBrokenCharBackTransparent = isManualCharBackTransparentInTextParas(pageStyle.HeaderTextLeft)
+			hasBrokenCharBackTransparent = isBackColorInText(pageStyle.HeaderTextLeft)
 			If (hasBrokenCharBackTransparent) Then
 				Exit Function
 			EndIf
@@ -567,21 +492,9 @@ Function hasBrokenCharBackTransparent As Boolean
 	Next i
 End Function
 
-Function isManualCharBackTransparent(para As Object) As Boolean
-	Dim styleName As String
-	Dim	paraStyles As Object
-	isManualCharBackTransparent = false
-	If para.CharBackTransparent = false Then
-		styleName =	para.ParaStyleName
-	   	paraStyles = ThisComponent.StyleFamilies.getByName(&quot;ParagraphStyles&quot;)
-	   	paraStyle = paraStyles.GetByName(styleName)
-		If paraStyle.CharBackTransparent = true Then
-			isManualCharBackTransparent = true
-		EndIf
-	EndIf
-End Function
 
-Function isManualCharBackTransparentInTextParas(oText As Object) As Boolean
+
+Function isBackColorInText(oText As Object) As Boolean
 	Dim enum1Element As Object
 	Dim enum1 As Object
 	Dim enum2 As Object
@@ -598,8 +511,8 @@ Function isManualCharBackTransparentInTextParas(oText As Object) As Boolean
 	While enum1.hasMoreElements
 		enum1Element = enum1.nextElement
 		If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
-			If isManualCharBackTransparent(enum1Element) Then
+			If enum1Element.CharBackTransparent = false Then
-			  isManualCharBackTransparentInTextParas = true
+			  isBackColorInText = true
 			  Exit Function
 			EndIf			
 		ElseIf enum1Element.supportsService(&quot;com.sun.star.text.TextTable&quot;) Then
@@ -607,14 +520,14 @@ Function isManualCharBackTransparentInTextParas(oText As Object) As Boolean
 			For i = LBound(cellNames) To Ubound(cellNames)
 				cell = enum1Element.getCellByName(cellNames(i))
 				cellText = cell.getText()
-				If isManualCharBackTransparentInTextParas(cellText) Then
+				If isBackColorInText(cellText) Then
-				  isManualCharBackTransparentInTextParas = true
+				  isBackColorInText = true
 			      Exit Function
 				EndIf
 		    Next i
 		EndIf
 	Wend 
-	isManualCharBackTransparentInTextParas = false
+	isBackColorInText = false
 End Function
 
 
@@ -769,9 +682,11 @@ Sub fontReportButton
         Exit sub
     EndIf    
     Dim FileName As String
-	getCharsInFont(targetFontName)
+	FileName = getCharsInFont(targetFontName)
 	statusIndicator.end()
-
+	If FileName &lt;&gt; &quot;&quot; Then
+    	openReport(FileName)
+	EndIf
 End Sub
 
 Sub onSelectFont(oEvent)
@@ -911,7 +826,7 @@ Sub addToArray(xArray(),vNextElement)
 	xArray(iUB) = vNextElement
 End Sub
 
-Sub getCharsInFont(fontName As String)
+Function getCharsInFont(fontName As String) As String
 	Dim resultArray() As String
 	Dim pageNums() As Long
 	Dim firstPages() As Long
@@ -997,41 +912,52 @@ Sub getCharsInFont(fontName As String)
 			EndIf	  
 		Next j
 	Next i 
+	resultString = &quot;&quot;
+	For i = LBound(resultArray) To UBound(resultArray)
+		resultString = resultString &amp; &quot;&lt;a href=&apos;https://unicode-table.com/ru/&quot; &amp; resultArray(i) &amp; &quot;&apos;&quot; &amp; &quot;&gt;https://unicode-table.com/ru/&quot; &amp; resultArray(i) &amp; &quot;&lt;/a&gt; &quot; &amp; getTranslation(&quot;charFirstPage&quot;) &amp; &quot; &quot; &amp; pageNums(i) &amp; &quot;&lt;br&gt;&quot; &amp; Chr(10)
+	Next i
+	
 	If resultString &lt;&gt; &quot;&quot; Then
-		Dim newDocCursor As Object
+		&apos;MsgBox &quot;Символы в шрифте &quot;&amp; fontName &amp;Chr(10)&amp;resultString
-		Dim newDoc As Object
+		Dim FileName As String		&apos;Holds the file name
-		newDoc = starDesktop.loadComponentFromURL(&quot;private:factory/swriter&quot;, &quot;_blank&quot;, 0, Array())
+		Dim n As Integer		&apos;Holds the file number
-        newDocCursor = newDoc.getCurrentController().getViewCursor()
+		Dim f As Integer		&apos;Index variable
-        newDocCursor.String = getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot; &amp; fontName
+		Dim s As String		&apos;Temporary string for input
-		newDocCursor.ParaStyleName = &quot;Heading 1&quot;
+		Dim fileaccess As Object
-		newDocCursor.collapseToEnd()
+		Dim outtextstream As Object
-		newDocCursor.Text.insertControlCharacter(newDocCursor.End,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False)
+		Dim out As Object
-		For i = LBound(resultArray) To UBound(resultArray)
+		
-			newDocCursor.ParaStyleName = &quot;Text body&quot;
+		Dim sTemp$
-			newDocCursor.String = &quot;https://unicode-table.com/ru/&quot; &amp; resultArray(i)       
+		GlobalScope.BasicLibraries.loadLibrary(&quot;Tools&quot;)
-			newDocCursor.HyperLinkURL = &quot;https://unicode-table.com/ru/&quot; &amp; resultArray(i)
+		path=DirectoryNameoutofPath(ThisComponent.getURL(),&quot;/&quot;)
-			newDocCursor.collapseToEnd()
+		FileName = path &amp; &quot;/symbolsInFont&quot; &amp; fontName &amp; &quot;.html&quot;
-			newDocCursor.String = &quot; &quot; &amp; getTranslation(&quot;charFirstPage&quot;) &amp; &quot; &quot; &amp; pageNums(i)
+		&apos;n = FreeFile()		&apos;Next free file number
-			newDocCursor.collapseToEnd()
+		&apos;Open FileName For Output Access Read Write As #n		&apos;Open for read/write
-			newDocCursor.Text.insertControlCharacter(newDocCursor.End,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False)
+        fileaccess = createUnoService (&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
-		Next i
+        outtextstream = createUnoService (&quot;com.sun.star.io.TextOutputStream&quot;)
-		Exit Sub
+        outtextstream.setEncoding( &quot;UTF-8&quot; )
+        out = fileaccess.openFileWrite( FileName )
+        outtextstream.setOutputStream( out )
+        outtextstream.writeString(  &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp; &quot;&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;h2&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp;&quot;:&lt;/h2&gt;&quot;&amp;resultString &amp;&quot;&lt;/body&gt;&lt;/html&gt;&quot; )
+        outtextstream.closeOutput()
+		getCharsInFont = FileName
+		Exit Function
 
 	Else
 		MsgBox getTranslation(&quot;symbolsInFontNotFound1&quot;) &amp; &quot; &quot; &amp; fontName &amp; &quot; &quot; &amp; getTranslation(&quot;symbolsInFontNotFound2&quot;)
+		getCharsInFont = &quot;&quot;
+		Exit Function
 	EndIf
-End Sub
+End Function
 
 
 Function findBadCharacters() As Boolean
 	Dim founds As Object
-	Dim foundObjects() As Object
+	founds = findInDoc(&quot;[\uE000-\uF8FF]&quot;)
-	founds = findInDoc(&quot;[\uE000-\uF8FF]+&quot;)
 	findBadCharacters = false
 	If founds.count &lt;&gt; 0 Then
-		&apos;MsgBox getTranslation(&quot;validationBadSymbolsNotification&quot;)
+		MsgBox getTranslation(&quot;validationBadSymbolsNotification&quot;)
-		foundObjects = convertXIndexAccessToArray(founds)
+		startNavigatorDialog(getTranslation(&quot;badSymbols&quot;),founds)
-		startNavigatorDialog(getTranslation(&quot;badSymbols&quot;),foundObjects)
 		findBadCharacters = true
 	EndIf
 	
@@ -1040,7 +966,6 @@ End Function
 Function findColoredBackgroundInDoc() As Boolean
 	Dim founds As Object
 	Dim sDesc As Object
-	Dim foundObjects() As Object
 	Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue
 	SrchAttributes(0).Name = &quot;CharBackTransparent&quot;
 	SrchAttributes(0).Value = False
@@ -1054,27 +979,30 @@ Function findColoredBackgroundInDoc() As Boolean
 	findColoredBackgroundInDoc = false
 	If founds.count &lt;&gt; 0 Then
 		MsgBox getTranslation(&quot;foundColoredTextMessage&quot;)
-		foundObjects = convertXIndexAccessToArray(founds)
+		startNavigatorDialog(getTranslation(&quot;coloredTextDescription&quot;),founds)
-		startNavigatorDialog(getTranslation(&quot;coloredTextDescription&quot;),foundObjects)
 		findColoredBackgroundInDoc = true
 	EndIf
 	
 End Function
 
 
-Sub startNavigatorDialog(objectsDescription As String,foundObjects() As Object)
+Sub startNavigatorDialog(objectsDescription As String,founds As Object)
 	Dim dialog As Object
 	Dim leftImageURL As String
 	Dim rightImageURL As String
 	Dim curNum As Long
 	Dim maxNum As Long
 	Dim found As Object
+	Dim oViewCursor As Object
+	&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
+	&apos;Mri founds
+	oViewCursor = ThisComponent.CurrentController.getViewCursor()
 	waitingForDialog = true
-	maxNum = UBound(foundObjects)
+	maxNum = founds.count - 1
 	dialog = notModalDialog(&quot;Navigator&quot;)
 	dialog.getControl(&quot;found&quot;).SetText(getTranslation(&quot;navigatorFound&quot;) &amp; CStr(maxNum+1))
 	curNum = 0
-	found = foundObjects(curNum)
+	found = founds.getByIndex(curNum)
 	dialog.getControl(&quot;current&quot;).SetText(CStr(curNum+1))
 	
 	dialog.getControl(&quot;description&quot;).SetText(objectsDescription)
@@ -1087,24 +1015,22 @@ Sub startNavigatorDialog(objectsDescription As String,foundObjects() As Object)
 	dialog.getControl(&quot;next&quot;).model.imageURL = rightImageURL
 	&apos;dialog.getControl(&quot;next&quot;).model.ScaleMode = 2
 	dialog.setvisible(true)
-	&apos;select first found &apos;
+	oViewCursor.goToRange(found,false)
-	&apos;not using view cursor as if shape was prevously selected runtime exception will appear
-	Thiscomponent.CurrentController.select(found)
 	Do While waitingForDialog
 		If dialog.getControl(&quot;close&quot;).model.state = 1 then 
 			exit Do
 		EndIf
 		If dialog.getControl(&quot;prev&quot;).model.state = 1 then 
 			curNum = getPrevFound(curNum, maxNum)
-			found = foundObjects(curNum)
+			found = founds.getByIndex(curNum)
-			Thiscomponent.CurrentController.select(found)
+			oViewCursor.goToRange(found,false)
 			dialog.getControl(&quot;current&quot;).SetText(CStr(curNum+1))
 			dialog.getControl(&quot;prev&quot;).model.state = 0 
 		EndIf
 		If dialog.getControl(&quot;next&quot;).model.state = 1 then 
 			curNum = getNextFound(curNum, maxNum)
-			found = foundObjects(curNum)
+			found = founds.getByIndex(curNum)
-			Thiscomponent.CurrentController.select(found)
+			oViewCursor.goToRange(found,false)
 			dialog.getControl(&quot;current&quot;).SetText(CStr(curNum+1))
 			dialog.getControl(&quot;next&quot;).model.state = 0
 		EndIf
@@ -1114,18 +1040,6 @@ Sub startNavigatorDialog(objectsDescription As String,foundObjects() As Object)
 	dialog.dispose
 End Sub
 
-Function convertXIndexAccessToArray(founds As Object) As Variant
-	Dim i As Integer
-	Dim maxNum As Integer
-	Dim arrayOfObjects() As Object
-	maxNum = founds.count - 1
-	For i = 0 To maxNum
-		addToArray(arrayOfObjects,founds.getByIndex(i))
-	Next i
-	convertXIndexAccessToArray = arrayOfObjects
-End Function
-
-
 Function getNextFound(curNum As Long, max As Long) As Long
 	If curNum &lt; max Then
 		getNextFound = curNum + 1
@@ -1185,6 +1099,7 @@ sub openReport(fileName As String)
 	End If
 End Sub
 
+
 Function isInDoc(searchString As String) As Boolean
 	Dim founds As Variant
 	founds = findInDoc(searchString)

Redaction/dialog.xlb

@@ -7,5 +7,4 @@
  <library:element library:name="StartQuietCleaning"/>
  <library:element library:name="ChooseFontname"/>
  <library:element library:name="Navigator"/>
- <library:element library:name="SelectTemplate"/>
 </library:library>

Templates.xcu

@@ -1,12 +0,0 @@
-<?xml version='1.0' encoding='UTF-8'?>
-<oor:component-data oor:package="org.openoffice.Office" oor:name="Paths" xmlns:install="http://openoffice.org/2004/installation" xmlns:oor="http://openoffice.org/2001/registry" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
-	<node oor:name="Paths">
-		<node oor:name="Template" oor:op="fuse">
-			<node oor:name="InternalPaths">
-				<node oor:name="%origin%/templates" oor:op="fuse"/>
-			</node>
-		</node>
-	</node>
-</oor:component-data>
-
-

build.gradle

@@ -1,8 +1,6 @@
-apply plugin: 'java'
 task oxt(type: Zip) {
    dependsOn = [ 'setVersion','setVersionInBasicCode' ]
-   archiveFileName = 'cleanAndValidate.oxt'
+   archiveName 'cleanAndValidate.oxt'
-   destinationDirectory = file("./")
    from './'
    include '*'
    include '*/*'

cleanandvalidate.update.xml

@@ -2,9 +2,9 @@
 <description xmlns="http://openoffice.org/extensions/update/2006" 
              xmlns:xlink="http://www.w3.org/1999/xlink">
     <identifier value="pro.litvinovg.Redaction"/>
-    <version value="0.10.11" />
+    <version value="0.9.29" />
     <update-download>
-        <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/uploads/330066acb026243a8a0eab002de1a1f3/cleanAndValidate.oxt" />
+        <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/uploads/1ba712c0e94635db108f64f2d8ab9219/cleanAndValidate.oxt" />
     </update-download>
     <release-notes>
         <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/-/raw/master/releasenotes.txt" lang="en" />

description.xml

@@ -5,28 +5,13 @@
     
     
     
-    
-    
-    
-    
-    
     <identifier value="pro.litvinovg.Redaction"/>
                       
     
     
     
     
-    
+    <version value="0.9.30"/>
-    
-    
-    
-    
-    <version value="0.10.11"/>
-                                          
-    
-    
-    
-    
                       
     
     
@@ -38,286 +23,156 @@
     
     
     
-    
-    
-    
-    
-    
     <display-name>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <name lang="ru">Чистка и проверка документов для издания в html и epub с сохранением пагинации</name>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </display-name>
                       
     
     
     
     
-    
-    
-    
-    
-    
     <registration>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <simple-license accept-by="admin" suppress-if-required="true" suppress-on-update="true">
                                                                   
             
             
             
             
-            
-            
-            
-            
-            
             <license-text lang="en" xlink:href="license_en.txt"/>
                                                                   
             
             
             
             
-            
-            
-            
-            
-            
             <license-text lang="ru" xlink:href="license_ru.txt"/>
                                                                 
         
         
         
         
-        
-        
-        
-        
-        
         </simple-license>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </registration>
                       
     
     
     
     
-    
-    
-    
-    
-    
     <dependencies>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <OpenOffice.org-minimal-version dep:name="OpenOffice.org, LibreOffice 4.1 or later" value="4.1"/>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </dependencies>
                       
     
     
     
     
-    
-    
-    
-    
-    
     <update-information>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/-/raw/master/cleanandvalidate.update.xml"/>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </update-information>
                       
     
     
     
     
-    
-    
-    
-    
-    
     <publisher>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <name lang="en" xlink:href="mailto:public@litvinovg.pro">Georgy Litvinov</name>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </publisher>
                       
     
     
     
     
-    
-    
-    
-    
-    
     <release-notes>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <src lang="en" xlink:href="releasenotes.txt"/>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </release-notes>
                       
     
     
     
     
-    
-    
-    
-    
-    
     <extension-description>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <src lang="ru" xlink:href="description/description_ru.txt"/>
                                             
         
         
         
         
-        
-        
-        
-        
-        
         <src lang="en" xlink:href="description/description_en.txt"/>
                                           
     
     
     
     
-    
-    
-    
-    
-    
     </extension-description>
                       
   
@@ -325,39 +180,19 @@
     
     
     
-    
-    
-    
-    
-    
     <icon>
                                             
         
         
         
         
+        <default xlink:href="icons/addon_icon.png"/>
                                             
         
         
         
         
-        <default xlink:href="icons/addon_icon.svg"/>
+        <high-contrast xlink:href="icons/addon_icon.png"/>
-                                                                                    
-        
-        
-        
-        
-        
-        
-        
-        
-        
-        <high-contrast xlink:href="icons/addon_icon.svg"/>
-                                                                                  
-    
-    
-    
-    
                                           
     
     
@@ -369,9 +204,4 @@
 
 
 
-
-
-
-
-
 </description>

gradle.properties

@@ -1 +1 @@
-version=0.10.11
+version=0.9.32

icons/addon_icon.svg

@@ -1,218 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<!-- Created with Inkscape (http://www.inkscape.org/) -->
-
-<svg
-   width="67.73333mm"
-   height="67.73333mm"
-   viewBox="0 0 67.73333 67.73333"
-   version="1.1"
-   id="svg2491"
-   inkscape:version="1.1 (c68e22c387, 2021-05-23)"
-   sodipodi:docname="addon_icon.svg"
-   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
-   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
-   xmlns="http://www.w3.org/2000/svg"
-   xmlns:svg="http://www.w3.org/2000/svg">
-  <sodipodi:namedview
-     id="namedview2493"
-     pagecolor="#ffffff"
-     bordercolor="#666666"
-     borderopacity="1.0"
-     inkscape:pageshadow="2"
-     inkscape:pageopacity="0.0"
-     inkscape:pagecheckerboard="0"
-     inkscape:document-units="mm"
-     showgrid="false"
-     inkscape:zoom="1.7097423"
-     inkscape:cx="46.498235"
-     inkscape:cy="81.883685"
-     inkscape:window-width="1920"
-     inkscape:window-height="992"
-     inkscape:window-x="0"
-     inkscape:window-y="25"
-     inkscape:window-maximized="1"
-     inkscape:current-layer="layer1"
-     inkscape:snap-bbox="true" />
-  <defs
-     id="defs2488" />
-  <g
-     inkscape:label="Layer 1"
-     inkscape:groupmode="layer"
-     id="layer1"
-     transform="translate(-124.58785,-103.92953)">
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:none;fill-opacity:1;stroke:none;stroke-width:1.256;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect982-6-3"
-       width="67.73333"
-       height="67.73333"
-       x="124.58785"
-       y="103.92953" />
-    <path
-       id="rect847-2-7"
-       style="fill:none;stroke:#000000;stroke-width:2.3;stroke-miterlimit:4;stroke-dasharray:none;paint-order:stroke markers fill;stop-color:#000000"
-       d="m 174.05313,111.06933 h 3.30422 c 1.64718,0 2.97325,1.32607 2.97325,2.97325 v 52.56149 c 0,1.64718 -1.32607,2.97325 -2.97325,2.97325 h -39.79621 c -1.64718,0 -2.97325,-1.32607 -2.97325,-2.97325 v -52.56149 c 0,-1.64718 1.32607,-2.97325 2.97325,-2.97325 h 3.40135"
-       sodipodi:nodetypes="cssssssssc" />
-    <path
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:2.15297;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       d="m 143.595,108.66362 c 0,0 8.43592,-0.0564 9.54623,-0.0201 0.98089,0.032 -0.31228,-1.88491 0.52045,-2.93611 0.83273,-1.05121 7.02607,-0.84307 7.82409,0.20813 0.79803,1.05121 -0.59786,2.79113 0.83273,2.79113 1.56136,0 9.23834,-0.0144 9.23834,-0.0144 0,0 7.11288,5.6185 4.75349,5.58225 -2.3594,-0.0362 -34.61591,0.12319 -37.35696,0.12319 -2.74106,0 4.64163,-5.73404 4.64163,-5.73404 z"
-       id="path849-4-4"
-       inkscape:connector-curvature="0"
-       sodipodi:nodetypes="cszzsczzc" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.955;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-8-9"
-       width="25.510099"
-       height="1.667425"
-       x="150.37207"
-       y="122.91363" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       y="126.75371"
-       x="150.33884"
-       height="1.667425"
-       width="23.316961"
-       id="rect851-8-3-8-3-3-30-4"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.91277;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       y="134.61259"
-       x="150.4086"
-       height="1.667425"
-       width="23.055033"
-       id="rect851-8-3-8-3-38-1-2"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.908;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.875376;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-3-0-78-9"
-       width="21.445341"
-       height="1.667425"
-       x="150.37537"
-       y="138.45267" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.907172;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-38-4-9-3"
-       width="23.031563"
-       height="1.667425"
-       x="150.27731"
-       y="146.49648" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       y="158.23125"
-       x="150.21875"
-       height="1.667425"
-       width="20.915848"
-       id="rect851-8-3-8-3-38-4-6-5-2"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.864499;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.870552;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-3-0-7-8-4-4"
-       width="21.209816"
-       height="1.667425"
-       x="150.27002"
-       y="162.0713" />
-    <path
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       sodipodi:nodetypes="ccc"
-       inkscape:connector-curvature="0"
-       id="path1299-5"
-       d="m 138.85426,125.48045 2.40288,3.17924 5.00275,-6.17076"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#ff0000;stroke-width:2.5;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />
-    <path
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       id="path1339-4"
-       fill="#455A64"
-       d="m 188.68913,118.31403 -5.08071,-2.32201 -14.12346,43.13492 -0.0211,0.0643 5.10355,1.9512 13.24168,-40.44187 0.85059,0.3252 -5.41705,16.5444 0.54964,1.24433 5.71801,-17.46354 c 0.33224,-1.01472 -0.0359,-2.3748 -0.82118,-3.03698 z"
-       inkscape:connector-curvature="0"
-       style="fill:#000000;fill-opacity:1;stroke-width:0.937911" />
-    <polygon
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       transform="matrix(0.85059099,0.3251984,-0.3009474,0.91913342,148.53775,97.412814)"
-       id="polygon1341-3"
-       points="43,52 49,52 46,61 "
-       fill="#455A64"
-       style="fill:#000000;fill-opacity:1" />
-    <polygon
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       transform="matrix(0.85059099,0.3251984,-0.3009474,0.91913342,148.53775,97.412814)"
-       id="polygon1343-2"
-       points="44,52 45,52 46,61 "
-       fill="#999999" />
-    <rect
-       y="150.20065"
-       x="150.27731"
-       height="1.667425"
-       width="23.031563"
-       id="rect851-8-3-8-3-38-4-9-3-0"
-       style="fill:#000000;fill-opacity:1;stroke:#000000;stroke-width:0.907172;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       inkscape:export-xdpi="96.000008"
-       inkscape:export-ydpi="96.000008" />
-    <polygon
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       transform="matrix(0.85059099,0.3251984,-0.3009474,0.91913342,148.53775,97.412814)"
-       id="polygon1345-2"
-       points="49,52 49,28 49,8 49,5.34 43,4 43,51.93 43,52 "
-       fill="#ff7043" />
-    <path
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#ff0000;stroke-width:2.5;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       d="m 139.14199,160.1588 2.40288,3.17925 5.00277,-6.17076"
-       id="path1299-8-4"
-       inkscape:connector-curvature="0"
-       sodipodi:nodetypes="ccc" />
-    <path
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       sodipodi:nodetypes="ccc"
-       inkscape:connector-curvature="0"
-       id="path1299-8-1-1"
-       d="m 138.93861,136.75912 2.40288,3.17925 5.00277,-6.17077"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#00a319;stroke-width:2.5;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />
-    <path
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#00a319;stroke-width:2.5;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       d="m 139.05033,149.51085 2.40288,3.17925 5.00277,-6.17076"
-       id="path1299-8-1-9-6"
-       inkscape:connector-curvature="0"
-       sodipodi:nodetypes="ccc" />
-    <polygon
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       transform="matrix(0.85059099,0.3251984,-0.3009474,0.91913342,148.53775,97.412814)"
-       id="polygon1347-4"
-       points="45,52 45,4.447 44,4.223 44,52 "
-       fill="#ff8a65" />
-    <rect
-       inkscape:export-ydpi="96.000008"
-       inkscape:export-xdpi="96.000008"
-       transform="matrix(0.93406194,0.35711104,-0.31116989,0.9503543,0,0)"
-       id="rect1349-7"
-       y="62.168976"
-       x="210.8367"
-       width="5.4638195"
-       height="0.96714818"
-       fill="#455A64"
-       style="fill:#000000;fill-opacity:1;stroke-width:0.938467" />
-  </g>
-</svg>

icons/clean.svg

@@ -1,113 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<!-- Created with Inkscape (http://www.inkscape.org/) -->
-
-<svg
-   width="67.73333mm"
-   height="67.73333mm"
-   viewBox="0 0 67.73333 67.73333"
-   version="1.1"
-   id="svg2491"
-   inkscape:version="1.1 (c68e22c387, 2021-05-23)"
-   sodipodi:docname="clean.svg"
-   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
-   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
-   xmlns="http://www.w3.org/2000/svg"
-   xmlns:svg="http://www.w3.org/2000/svg">
-  <sodipodi:namedview
-     id="namedview2493"
-     pagecolor="#ffffff"
-     bordercolor="#666666"
-     borderopacity="1.0"
-     inkscape:pageshadow="2"
-     inkscape:pageopacity="0.0"
-     inkscape:pagecheckerboard="0"
-     inkscape:document-units="mm"
-     showgrid="false"
-     inkscape:zoom="2.4172662"
-     inkscape:cx="91.21875"
-     inkscape:cy="129.07143"
-     inkscape:window-width="1920"
-     inkscape:window-height="992"
-     inkscape:window-x="0"
-     inkscape:window-y="25"
-     inkscape:window-maximized="1"
-     inkscape:current-layer="layer1" />
-  <defs
-     id="defs2488" />
-  <g
-     inkscape:label="Layer 1"
-     inkscape:groupmode="layer"
-     id="layer1"
-     transform="translate(-120.95491,-106.68899)">
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       y="106.68899"
-       x="120.95491"
-       height="67.73333"
-       width="67.73333"
-       id="rect982-3"
-       style="fill:none;fill-opacity:1;stroke:none;stroke-width:1.256;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000" />
-    <path
-       id="rect847-0-1-7"
-       style="fill:none;stroke:#000000;stroke-width:2.5;stroke-miterlimit:4;stroke-dasharray:none;paint-order:stroke markers fill;stop-color:#000000"
-       d="m 168.8468,113.40557 h 3.593 c 1.60065,0 2.88926,1.28861 2.88926,2.88926 v 29.05344 m -22.83699,24.91257 h -23.15672 c -1.60066,0 -2.88927,-1.28861 -2.88927,-2.88926 v -51.07675 c 0,-1.60065 1.28861,-2.88926 2.88927,-2.88926 h 3.79406"
-       sodipodi:nodetypes="cssccssssc" />
-    <rect
-       y="135.81468"
-       x="131.28925"
-       height="5.8349214"
-       width="38.979149"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-68"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.20769;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       inkscape:export-xdpi="96.000015"
-       inkscape:export-ydpi="96.000015" />
-    <path
-       sodipodi:nodetypes="cszzsczzc"
-       inkscape:connector-curvature="0"
-       id="path849-6-6-9"
-       d="m 135.63756,111.55797 c 0,0 9.22154,-0.0555 10.43524,-0.0198 1.07225,0.0315 -0.34135,-1.85587 0.56893,-2.89087 0.91027,-1.03501 7.68039,-0.83008 8.55274,0.20492 0.87235,1.03501 -0.65354,2.74812 0.91028,2.74812 1.70677,0 10.0987,-0.0142 10.0987,-0.0142 0,0 7.77528,5.53192 5.19616,5.49623 -2.57912,-0.0357 -37.83963,0.1213 -40.83596,0.1213 -2.99634,0 5.07391,-5.64568 5.07391,-5.64568 z"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:2.5;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       inkscape:export-xdpi="96.000015"
-       inkscape:export-ydpi="96.000015" />
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.20769;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-6-9"
-       width="38.979149"
-       height="5.8349214"
-       x="131.18256"
-       y="147.67714" />
-    <path
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-6-4-7"
-       style="stroke-width:2.20769;paint-order:stroke markers fill;stop-color:#000000"
-       d="m 131.14584,159.24664 23.89289,0 -1.22168,5.83492 -22.67121,0 z"
-       sodipodi:nodetypes="ccccc" />
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.20769;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-5"
-       width="38.979149"
-       height="5.8349214"
-       x="131.21593"
-       y="124.478" />
-    <path
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       sodipodi:nodetypes="ccccccccccccczcc"
-       inkscape:connector-curvature="0"
-       id="path1016-3"
-       d="m 156.84912,152.8902 c 0,0 -4.64317,17.25076 -4.79965,17.91698 0.22379,1.03041 2.12987,1.1969 3.07746,-0.0513 0.99308,1.70103 2.66154,0.69791 3.02532,0 0.5362,1.22214 2.35102,1.3643 3.02531,0.10249 0.20864,1.33245 1.92993,1.3837 2.86882,0 0.29334,1.4372 2.27544,0.85843 2.50371,-0.0513 1.64759,1.8746 2.72183,0.29919 2.97315,0.15374 0.15648,0.92247 2.13858,1.33245 2.71234,-0.20499 0.76572,1.46441 2.15627,1.27169 2.81667,0.20499 1.4556,1.48105 2.64821,0.56314 2.92099,-0.10249 1.52216,1.64931 2.74807,0.56617 2.86883,-0.20499 0.64839,1.35445 2.56158,1.63022 2.76451,-0.0513 0.15648,0.46123 2.87947,1.96442 2.81666,-0.0512 -0.0628,-2.01568 -4.26345,-17.38961 -4.26345,-17.38961 z"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />
-    <path
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       sodipodi:nodetypes="czzccccccc"
-       inkscape:connector-curvature="0"
-       id="path1014-4"
-       d="m 167.27385,140.09677 c 0,0 -0.11785,-4.0209 -0.0124,-8.12606 0.10542,-4.10517 4.92663,-3.61493 4.7746,0.104 -0.15202,3.71893 -0.0937,7.91956 -0.0937,7.91956 1.94457,0.4322 2.04458,2.83951 2.85658,5.80684 4.0456,1.51275 6.03838,2.73984 7.21754,7.17762 l -25.00864,-0.10637 c 1.11511,-2.50829 1.69674,-5.41689 7.35684,-7.16064 0.52807,-1.53828 0.50796,-5.49057 2.90923,-5.61495 z"
-       style="fill:#ff0000;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />
-  </g>
-</svg>

icons/report.svg

@@ -1,101 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<!-- Created with Inkscape (http://www.inkscape.org/) -->
-
-<svg
-   width="67.73333mm"
-   height="67.73333mm"
-   viewBox="0 0 67.73333 67.73333"
-   version="1.1"
-   id="svg2491"
-   inkscape:version="1.1 (c68e22c387, 2021-05-23)"
-   sodipodi:docname="report.svg"
-   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
-   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
-   xmlns="http://www.w3.org/2000/svg"
-   xmlns:svg="http://www.w3.org/2000/svg">
-  <sodipodi:namedview
-     id="namedview2493"
-     pagecolor="#ffffff"
-     bordercolor="#666666"
-     borderopacity="1.0"
-     inkscape:pageshadow="2"
-     inkscape:pageopacity="0.0"
-     inkscape:pagecheckerboard="0"
-     inkscape:document-units="mm"
-     showgrid="false"
-     inkscape:zoom="1.436055"
-     inkscape:cx="80.428674"
-     inkscape:cy="68.242512"
-     inkscape:window-width="1920"
-     inkscape:window-height="992"
-     inkscape:window-x="0"
-     inkscape:window-y="25"
-     inkscape:window-maximized="1"
-     inkscape:current-layer="layer1" />
-  <defs
-     id="defs2488" />
-  <g
-     inkscape:label="Layer 1"
-     inkscape:groupmode="layer"
-     id="layer1"
-     transform="translate(-120.95491,-106.68899)">
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       y="106.68899"
-       x="120.95491"
-       height="67.73333"
-       width="67.73333"
-       id="rect982-3"
-       style="fill:none;fill-opacity:1;stroke:none;stroke-width:1.256;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000" />
-    <path
-       id="rect847-0-1-3"
-       style="fill:none;stroke:#000000;stroke-width:2.48942;stroke-miterlimit:4;stroke-dasharray:none;paint-order:stroke markers fill;stop-color:#000000"
-       d="m 173.02817,114.19 h 3.71042 c 1.63134,0 2.94465,1.30222 2.94465,2.91977 v 51.61604 c 0,1.61756 -1.31331,2.91977 -2.94465,2.91977 h -42.99368 c -1.63133,0 -2.94465,-1.30221 -2.94465,-2.91977 v -51.61604 c 0,-1.61755 1.31332,-2.91977 2.94465,-2.91977 h 3.25326"
-       sodipodi:nodetypes="cssssssssc" />
-    <rect
-       y="136.53908"
-       x="135.34975"
-       height="5.9467759"
-       width="39.835781"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-8"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.25311;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       inkscape:export-xdpi="95.562637"
-       inkscape:export-ydpi="95.562637" />
-    <path
-       sodipodi:nodetypes="cszzsczzc"
-       inkscape:connector-curvature="0"
-       id="path849-6-6-5"
-       d="m 139.99174,112.01511 c 0,0 9.22154,-0.0566 10.43524,-0.0202 1.07225,0.0321 -0.34135,-1.89145 0.56892,-2.9463 0.91028,-1.05484 7.6804,-0.84598 8.55275,0.20886 0.87235,1.05485 -0.65354,2.8008 0.91028,2.8008 1.70677,0 10.09869,-0.0145 10.09869,-0.0145 0,0 7.77529,5.63796 5.19617,5.60158 -2.57912,-0.0364 -37.83963,0.12362 -40.83596,0.12362 -2.99633,0 5.07391,-5.7539 5.07391,-5.7539 z"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:2.5;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       inkscape:export-xdpi="95.562637"
-       inkscape:export-ydpi="95.562637" />
-    <rect
-       inkscape:export-ydpi="95.562637"
-       inkscape:export-xdpi="95.562637"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.25311;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-6-2"
-       width="39.835781"
-       height="5.9467759"
-       x="135.24069"
-       y="148.62894" />
-    <rect
-       y="160.42023"
-       x="135.2032"
-       height="5.9467759"
-       width="39.835781"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-6-4-22"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.25311;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       inkscape:export-xdpi="95.562637"
-       inkscape:export-ydpi="95.562637" />
-    <rect
-       inkscape:export-ydpi="95.562637"
-       inkscape:export-xdpi="95.562637"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.25311;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-70"
-       width="39.835785"
-       height="5.9467759"
-       x="135.27483"
-       y="124.98509" />
-  </g>
-</svg>

icons/validate.svg

@@ -1,125 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<!-- Created with Inkscape (http://www.inkscape.org/) -->
-
-<svg
-   width="67.73333mm"
-   height="67.73333mm"
-   viewBox="0 0 67.73333 67.73333"
-   version="1.1"
-   id="svg2491"
-   inkscape:version="1.1 (c68e22c387, 2021-05-23)"
-   sodipodi:docname="validate.svg"
-   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
-   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
-   xmlns="http://www.w3.org/2000/svg"
-   xmlns:svg="http://www.w3.org/2000/svg">
-  <sodipodi:namedview
-     id="namedview2493"
-     pagecolor="#ffffff"
-     bordercolor="#666666"
-     borderopacity="1.0"
-     inkscape:pageshadow="2"
-     inkscape:pageopacity="0.0"
-     inkscape:pagecheckerboard="0"
-     inkscape:document-units="mm"
-     showgrid="false"
-     inkscape:zoom="0.7180275"
-     inkscape:cx="244.41961"
-     inkscape:cy="206.12024"
-     inkscape:window-width="1920"
-     inkscape:window-height="992"
-     inkscape:window-x="0"
-     inkscape:window-y="25"
-     inkscape:window-maximized="1"
-     inkscape:current-layer="layer1" />
-  <defs
-     id="defs2488" />
-  <g
-     inkscape:label="Layer 1"
-     inkscape:groupmode="layer"
-     id="layer1"
-     transform="translate(-124.61893,-103.22372)">
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       style="fill:none;fill-opacity:1;stroke:none;stroke-width:1.256;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect982-9-8"
-       width="67.73333"
-       height="67.73333"
-       x="124.61893"
-       y="103.22372" />
-    <path
-       id="rect847-0-1"
-       style="fill:none;stroke:#000000;stroke-width:2.5;paint-order:stroke markers fill;stop-color:#000000"
-       d="m 169.66551,109.92162 h 4.14995 c 1.63133,0 2.94465,1.31332 2.94465,2.94465 v 52.05588 c 0,1.63133 -1.31332,2.94465 -2.94465,2.94465 h -42.99368 c -1.63134,0 -2.94465,-1.31332 -2.94465,-2.94465 v -52.05588 c 0,-1.63133 1.31331,-2.94465 2.94465,-2.94465 h 4.52474"
-       sodipodi:nodetypes="cssssssssc" />
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.23676;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7"
-       width="39.25959"
-       height="5.9467759"
-       x="133.00279"
-       y="132.7603" />
-    <path
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       style="fill:none;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:2.5;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       d="m 137.06861,108.33894 c 0,0 9.22153,-0.0566 10.43524,-0.0202 1.07224,0.0321 -0.34136,-1.89145 0.56892,-2.94629 0.91028,-1.05485 7.6804,-0.84599 8.55275,0.20886 0.87235,1.05484 -0.65354,2.80079 0.91028,2.80079 1.70677,0 10.09869,-0.0145 10.09869,-0.0145 0,0 7.77529,5.63797 5.19617,5.60159 -2.57912,-0.0364 -37.83964,0.12363 -40.83597,0.12363 -2.99633,-1e-5 5.07392,-5.75391 5.07392,-5.75391 z"
-       id="path849-6-6"
-       inkscape:connector-curvature="0"
-       sodipodi:nodetypes="cszzsczzc" />
-    <rect
-       y="144.85016"
-       x="132.89534"
-       height="5.9467759"
-       width="39.25959"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-6"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.23676;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       inkscape:export-xdpi="96.000015"
-       inkscape:export-ydpi="96.000015" />
-    <rect
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.23676;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5-7-6-4"
-       width="39.25959"
-       height="5.9467759"
-       x="132.85837"
-       y="156.64145" />
-    <rect
-       y="121.20631"
-       x="132.92896"
-       height="5.9467759"
-       width="39.259594"
-       id="rect851-8-3-8-3-37-8-1-4-7-8-1-9-2-3-5"
-       style="fill:#000000;fill-opacity:1;stroke:none;stroke-width:2.23676;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       inkscape:export-xdpi="96.000015"
-       inkscape:export-ydpi="96.000015" />
-    <path
-       id="rect1186-4"
-       style="fill:#ffffff;fill-opacity:1;stroke:none;stroke-width:0.889025;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:stroke markers fill;stop-color:#000000"
-       d="m 160.26757,134.88947 h 22.27055 c 3.42763,0 6.18706,2.54612 6.18706,5.70879 v 20.67999 c 0,3.16267 0.40717,5.62643 -4.07613,5.63922 l -24.38148,0.0696 c -3.42761,0.01 -6.18705,-2.54612 -6.18705,-5.70879 V 140.5983 c 0,-3.16267 2.75943,-5.70879 6.18705,-5.70879 z"
-       inkscape:connector-curvature="0"
-       sodipodi:nodetypes="sssssssss"
-       inkscape:export-xdpi="96.000015"
-       inkscape:export-ydpi="96.000015" />
-    <path
-       inkscape:export-ydpi="96.000015"
-       inkscape:export-xdpi="96.000015"
-       sodipodi:nodetypes="cssssssc"
-       id="path1170-7"
-       d="m 188.50413,149.14281 v 14.92431 c 0,2.08279 -1.68738,3.77123 -3.76888,3.77123 h -26.38209 c -2.08149,0 -3.76887,-1.68844 -3.76887,-3.77123 v -26.39859 c 0,-2.08279 1.68738,-3.77122 3.76887,-3.77122 h 23.60203"
-       inkscape:connector-curvature="0"
-       style="fill:none;stroke:#000000;stroke-width:2.68422;stroke-linecap:round;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none" />
-    <path
-       id="polyline1168-0"
-       style="fill:none;stroke:#099c00;stroke-width:7.24438;stroke-linecap:square;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
-       d="m 162.58302,150.28058 8.58283,7.04191 15.43985,-17.93997"
-       inkscape:connector-curvature="0"
-       sodipodi:nodetypes="ccc"
-       inkscape:export-xdpi="96.000015"
-       inkscape:export-ydpi="96.000015" />
-  </g>
-</svg>

license_en.txt

@@ -1,6 +1,8 @@
 The author of this extension is:
     Georgy Litvinov (public@litvinovg.pro)
-Copyright 2021 redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, version 3 of the License.
+Copyright 2019.
+
+This library is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, version 3 of the License.
 
 This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.
 

license_ru.txt

@@ -1,6 +1,6 @@
 Автор расширения:
     Георгий Литвинов (public@litvinovg.pro)
-Copyright 2021.
+Copyright 2019.
 
 Это расширение является свободным программным обеспечением, вы можете распространять и/или модифицировать его в соответствии с лицензией GNU Lesser General Public License версии 3.0, опубликованной Free Software Foundation.
 

releasenotes.txt

@@ -1,5 +1,3 @@
-0.9.36 Added option to remove all colored text backgrounds in expert mode
-0.9.35 Validation reports improved
 0.9.21 Added option to reset chapters numbering. Enabled by default.
 0.9.5 "Remove fields" option added to advanced mode
 0.9.4 Added check for grouped draw elements in font report function

templates/groupuinames.xml

@@ -1,4 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<groupuinames:template-group-list xmlns:groupuinames="http://openoffice.org/2006/groupuinames">
-	<groupuinames:template-group groupuinames:name="articles" groupuinames:default-ui-name="Articles" />
-</groupuinames:template-group-list>