2020-09-08 18:20:35 +02:00
|
|
|
<?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="Events" script:language="StarBasic" script:moduleType="normal">Sub execOnDocumentLoad
|
|
|
|
|
Dim fixCompatibilityOption As Boolean
|
|
|
|
|
fixCompatibilityOption = true
|
|
|
|
|
If fixCompatibilityOption Then
|
|
|
|
|
Dim oDocSettings As Object
|
|
|
|
|
oDocSettings = ThisComponent.createInstance( "com.sun.star.document.Settings" )
|
2020-09-09 17:50:52 +02:00
|
|
|
If oDocSettings.supportsService("com.sun.star.text.DocumentSettings") Then
|
|
|
|
|
oDocSettings.setPropertyValue("AddParaSpacingToTableCells", false)
|
|
|
|
|
EndIf
|
2020-09-08 18:20:35 +02:00
|
|
|
EndIf
|
|
|
|
|
End Sub
|
|
|
|
|
</script:module>
|
