diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index 5620b00..865e39c 100644
--- a/Redaction/Clean.xba
+++ b/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 mark40
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark41
 
 End Sub
 
@@ -234,7 +234,7 @@ Private Sub unicodeSymbolsConversion
 	&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;[\u2100-\u214f\u0020-\u007f\u0080-\u00ff\u0400-\u04ff\u2000-\u206f\u0301\u0304\u0323\u032e\u0331\u0341\u035f\u02bb\u0100-\u017f]+&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
@@ -262,6 +262,25 @@ Private Sub unicodeSymbolsConversion
 	&apos;\u2200-\u22FF Mathematical operators
 	unicodeConversionEverywhere(&quot;[\u2200-\u22ff]+&quot;,RAtts)
 	
+	newFontName = &quot;Noto Serif CJK JP Regular&quot;
+	RAtts(0).Value = newFontName
+	RAtts(1).Value = newFontName
+	RAtts(2).Value = newFontName
+	&apos;\u2200-\u22FF CJK Unified Ideographs
+	&apos;3000—303F Символы и пунктуация ККЯ
+	
+	unicodeConversionEverywhere(&quot;[\u302b\uff00-\uffef]+&quot;,RAtts)
+	
+	newFontName = &quot;Noto Serif CJK SC Regular&quot;
+	RAtts(0).Value = newFontName
+	RAtts(1).Value = newFontName
+	RAtts(2).Value = newFontName
+	&apos;\u2200-\u22FF CJK Unified Ideographs
+	&apos;\u4e00—\u9fff Унифицированные идеограммы ККЯ
+	&apos;\u3400-\u4db7\u4e00—\u9ff1 Найдены в Noto Sans CJK SC
+	&apos;\u3000-\u302a\u302c-\u303f В Noto Sans CJK SC 
+	unicodeConversionEverywhere(&quot;[\u3000-\u302a\u302c-\u303f\u3400-\u4db7\u4e00-\u9ff1]+&quot;,RAtts)
+	
 End Sub
 
 Private Sub unicodeConversionEverywhere(searchPattern As String,rAtts)