Added remove unused styles option in advanced mode

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 mark26
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark27
 
 End Sub
 
@@ -47,17 +47,20 @@ Private Sub cleanAccordingTo(dialog)
 		statusIndicator.Start(&quot;Чистим ручное форматирование&quot;,100)	
 		cleanFormatting
 	EndIf
+	If dialog.getControl(&quot;removeUnusedStyles&quot;).state = 1 Then
+		removeUnusedStyles
+	EndIf
 	If dialog.getControl(&quot;removeLinks&quot;).state = 1 Then
  		statusIndicator.Start(&quot;Удаляем гиперссылки&quot;,100)	
 		removeHyperlinks
 	EndIf
 	If dialog.getControl(&quot;removeBookmarks&quot;).state = 1 Then
-	statusIndicator.Start(&quot;Удаляем закладки&quot;,100)	
+		statusIndicator.Start(&quot;Удаляем закладки&quot;,100)	
-	disposeAllBookmarks
+		disposeAllBookmarks
 	EndIf
 	If dialog.getControl(&quot;configTables&quot;).state = 1 Then
-	statusIndicator.Start(&quot;Настраиваем таблицы&quot;,100)	
+		statusIndicator.Start(&quot;Настраиваем таблицы&quot;,100)	
-	fixTableWidth
+		fixTableWidth
 	EndIf
 	If dialog.getControl(&quot;configAnchors&quot;).state = 1 Then
 		statusIndicator.Start(&quot;Настраиваем привязку изображений&quot;,100)	
@@ -102,6 +105,7 @@ Private Sub quietCleaning
     unicodeSymbolsConversion
    	statusIndicator.Start(&quot;Чистим ручное форматирование&quot;,100)	
 	cleanFormatting
+	removeUnusedStyles
    	statusIndicator.Start(&quot;Удаляем гиперссылки&quot;,100)	
 	removeHyperlinks
 	statusIndicator.Start(&quot;Удаляем закладки&quot;,100)	
@@ -611,7 +615,7 @@ Private Sub cleanFormatting
 	
 	resetFootnotesStyle
 	
-	removeUnusedStyles
+
 
 End Sub
 

Redaction/CleaningDialog.xdl

@@ -16,5 +16,6 @@
   <dlg:checkbox dlg:id="removePageStyles" dlg:tab-index="12" dlg:left="10" dlg:top="103" dlg:width="218" dlg:height="7" dlg:value="Удалить пользовательские стили страниц" dlg:checked="false"/>
   <dlg:checkbox dlg:id="loadStandardStyles" dlg:tab-index="13" dlg:left="10" dlg:top="114" dlg:width="218" dlg:height="7" dlg:value="Загрузить стили страниц из шаблона Статья.ott" dlg:checked="false"/>
   <dlg:checkbox dlg:id="symbolsConversion" dlg:tab-index="4" dlg:left="10" 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="10" dlg:top="124" dlg:width="218" dlg:height="7" dlg:value="Удалить неиспользуемые стили" dlg:checked="false"/>
  </dlg:bulletinboard>
 </dlg:window>