diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index cb4873d..14aa76a 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 mark73
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark74
 
 End Sub
 
@@ -314,7 +314,9 @@ Private Sub unicodeSymbolsConversion
 	RAtts(1).Value = newFontName
 	RAtts(2).Value = newFontName
 	&apos;\u2200-\u22FF Mathematical operators
-	unicodeConversionEverywhere(&quot;[\u2200-\u22ff]+&quot;,RAtts)
+	&apos;\u2630-\u2637 Trigrams
+	&apos;\u4DC0-\u4DFF Trigrams
+	unicodeConversionEverywhere(&quot;[\u2200-\u22ff\u2630-\u2637\u4DC0-\u4DFF]+&quot;,RAtts)
 	
 	newFontName = &quot;Noto Serif CJK JP&quot;
 	RAtts(0).Value = newFontName