litvinovg/docsettings
1
0
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity Actions

Only for writer documents

Browse source
This commit is contained in:
Georgy Litvinov 2020-09-09 17:50:52 +02:00
parent b4f564676a
commit fd046e8ebf
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
description.xml
View file

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8" standalone="no"?> <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.libreoffice.docsettings"/> <identifier value="pro.litvinovg.libreoffice.docsettings"/>
<version value="0.0.2"/> <version value="0.0.3"/>
<platform value="all"/> <platform value="all"/>
<display-name> <display-name>
<name lang="ru">Исправление свойств документов</name> <name lang="ru">Исправление свойств документов</name>

4
docSettings/Events.xba
View file

@ -6,7 +6,9 @@
If fixCompatibilityOption Then If fixCompatibilityOption Then
Dim oDocSettings As Object Dim oDocSettings As Object
oDocSettings = ThisComponent.createInstance( &quot;com.sun.star.document.Settings&quot; ) oDocSettings = ThisComponent.createInstance( &quot;com.sun.star.document.Settings&quot; )
oDocSettings.setPropertyValue(&quot;AddParaSpacingToTableCells&quot;, false) If oDocSettings.supportsService(&quot;com.sun.star.text.DocumentSettings&quot;) Then
oDocSettings.setPropertyValue(&quot;AddParaSpacingToTableCells&quot;, false)
EndIf
EndIf EndIf
End Sub End Sub
</script:module> </script:module>