Added fix freq mistakes

IPHRedaction/Clean.xba

@@ -17,11 +17,65 @@
 	disposeAllBookmarks
 	fixTableWidth
 	fixDrawingAnchors
+	fixFrequentMistakes
 	loadArticleStyles
 	statusIndicator.end()
 	saveAndreload()
 End Sub
 
+Private Sub fixFrequentMistakes
+	Dim NBSP As String
+	Dim space As String
+	NBSP = " "
+	space = " "
+	'Не должно быть символов табуляции
+    AskAndReplace("\t","")
+    'Не должно быть подряд больше одного пробела
+    AskAndReplace("(?<=[:space:])[:space:]+","")
+	'Не должно быть ни одного пробела в начале абзацев
+    AskAndReplace("^[:space:]+","")
+    'Не должно быть пробелов в конце абзацев
+    AskAndReplace("[:space:]+$","")
+    'Не должно быть пустых абзацев
+    AskAndReplace("^$","")
+    'Не должно быть пробелов перед знаками пунктуации .,;:?!)]}»¡¿”‘’
+   	AskAndReplace("[:space:]+(?=[\.,;:?!\)\]\}»¡¿”‘’])","")
+	'Между словом том и цифрой должен быть неразрывный пробел, а не обычный
+	AskAndReplace("(?<=\b[тТ](ом|\.))\ (?=[:digit:])",NBSP)
+	'Между словом серия и цифрой должен быть неразрывный пробел, а не обычный
+	AskAndReplace("(?<=\b[сС](ерия|\.))\ +(?=[:digit:])",NBSP)
+	'Между словом часть и цифрой должен быть неразрывный пробел, а не обычный
+	AskAndReplace("(?<=\b[чЧ](асть|\.))\ +(?=[:digit:])",NBSP)
+	'Между числом и "г." должен быть неразрывный пробел, а не обычный
+	AskAndReplace("(?<=[0-9])[:space:]*г(?=\.)",NBSP & "г")
+	'Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
+	AskAndReplace("(?<=[:upper:]\.[:space:][:upper:]\.)\ (?=[:upper:][:lower:]+)",NBSP)
+	'Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
+	AskAndReplace("(?<=[:upper:][:lower:]{1,30})\ (?=[:upper:]\.[:space:][:upper:]\.)",NBSP)
+
+	'Не должно быть пробелов после скобок [({ и кавычек «„
+	AskAndReplace("(?<=[\(\[\{«„])[:space:]","")
+	'Между "и" и "т." должен быть неразрывный пробел, а не обычный
+    AskAndReplace("(?<=\bи)\ (?=т\.)",NBSP)
+   	'Между "т." и "е./н./д./п./к." должен быть неразрывный пробел, а не обычный
+    AskAndReplace("(?<=\bт)\.\ ?(?=[ендпк]\.)","." & NBSP)
+    
+   	'Между буквами среднее тире должно обрамляться пробелами
+	AskAndReplace("(?<=[:alpha:])–(?=[:alpha:])",NBSP & "–" & NBSP)
+	'Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире
+    AskAndReplace("(?<=[:alpha:][:space:])[-‒—](?=[:space:][:alpha:])","–")
+    'Между двумя цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть цифровым
+  	AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])","‒")
+ 	
+ 	'Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним
+	AskAndReplace("(?<=[MDCLXVI])(?:[:space:])?[-‒–—](?:[:space:])?(?=[MDCLXVI])","–")
+	
+	'Между буквой и угловой открывающейся скобкой должен быть пробел
+	AskAndReplace("(?<=[:alpha:])<(?=…>)",space & "<")
+	'Между угловой закрывающейся скобкой и буквой должен быть пробел
+	AskAndReplace("(?<=<…)>(?=[:alpha:])",">" & space)
+End Sub
+
 Private Sub loadArticleStyles
         Dim dispatcher as object
         Dim fileePath As String

IPHRedaction/Validation.xba

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markY
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markYX
 
 End Sub