Only for writer documents

description.xml

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.libreoffice.docsettings"/>
-  <version value="0.0.2"/>
+  <version value="0.0.3"/>
   <platform value="all"/>
   <display-name>
     <name lang="ru">Исправление свойств документов</name>

docSettings/Events.xba

@@ -6,7 +6,9 @@
   If fixCompatibilityOption Then
     Dim oDocSettings As Object
     oDocSettings = ThisComponent.createInstance( "com.sun.star.document.Settings" )
-    oDocSettings.setPropertyValue("AddParaSpacingToTableCells", false)
+    If oDocSettings.supportsService("com.sun.star.text.DocumentSettings") Then
+      oDocSettings.setPropertyValue("AddParaSpacingToTableCells", false)
+    EndIf
   EndIf
 End Sub
 </script:module>