litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Set default font when Search descriptor works incorrect

Browse source
This commit is contained in:
Georgy Litvinov 2019-12-04 21:10:44 +03:00
parent c1e8e93b01
commit 1887103742
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
IPHRedaction/Clean.xba
View file

@ -110,6 +110,9 @@ Private Sub convertFontsToCharStyles
founds = Thiscomponent.findFirst(SDesc) founds = Thiscomponent.findFirst(SDesc)
do while not isNull(founds) do while not isNull(founds)
curFont = founds.CharFontName curFont = founds.CharFontName
If IsEmpty(curFont) Then
curFont = "IPH Astra Serif"
EndIf
If curFont <> "IPH Astra Serif" AND curFont <> "" Then If curFont <> "IPH Astra Serif" AND curFont <> "" Then
If Not DocHasCharStyle(oDoc,curFont) Then If Not DocHasCharStyle(oDoc,curFont) Then
oProps() = Array(CreateProperty("CharFontName", curFont)) oProps() = Array(CreateProperty("CharFontName", curFont))

2
description.xml
View file

@ -3,7 +3,7 @@
xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink"> xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.Redaction" /> <identifier value="pro.litvinovg.Redaction" />
<version value="0.3.0" /> <version value="0.3.1" />
<platform value="all" /> <platform value="all" />
<display-name> <display-name>
<name lang="en">Redaction for publishing in Institute of philosophy</name> <name lang="en">Redaction for publishing in Institute of philosophy</name>