Added page styles lib
This commit is contained in:
parent
df0aed0390
commit
4c94a4486b
3 changed files with 144 additions and 1 deletions
14
ePublishing/PageConfig.xdl
Normal file
14
ePublishing/PageConfig.xdl
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
|
||||
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="PageConfig" dlg:left="133" dlg:top="45" dlg:width="250" dlg:height="251" dlg:closeable="true" dlg:moveable="true">
|
||||
<dlg:styles>
|
||||
<dlg:style dlg:style-id="0" dlg:background-color="0xb4c7dc"/>
|
||||
<dlg:style dlg:style-id="1" dlg:background-color="0x3faf46"/>
|
||||
</dlg:styles>
|
||||
<dlg:bulletinboard>
|
||||
<dlg:img dlg:style-id="0" dlg:id="ImageControl1" dlg:tab-index="0" dlg:left="74" dlg:top="18" dlg:width="135" dlg:height="215"/>
|
||||
<dlg:img dlg:style-id="1" dlg:id="ImageControl2" dlg:tab-index="1" dlg:left="91" dlg:top="48" dlg:width="98" dlg:height="155"/>
|
||||
<dlg:img dlg:id="ImageControl3" dlg:tab-index="2" dlg:left="90" dlg:top="25" dlg:width="99" dlg:height="15"/>
|
||||
<dlg:img dlg:id="ImageControl4" dlg:tab-index="3" dlg:left="91" dlg:top="209" dlg:width="98" dlg:height="13"/>
|
||||
</dlg:bulletinboard>
|
||||
</dlg:window>
|
||||
128
ePublishing/PageStyles.xba
Normal file
128
ePublishing/PageStyles.xba
Normal file
|
|
@ -0,0 +1,128 @@
|
|||
<?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
|
||||
Dim oStyles As Object
|
||||
Dim curStyle As Object
|
||||
Dim inputHeight As String
|
||||
Dim inputTopMargin As String
|
||||
Dim inputBottomMargin As String
|
||||
Dim inputLeftMargin As String
|
||||
Dim inputRightMargin As String
|
||||
Dim inputHeaderBodyDistance As String
|
||||
Dim inputFooterBodyDistance As String
|
||||
Dim inputFootnoteLineDistance As String
|
||||
Dim inputFootnoteLineTextDistance As String
|
||||
|
||||
Dim newWidth As Long
|
||||
Dim newHeight As Long
|
||||
Dim newTopMargin As Long
|
||||
Dim newBottomMargin As Long
|
||||
Dim newLeftMargin As Long
|
||||
Dim newRightMargin As Long
|
||||
Dim textFieldHeight As Long
|
||||
Dim textFieldWidth As Long
|
||||
Dim headerBodyDistance As Long
|
||||
Dim footerBodyDistance As Long
|
||||
Dim footnoteLineDistance As Long
|
||||
Dim footnoteLineTextDistance As Long
|
||||
|
||||
oStyles = ThisComponent.StyleFamilies.getByName("PageStyles")
|
||||
inputWidth = InputBox("Введите ширину страниц (в мм):", "Установка ширины всех страниц документа", "")
|
||||
inputHeight = InputBox("Введите высоту страниц (в мм):", "Установка высоты всех страниц документа", "")
|
||||
inputTopMargin = InputBox("Введите размер верхнего поля (в мм):", "Установка размера верхнего поля для всех страниц", "")
|
||||
inputBottomMargin = InputBox("Введите резмер нижнего поля (в мм):", "Установка размера нижнего поля для всех страниц", "")
|
||||
inputLeftMargin = InputBox("Введите размер левого поля (в мм):", "Установка размера левого поля для всех страниц", "")
|
||||
inputRightMargin = InputBox("Введите размер правого поля (в мм):", "Установка размера правого поля для всех страниц", "")
|
||||
inputHeaderBodyDistance = InputBox("Введите расстояние от верхнего колонтитула до текста (в сотых долях мм):", "Установка расстояния от верхнего колонтитула до текста", "")
|
||||
inputFooterBodyDistance = InputBox("Введите расстояние от нижнего колонтитула до текста (в сотых долях мм):", "Установка расстояния от нижнего колонтитула до текста ", "")
|
||||
inputFootnoteLineTextDistance = InputBox("Введите расстояние от текста страницы до линии сноски (в сотых долях мм):", "Установка расстояния от текста страницы до линии сноски ", "")
|
||||
inputFootnoteLineDistance = InputBox("Введите расстояние от линии сноски до текста сноски (в сотых долях мм):", "Установка расстояния от линии сноски до текста сноски ", "")
|
||||
|
||||
For i = 0 to oStyles.Count - 1
|
||||
curStyle = oStyles.getByIndex(i)
|
||||
newWidth = curStyle.Width
|
||||
newHeight = curStyle.height
|
||||
newTopMargin = curStyle.TopMargin
|
||||
newBottomMargin = curStyle.BottomMargin
|
||||
newLeftMargin = curStyle.LeftMargin
|
||||
newRightMargin = curStyle.RightMargin
|
||||
|
||||
If CLng(inputHeaderBodyDistance) > 0 Then
|
||||
headerBodyDistance = CLng(inputHeaderBodyDistance)
|
||||
curStyle.HeaderBodyDistance = headerBodyDistance
|
||||
EndIf
|
||||
If CLng(inputFooterBodyDistance) > 0 Then
|
||||
footerBodyDistance = CLng(inputFooterBodyDistance)
|
||||
curStyle.FooterBodyDistance = footerBodyDistance
|
||||
EndIf
|
||||
|
||||
If CLng(inputFootnoteLineDistance) > 0 Then
|
||||
footnoteLineDistance = CLng(inputFootnoteLineDistance)
|
||||
curStyle.FootnoteLineDistance = footnoteLineDistance
|
||||
EndIf
|
||||
If CLng(inputFootnoteLineTextDistance) > 0 Then
|
||||
footnoteLineTextDistance = CLng(inputFootnoteLineTextDistance)
|
||||
curStyle.FootnoteLineTextDistance = footnoteLineTextDistance
|
||||
EndIf
|
||||
'Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
|
||||
'Mri curStyle
|
||||
|
||||
If curstyle.IsLandscape Then
|
||||
If CLng(inputHeight) > 0 Then
|
||||
newWidth = CLng(inputHeight + "00")
|
||||
EndIf
|
||||
If CLng(inputWidth) > 0 Then
|
||||
newHeight = CLng(inputWidth + "00")
|
||||
EndIf
|
||||
|
||||
If CLng(inputLeftMargin) > 0 Then
|
||||
newTopMargin = CLng(inputLeftMargin + "00")
|
||||
EndIf
|
||||
If CLng(inputRightMargin) > 0 Then
|
||||
newBottomMargin = CLng(inputRightMargin + "00")
|
||||
EndIf
|
||||
If CLng(inputTopMargin) > 0 Then
|
||||
newLeftMargin = CLng(inputTopMargin + "00")
|
||||
EndIf
|
||||
If CLng(inputBottomMargin) > 0 Then
|
||||
newRightMargin = CLng(inputBottomMargin + "00")
|
||||
EndIf
|
||||
|
||||
Else
|
||||
If CLng(inputWidth) > 0 Then
|
||||
newWidth = CLng(inputWidth + "00")
|
||||
EndIf
|
||||
If CLng(inputHeight) > 0 Then
|
||||
newHeight = CLng(inputHeight + "00")
|
||||
EndIf
|
||||
If CLng(inputTopMargin) > 0 Then
|
||||
newTopMargin = CLng(inputTopMargin + "00")
|
||||
EndIf
|
||||
If CLng(inputBottomMargin) > 0 Then
|
||||
newBottomMargin = CLng(inputBottomMargin + "00")
|
||||
EndIf
|
||||
If CLng(inputLeftMargin) > 0 Then
|
||||
newLeftMargin = CLng(inputLeftMargin + "00")
|
||||
EndIf
|
||||
If CLng(inputRightMargin) > 0 Then
|
||||
newRightMargin = CLng(inputRightMargin + "00")
|
||||
EndIf
|
||||
End If
|
||||
textFieldWidth = newWidth - newLeftMargin - newRightMargin
|
||||
textFieldHeight = newHeight - newTopMargin - newBottomMargin
|
||||
If textFieldWidth > 5000 Then
|
||||
curStyle.Width = newWidth
|
||||
curStyle.LeftMargin = newLeftMargin
|
||||
curStyle.RightMargin = newRightMargin
|
||||
EndIf
|
||||
|
||||
If textFieldHeight > 5000 Then
|
||||
curStyle.Height = newHeight
|
||||
curStyle.TopMargin = newTopMargin
|
||||
curStyle.BottomMargin = newBottomMargin
|
||||
EndIf
|
||||
Next
|
||||
|
||||
Exit Sub
|
||||
End Sub
|
||||
</script:module>
|
||||
|
|
@ -3,4 +3,5 @@
|
|||
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ePublishing" library:readonly="false" library:passwordprotected="false">
|
||||
<library:element library:name="FootnotesConfig"/>
|
||||
<library:element library:name="replaceParaStyle"/>
|
||||
<library:element library:name="PageConfig"/>
|
||||
</library:library>
|
||||
Loading…
Add table
Reference in a new issue