diff --git a/description.xml b/description.xml index 63efcbd..3cd203d 100644 --- a/description.xml +++ b/description.xml @@ -1,7 +1,7 @@ - + Исправление свойств документов diff --git a/docSettings/Events.xba b/docSettings/Events.xba index 3bafeb3..9fd087c 100644 --- a/docSettings/Events.xba +++ b/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 \ No newline at end of file