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
Show stats 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;

2
build.gradle
View file

@ -1,4 +1,4 @@
def releaseVersion = "0.9.2"
def releaseVersion = "0.9.3"
task oxt(type: Zip) {
dependsOn = [ 'setVersion','setVersionInBasicCode' ]
from './'

1
releasenotes.txt
View file

@ -1,3 +1,4 @@
0.9.3 Fix for font report function
0.9.2 Font report in Draw added
0.8.6 Validation status indicator added
0.8.4 Added check for headings in footers and headers