Set default font when Search descriptor works incorrect

IPHRedaction/Clean.xba

@@ -110,6 +110,9 @@ Private Sub convertFontsToCharStyles
 	  founds = Thiscomponent.findFirst(SDesc)
 	  do while not isNull(founds)
 	    curFont = founds.CharFontName
+        If IsEmpty(curFont) Then
+            curFont = "IPH Astra Serif"
+        EndIf
 	    If curFont <> "IPH Astra Serif" AND curFont <> "" Then
 	        If Not DocHasCharStyle(oDoc,curFont) Then
 		        oProps() = Array(CreateProperty("CharFontName", curFont))
@@ -929,4 +932,4 @@ Private Function getStyleNames(oFamily,bLocalized as Boolean, _
 	Endif
 	xArray(iUB) = vNextElement
 End Sub
-</script:module>
+</script:module>