Sub execOnDocumentLoad Dim fixCompatibilityOption As Boolean fixCompatibilityOption = true If fixCompatibilityOption Then Dim oDocSettings As Object oDocSettings = ThisComponent.createInstance( "com.sun.star.document.Settings" ) If oDocSettings.supportsService("com.sun.star.text.DocumentSettings") Then oDocSettings.setPropertyValue("AddParaSpacingToTableCells", false) EndIf EndIf End Sub