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

Added validation for headings in footnotes and endnotes.

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-03 16:48:29 +02:00
parent 4a9611ce1a
commit ed6bb42085
4 changed files with 69 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Redaction/Clean.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="Clean" script:language="StarBasic">Sub mark60
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark61
End Sub
@ -531,13 +531,13 @@ End Function
Private Sub removeHyperlinks()
Dim aNote As Object
Dim i As Long
Dim x As Long
removeHLInText(ThisComponent.Text)
For i = 0 to ThisComponent.FootNotes.Count -1
For x = 0 to ThisComponent.FootNotes.Count -1
aNote = ThisComponent.FootNotes.getByIndex(x)
removeHLInText(aNote.Text)
Next
For i = 0 to ThisComponent.EndNotes.Count -1
For x = 0 to ThisComponent.EndNotes.Count -1
aNote = ThisComponent.EndNotes.getByIndex(x)
removeHLInText(aNote.Text)
Next