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