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

Added check for null object

Browse source
This commit is contained in:
Georgy Litvinov 2020-01-13 16:08:46 +01:00
parent 202c41251b
commit ef9c8d8fff
3 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
IPHRedaction/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 markZZZX
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markZXZ
End Sub
@ -92,11 +92,16 @@ Private Function checkGraphics
&apos; Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
&apos; MRI draw
If draw.supportsService(&quot;com.sun.star.text.TextEmbeddedObject&quot;) Then
embeededObject = draw.getEmbeddedObject()
If Not embeededObject.supportsService(&quot;com.sun.star.formula.FormulaProperties&quot;) Then
If IsNull(embeededObject) Then
badFrame = badFrame + 1
Else
&apos;Formula
If Not embeededObject.supportsService(&quot;com.sun.star.formula.FormulaProperties&quot;) Then
badFrame = badFrame + 1
Else
&apos;Formula
EndIf
EndIf
EndIf
EndIf
@ -181,4 +186,4 @@ Private Sub StopTracking
args1(0).Value = true
dispatcher.executeDispatch(document, &quot;.uno:ShowTrackedChanges&quot;, &quot;&quot;, 0, args1())
End Sub
</script:module>
</script:module>