diff --git a/IPHRedaction/Clean.xba b/IPHRedaction/Clean.xba
index f583774..ec440be 100644
--- a/IPHRedaction/Clean.xba
+++ b/IPHRedaction/Clean.xba
@@ -41,6 +41,23 @@ Private Sub loadArticleStyles
     ThisComponent.StyleFamilies.loadStylesFromURL( filePath, aArgs() )
 End Sub
 
+Private Sub CreateCharacterStyle(sStyleName$, oProps())
+	Dim i%
+	Dim oFamilies
+	Dim oStyle
+	Dim oStyles
+	oFamilies = ThisComponent.StyleFamilies
+	oStyles = oFamilies.getByName("CharacterStyles")
+	If oStyles.HasByName(sStyleName) Then
+	  Exit Sub
+	End If
+	oStyle = ThisComponent.createInstance("com.sun.star.style.CharacterStyle")
+	For i=LBound(oProps) To UBound(oProps)
+	  oStyle.setPropertyValue(oProps(i).Name, oProps(i).Value)
+	Next
+	oStyles.insertByName(sStyleName, oStyle)
+End Sub
+
 Private Function CreateProperty( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
 	Dim oPropertyValue As New com.sun.star.beans.PropertyValue
 	If Not IsMissing( cName ) Then
diff --git a/redaction.oxt b/redaction.oxt
index 3b2056a..6cffbbc 100644
Binary files a/redaction.oxt and b/redaction.oxt differ