Frequent mistakes search for any spaces in regexp

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 mark45
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark46
 
 End Sub
 
@@ -368,9 +368,9 @@ Private Sub fixFrequentMistakes
 	&apos;Между числом и &quot;г.&quot; должен быть неразрывный пробел, а не обычный
 	AskAndReplace(&quot;(?&lt;=[0-9])[:space:]*г(?=\.)&quot;,NBSP &amp; &quot;г&quot;)
 	&apos;Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
-	AskAndReplace(&quot;(?&lt;=[:upper:]\.[:space:][:upper:]\.)\ (?=[:upper:][:lower:]+)&quot;,NBSP)
+	AskAndReplace(&quot;(?&lt;=[:upper:]\.[:space:][:upper:]\.)[:space:](?=[:upper:][:lower:]+)&quot;,NBSP)
 	&apos;Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
-	AskAndReplace(&quot;(?&lt;=[:upper:][:lower:]{1,30})\ (?=[:upper:]\.[:space:][:upper:]\.)&quot;,NBSP)
+	AskAndReplace(&quot;(?&lt;=[:upper:][:lower:]{1,30})[:space:](?=[:upper:]\.[:space:][:upper:]\.)&quot;,NBSP)
 
 	&apos;Не должно быть пробелов после скобок [({ и кавычек «„
 	AskAndReplace(&quot;(?&lt;=[\(\[\{«„])[:space:]&quot;,&quot;&quot;)