diff --git a/IPHRedaction/Clean.xba b/IPHRedaction/Clean.xba index cb91cc0..de9b736 100644 --- a/IPHRedaction/Clean.xba +++ b/IPHRedaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark13 +Sub mark17 End Sub @@ -120,7 +120,7 @@ Private Sub unicodeSymbolsConversion 'Latin Extended A \u0100-\u017f '\u02bb Modifier Letter Turned Comma is in IPH Astra ' unicodeConversionEverywhere("[\u0020-\u007F]+",RAtts) - unicodeConversionEverywhere("[\u2100-\u214f,\u0020-\u007f,\u0080-\u00ff,\u0400-\u04ff,\u2000-\u206f,\u0301,\u0304,\u0323,\u032e,\u0331,\u035f,\u02bb,\u0100-\u017f]+",RAtts) + unicodeConversionEverywhere("[\u2100-\u214f\u0020-\u007f\u0080-\u00ff\u0400-\u04ff\u2000-\u206f\u0301\u0304\u0323\u032e\u0331\u035f\u02bb\u0100-\u017f]+",RAtts) 'Arabic Scheherazade 'Arabic Presentation Forms-A fb50-fdff 'Arabic Presentation Forms-B fe70-feff @@ -128,7 +128,7 @@ Private Sub unicodeSymbolsConversion RAtts(0).Value = newFontName RAtts(1).Value = newFontName RAtts(2).Value = newFontName - unicodeConversionEverywhere("[\u0600-\u06ff,\ufb50-\ufdff,\ufe70-\ufeff]+",RAtts) + unicodeConversionEverywhere("[\u0600-\u06ff\ufb50-\ufdff\ufe70-\ufeff]+",RAtts) 'Greek Tinos newFontName = "Tinos" @@ -137,7 +137,7 @@ Private Sub unicodeSymbolsConversion RAtts(2).Value = newFontName 'Greek and Coptic 0370—03FF 'Greek extended 1F00—1FFF - unicodeConversionEverywhere("[\u0370-\u03ff,\u1f00-\u1fff]+",RAtts) + unicodeConversionEverywhere("[\u0370-\u03ff\u1f00-\u1fff]+",RAtts) 'DejaVu Sans Mathematical operators @@ -1083,4 +1083,4 @@ Function getVersion getVersion=oProduct.getByName("ooSetupVersion") End Function - + \ No newline at end of file