litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

Save

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-05 18:47:09 +02:00
parent 4a85997850
commit 37c469c866
4 changed files with 2049 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
ePublishing/PageStyles.xba
View file

@ -1,6 +1,29 @@
<?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="PageStyles" script:language="StarBasic" script:moduleType="normal">Sub setDimensions
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="PageStyles" script:language="StarBasic" script:moduleType="normal">Sub pageStylesDialog
DialogLibraries.LoadLibrary(&quot;ePublishing&quot;)
Dim dialog As Object
Dim listBox As Object
Dim oStyles As Object
Dim pageStyles As Object
Dim pageStyleNames() As String
oStyles = ThisComponent.StyleFamilies
pageStyles = oStyles.getByName(oStyles.elementNames(2))
pageStyleNames = pageStyles.getElementNames
&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
&apos;MRI pageStyles
dialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig )
listBox = dialog.getControl(&quot;pageStyles&quot;)
listBox.addItems(pageStyleNames , 0)
dialog.Title = getTranslation(&quot;batchChangePageStyleProperties&quot;)
dialog.Execute()
End Sub
Sub setDimensions
Dim oStyles As Object
Dim curStyle As Object
Dim inputHeight As String