Added page styles lib
This commit is contained in:
parent
df0aed0390
commit
4c94a4486b
3 changed files with 144 additions and 1 deletions
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>
|
||||
Loading…
Add table
Add a link
Reference in a new issue