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

Fix font report

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-26 11:21:47 +02:00
parent 435d010536
commit 291674982b
3 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Redaction/Validation.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval12
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval13
End Sub
@ -602,9 +602,10 @@ Function getODGFontNames() As Variant
elementCount = page.getCount()
For j = 0 To elementCount - 1
element = page.getByIndex(j)
elementText = element.getText()
enum1 = elementText.createEnumeration()
While enum1.hasMoreElements
If element.supportsService(&quot;com.sun.star.drawing.Text&quot;) Then
elementText = element.getText()
enum1 = elementText.createEnumeration()
While enum1.hasMoreElements
enum1Element = enum1.nextElement
If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
enum2 = enum1Element.createEnumeration
@ -618,7 +619,8 @@ Function getODGFontNames() As Variant
EndIf
Wend
EndIf
Wend
Wend
EndIf
Next j
Next i
getODGFontNames = fontNames
@ -706,9 +708,10 @@ Function getCharsInFont(fontName As String) As String
elementCount = page.getCount()
For j = 0 To elementCount - 1
element = page.getByIndex(j)
elementText = element.getText()
enum1 = elementText.createEnumeration()
While enum1.hasMoreElements
If element.supportsService(&quot;com.sun.star.drawing.Text&quot;) Then
elementText = element.getText()
enum1 = elementText.createEnumeration()
While enum1.hasMoreElements
enum1Element = enum1.nextElement
If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
enum2 = enum1Element.createEnumeration
@ -726,7 +729,8 @@ Function getCharsInFont(fontName As String) As String
EndIf
Wend
EndIf
Wend
Wend
EndIf
Next j
Next i
resultString = &quot;&quot;