diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index 4920839..79c2013 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark32 +Sub mark33 End Sub diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba index 35a9fd5..6830f4f 100644 --- a/Redaction/Validation.xba +++ b/Redaction/Validation.xba @@ -1,6 +1,6 @@ -Sub markZXZ +Sub markval1 End Sub @@ -201,17 +201,19 @@ Private Sub printNumberingSymbols(needExtendedInfo) If Len(excerpt) < exLength Then exLength = Len(excerpt) EndIf - tmp = "Уровень " & (j + 1) & " шрифт " & fontName & " символ " & fontChar & " (" & Hex(Asc(fontChar)) & ") "& Left(excerpt,exLength) & chr(10) - If Asc(fontChar) > 57344 AND Asc(fontChar) < 63743 Then - resultBad = resultBad & tmp - ElseIf fontName <> "IPH Astra Serif" _ - AND fontName <> "OpenSymbol" _ - AND fontName <> "IPH Lib Serif" _ - AND fontName <> "IPH Lib Sans" _ - AND fontName <> "Liberation Serif" _ - AND fontName <> "Liberation Sans" _ - AND needExtendedInfo Then - result = result & tmp + If fontChar <> "" Then + tmp = "Уровень " & (j + 1) & " шрифт " & fontName & " символ " & fontChar & " (" & Hex(Asc(fontChar)) & ") "& Left(excerpt,exLength) & chr(10) + If Asc(fontChar) > 57344 AND Asc(fontChar) < 63743 Then + resultBad = resultBad & tmp + ElseIf fontName <> "IPH Astra Serif" _ + AND fontName <> "OpenSymbol" _ + AND fontName <> "IPH Lib Serif" _ + AND fontName <> "IPH Lib Sans" _ + AND fontName <> "Liberation Serif" _ + AND fontName <> "Liberation Sans" _ + AND needExtendedInfo Then + result = result & tmp + EndIf EndIf EndIf EndIf diff --git a/description.xml b/description.xml index f43e5a0..c9855ef 100644 --- a/description.xml +++ b/description.xml @@ -3,7 +3,7 @@ xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> - + Cleaning and validation documents for publishing in html and epub with pagination