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

Updates for journals

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-13 13:23:33 +01:00
parent 511c81670c
commit f472b8e054
2 changed files with 152 additions and 81 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Addons.xcu
View file

@ -18,7 +18,7 @@
<node oor:name="Submenu">
<node oor:name="m2" oor:op="replace">
<prop oor:name="URL" oor:type="xs:string">
<value>ePublishing.journals.makeUpIssue</value>
<value>macro:///ePublishing.journals.makeUpIssue</value>
</prop>
<prop oor:name="Target" oor:type="xs:string">
<value>_self</value>
@ -31,7 +31,7 @@
</node>
<node oor:name="m4" oor:op="replace">
<prop oor:name="URL" oor:type="xs:string">
<value>com.example.addon1:Command1</value>
<value>macro:///ePublishing.journals.setPageNumbers</value>
</prop>
<prop oor:name="ImageIdentifier" oor:type="xs:string">
<value/>

195
ePublishing/journals.xba
View file

@ -1,7 +1,7 @@
<?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="journals" script:language="StarBasic">&apos; Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
&apos; Mri curStyle
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark1
End sub
Dim templateName As String
Dim EIFN As String
@ -12,7 +12,7 @@ Dim allImagesRelativePath As String
Dim path As String
Dim sectionName As String
Sub makeUpIssue
Private Sub makeUpIssue
turnOffTracking
Dim description As String
description = &quot;Вы уверены, что хотите запустить сборку выпуска ?&quot;
@ -141,12 +141,12 @@ Sub makeUpIssue
statusIndicator.end()
End Sub
Sub setPageNumbers()
Private Sub setPageNumbers()
updateLastPageFields()
End Sub
Sub setPageNumbersDeprecated()
Private Sub setPageNumbersDeprecated()
Dim oVeiwCursor As Object
Dim pageNum as Integer
Dim firstPage as String
@ -165,14 +165,14 @@ Sub setPageNumbersDeprecated()
End Sub
Sub setAtricleVars(i)
Private Sub setAtricleVars(i)
&apos;updateUserField(&quot;article&quot; + i + &quot;LastPage&quot;, CStr(getArticleLastPage()) )
updateUserField(&quot;article&quot; + i + &quot;UDK&quot;, getUDK())
updateUserField(&quot;author&quot; + i + &quot;Copyright&quot;, getCopyright() )
&apos;updateUserField(&quot;rightHeader&quot; + i , getTitleHeader() )
End Sub
Function lastPageNum(i)
Private Function lastPageNum(i)
Dim docLastPage As Integer
Dim curPageNum As Integer
Dim oViewCursor As Object
@ -210,7 +210,7 @@ Function lastPageNum(i)
lastPageNum = curPageNum
End Function
Function getUDK()
Private Function getUDK()
&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
Dim oViewCursor As Object
Dim oSavePosition As Object
@ -231,7 +231,7 @@ Function getUDK()
oViewCursor.goToRange(oSavePosition, false)
End Function
Function getCopyright()
Private Function getCopyright()
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim authors As String
@ -268,7 +268,7 @@ Function getCopyright()
oViewCursor.goToRange(oSavePosition, false)
End Function
Function getAuthor()
Private Function getAuthor()
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim authors As String
@ -284,7 +284,7 @@ Function getAuthor()
oViewCursor.goToRange(oSavePosition, false)
End Function
Function getArticleHeader()
Private Function getArticleHeader()
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim authors As String
@ -300,7 +300,7 @@ Function getArticleHeader()
oViewCursor.goToRange(oSavePosition, false)
End Function
Function getSectionX(section)
Private Function getSectionX(section)
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim startPage As String
@ -323,7 +323,7 @@ Function getSectionX(section)
oViewCursor.goToRange(oSavePosition, false)
End Function
Function getTitleHeader()
Private Function getTitleHeader()
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim title As String
@ -340,7 +340,7 @@ End Function
Sub setArticlePageStyles(i)
Private Sub setArticlePageStyles(i)
Dim oViewCursor As Object
Dim oTextCursor As Object
Dim oText As Object
@ -386,7 +386,7 @@ Sub setArticlePageStyles(i)
End Sub
Sub setFirstPageMetadata(curStyle,i)
Private Sub setFirstPageMetadata(curStyle,i)
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim savePageName As String
@ -413,7 +413,7 @@ Sub setFirstPageMetadata(curStyle,i)
sendRM()
End Sub
Sub setDefaultFirstPageMetadata(curStyle,i)
Private Sub setDefaultFirstPageMetadata(curStyle,i)
Dim oViewCursor As Object
Dim oHeaderTable As Object
Dim oFooterTable As Object
@ -452,7 +452,7 @@ Sub setDefaultFirstPageMetadata(curStyle,i)
End Sub
Sub setPHAFirstPageMetadata(curStyle,i)
Private Sub setPHAFirstPageMetadata(curStyle,i)
Dim oViewCursor As Object
Dim oHeader As Object
Dim oFooterTable As Object
@ -483,7 +483,7 @@ Sub setPHAFirstPageMetadata(curStyle,i)
End Sub
Sub setEIFNFirstPageMetadata(curStyle,i)
Private Sub setEIFNFirstPageMetadata(curStyle,i)
Dim oViewCursor As Object
Dim oHeaderTable As Object
Dim oFooterTable As Object
@ -530,7 +530,7 @@ Sub setEIFNFirstPageMetadata(curStyle,i)
End Sub
Sub setAritclePageHeaders(i)
Private Sub setAritclePageHeaders(i)
Dim oViewCursor As Object
Dim oSavePosition As Object
Dim rightHeaderTable As Object
@ -612,7 +612,7 @@ Sub setAritclePageHeaders(i)
End Sub
Sub setArticleUniqPageStyles(i)
Private Sub setArticleUniqPageStyles(i)
Dim firstPageName As String
Dim pageName As String
Dim curPageNum As Integer
@ -667,7 +667,7 @@ Sub setArticleUniqPageStyles(i)
End Sub
Sub takeWidowLinesIn
Private Sub takeWidowLinesIn
Dim oViewCursor As Object
oViewCursor = ThisComponent.CurrentController.getViewCursor()
curPageStyleName = getNextPageStyleName()
@ -678,7 +678,7 @@ Sub takeWidowLinesIn
Loop
End Sub
Sub takeDownOrpahns
Private Sub takeDownOrpahns
Dim oViewCursor As Object
oViewCursor = ThisComponent.CurrentController.getViewCursor()
curPageStyleName = getNextPageStyleName()
@ -689,7 +689,7 @@ Sub takeDownOrpahns
Loop
End Sub
Sub takeLineIn
Private Sub takeLineIn
Globalscope.BasicLibraries.LoadLibrary( &quot;Publishing&quot; )
Dim oViewCursor As Object
Dim oTextCursor As Object
@ -751,7 +751,7 @@ Sub takeLineIn
End If
End Sub
Function getNextPageStyleName()
Private Function getNextPageStyleName()
dim curPageStyleName as String
dim startPageStyleName as String
dim startPageStyle as Object
@ -778,16 +778,16 @@ Function getNextPageStyleName()
backspace()
End Function
Function findArticleFile(path,i)
Dim NextFile As String
Dim TestName As String
Dim endChars(2) As String
endChars(0) = &quot;_&quot;
endChars(1) = &quot;.&quot;
endChars(2) = &quot; &quot;
Dim FoundPosition As Long
Dim EndChar As String
NextFile = Dir(path+&quot;/&quot;, 0)
Private Function findArticleFile(path,i)
Dim NextFile As String
Dim TestName As String
Dim endChars(2) As String
endChars(0) = &quot;_&quot;
endChars(1) = &quot;.&quot;
endChars(2) = &quot; &quot;
Dim FoundPosition As Long
Dim EndChar As String
NextFile = Dir(path+&quot;/&quot;, 0)
While NextFile &lt;&gt; &quot;&quot;
For j = LBound(endChars) To UBound(endChars)
TestName = CStr(i)+endChars(j)
@ -801,10 +801,10 @@ NextFile = Dir(path+&quot;/&quot;, 0)
Wend
findArticleFile = &quot;&quot;
findArticleFile = &quot;&quot;
End Function
Function InsertArticle(oFileName)
Private Function InsertArticle(oFileName)
Dim document as Object
Dim dispatcher as object
Dim fileType as String
@ -827,13 +827,13 @@ End Function
Sub getChapter
Private Sub getChapter
Dim testText As String
testText = getFirstTextInStyle(&quot;Заголовок 1&quot;)
End Sub
Function getFirstTextInStyle(styleName)
Private Function getFirstTextInStyle(styleName)
Dim oViewCursor As Object
Dim curPage As Long
Dim foundPage As Long
@ -848,7 +848,7 @@ Function getFirstTextInStyle(styleName)
getFirstTextInStyle = &quot;&quot;
End Function
Sub setHeadingsOutlineLevels
Private Sub setHeadingsOutlineLevels
setHeadingOutlineLevel(1,&quot;Заголовок 1&quot;)
setHeadingOutlineLevel(2,&quot;Заголовок 2&quot;)
@ -874,7 +874,7 @@ Sub setHeadingOutlineLevel(num,targetStyleName)
Wend
End Sub
sub getFirstTextInStyleDispatch(styleName)
Private sub getFirstTextInStyleDispatch(styleName)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
@ -927,38 +927,36 @@ sub getFirstTextInStyleDispatch(styleName)
dispatcher.executeDispatch(document, &quot;.uno:ExecuteSearch&quot;, &quot;&quot;, 0, args1())
end Sub
sub insertLinkedImage(articleNum,styleName)
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
Private sub insertLinkedImage(articleNum,styleName)
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = &quot;FileName&quot;
args2(0).Value = path + imagesRelativePath + articleNum + &quot;.jpg&quot;
args2(1).Name = &quot;FilterName&quot;
args2(1).Value = &quot;&lt;Все форматы&gt;&quot;
args2(2).Name = &quot;AsLink&quot;
args2(2).Value = true
args2(3).Name = &quot;Style&quot;
args2(3).Value = styleName
dispatcher.executeDispatch(document, &quot;.uno:InsertGraphic&quot;, &quot;&quot;, 0, args2())
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = &quot;FileName&quot;
args2(0).Value = path + imagesRelativePath + articleNum + &quot;.jpg&quot;
args2(1).Name = &quot;FilterName&quot;
args2(1).Value = &quot;&lt;Все форматы&gt;&quot;
args2(2).Name = &quot;AsLink&quot;
args2(2).Value = true
args2(3).Name = &quot;Style&quot;
args2(3).Value = styleName
dispatcher.executeDispatch(document, &quot;.uno:InsertGraphic&quot;, &quot;&quot;, 0, args2())
end sub
Sub copySectionIcon(articleNum)
Private Sub copySectionIcon(articleNum)
FileCopy( path + allImagesRelativePath + getImageFileName(), path + imagesRelativePath + articleNum + &quot;.jpg&quot;)
End Sub
Function getImageFileName()
Private Function getImageFileName()
Select Case UCase(sectionName)
Case &quot;АРХИВ&quot;
@ -984,7 +982,7 @@ Function getImageFileName()
End Select
End Function
sub noNumbering
Private sub noNumbering
rem ----------------------------------------------------------------------
rem define variables
dim document as object
@ -1001,7 +999,80 @@ sub noNumbering
Wait 500
end sub
Private Sub updateLastPageFields
Dim enum1Element As Object
Dim enum1 As Object
Dim enum2 As Object
Dim thisPortion As Object
Dim footnoteText As Object
Dim label As String
Dim labelNum As Integer
Dim i As Integer
Dim cell As Object
Dim cellEnum As Object
Dim cellEnum2 As Object
Dim pageStyleName As String
Dim articleName As String
Dim articleNamePrefix As String
Dim articleNamePostfix As String
Dim strPos As Integer
Dim articleNum As Integer
Dim curNum As Integer
Dim pageNum As Integer
Dim textCursor As Object
Dim lastPages%( 100 )
For i = 0 to 100
lastPages%(i) = 0
next i
articleNum = 0
articleName = &quot;0&quot;
articleNamePrefix = &quot;Статья &quot;
articleNamePostfix = &quot; &quot;
Dim statusIndicator as Object
statusIndicator = ThisComponent.getCurrentController.statusIndicator
statusIndicator.Start(&quot;Производится обновление полей последних номеров страниц, подождите&quot;,30)
enum1 = ThisComponent.Text.createEnumeration
While enum1.hasMoreElements
enum1Element = enum1.nextElement
If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
pageStyleName = getPageStyleNameFromEnum(enum1Element)
If Len(pageStyleName) &gt; 0 Then
strPos = InStr(pageStyleName, articleNamePrefix)
If strPos &lt;&gt; 0 Then
articleName = Right(pageStyleName, Len(pageStyleName)-Len(articleNamePrefix))
strPos = InStr(articleName, articleNamePostfix)
If strPos &gt; 0 Then
articleName = Left(articleName,strPos)
EndIf
&apos;If first article reached
If articleNum = 0 Then
articleNum = CInt(Trim(articleName))
EndIf
Else
articleName = &quot;0&quot;
EndIf
If articleNum &gt; 0 Then
curNum = CInt(Trim(articleName))
If articleNum &lt;&gt; curNum Then
pageNum = getPageNumber(enum1Element.Start)
lastPages(articleNum) = CInt(pageNum) - 1
articleNum = curNum
EndIf
EndIf
EndIf
EndIf
&apos;TODO:
&apos;OR enum1Element.supportsService(&quot;com.sun.star.text.TextTable&quot;)
Wend
For i = LBound(lastPages) to UBound(lastPages)
If lastPages%(i) &lt;&gt; 0 Then
updateUserField(&quot;article&quot; + i + &quot;LastPage&quot;,lastPages%(i))
EndIf
next i
statusIndicator.end()
End Sub