Added check for null object

IPHRedaction/Validation.xba

@@ -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	

description.xml

@@ -3,7 +3,7 @@
              xmlns:dep="http://openoffice.org/extensions/description/2006"
              xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction" />
-  <version value="0.3.5" />
+  <version value="0.3.6" />
   <platform value="all" />
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>

releasenotes.txt

@@ -1,2 +1,3 @@
+0.3.6 Added check for null EmbeededObject (13.01.2019)
 0.0.1 (18.10.2019)
   initial release