12 lines
638 B
Text
12 lines
638 B
Text
|
<?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" )
|
||
|
|
oDocSettings.setPropertyValue("AddParaSpacingToTableCells", false)
|
||
|
|
EndIf
|
||
|
|
End Sub
|
||
|
|
</script:module>
|