epublishing/ePublishing/Footnotes.xba

<?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="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark4
End Sub

Sub openFootNotesDialog
	Dim dialog As Object
	DialogLibraries.LoadLibrary(&quot;ePublishing&quot;)
	dialog = CreateUnoDialog(DialogLibraries.ePublishing.FootnotesConfig)
	dialog.getControl(&quot;buttonOK&quot;).Label = getTranslation(&quot;buttonOk&quot;)
	dialog.getControl(&quot;buttonCancel&quot;).Label = getTranslation(&quot;buttonCancel&quot;)
	dialog.getControl(&quot;configText1&quot;).setText(getTranslation(&quot;configText1&quot;))
	dialog.getControl(&quot;configText2&quot;).setText(getTranslation(&quot;configText2&quot;))
	dialog.getControl(&quot;configText3&quot;).setText(getTranslation(&quot;configText3&quot;))
	dialog.getControl(&quot;configText4&quot;).setText(getTranslation(&quot;configText4&quot;))
	dialog.getControl(&quot;configText5&quot;).setText(getTranslation(&quot;configText5&quot;))
	dialog.getControl(&quot;notesTypeLabel&quot;).setText(getTranslation(&quot;FootnotesConfigDialogNotesTypeLabel&quot;))
	dialog.getControl(&quot;PerPageRangeLabel&quot;).setText(getTranslation(&quot;FootnotesConfigDialogNotesPerPageRangeLabel&quot;))
	
	dialog.getControl(&quot;groupByPages&quot;).Model.Label = getTranslation(&quot;FootnotesConfigDialogNotesPerPage&quot;)
	dialog.getControl(&quot;groupByHeadings&quot;).Model.Label = getTranslation(&quot;FootnotesConfigDialogNotesByHeadingsLabel&quot;)
	dialog.Title = getTranslation(&quot;footnotesConfigDialogTitle&quot;)
    Dim nCount As Integer
    nCount = dialog.getControl(&quot;lb_notes_types&quot;).getItemCount()
	dialog.getControl(&quot;lb_notes_types&quot;).addItem( getTranslation(&quot;FootnotesConfigDialogFootnotesName&quot;), nCount )
	dialog.getControl(&quot;lb_notes_types&quot;).addItem( getTranslation(&quot;FootnotesConfigDialogEndnotesName&quot;), nCount + 1 )
	dialog.getControl(&quot;lb_notes_types&quot;).selectItemPos( 0, True )
	dialog.setVisible(true)	
	Select Case dialog.Execute()
    Case 1
        setFootnotesNumberingFrom(dialog)
    Case 0
    End Select
    dialog.dispose()
End Sub

Sub setFootnotesNumberingFrom(dialog As Object)
	Dim statusIndicator as Object
	Dim targetLevel As Integer
	Dim stringLevelInput As String
	Dim stringPageRangeInput As String
	Dim noteType As Integer
	statusIndicator = ThisComponent.getCurrentController.statusIndicator
	dialog.setVisible(false)
	doNotTrack
	stringLevelInput = dialog.getControl(&quot;level&quot;).getText
	stringPageRangeInput = dialog.getControl(&quot;pageRange&quot;).getText
	noteType = dialog.getControl(&quot;lb_notes_types&quot;).getSelectedItemPos()
	If (stringLevelInput &lt;&gt; &quot;&quot;) Then
		targetLevel = CInt(stringLevelInput)
		If targetLevel &gt; -1 AND targetLevel &lt; 11  Then
			statusIndicator.Start(getTranslation(&quot;statusNumberingInProcess&quot;),100)
			setFootnotesNumberingLevel(targetLevel,noteType)
		Else 
		  MsgBox getTranslation(&quot;numberingInputOutOfRange&quot;)
		EndIf
	EndIf
	
	If (stringPageRangeInput &lt;&gt; &quot;&quot;) Then
		Dim pageNums() As Integer
		getPageNumsFrom(stringPageRangeInput, pageNums())
		statusIndicator.Start(getTranslation(&quot;statusNumberingInProcess&quot;),100)
		setNotesPaginatedNumbering(noteType, pageNums())
	EndIf
	
	statusIndicator.end()
End Sub

Sub setNotesPaginatedNumbering(noteType As Integer, pageNums() As Integer)
	Dim enum1Element As Object
	Dim enum1 As Object
	Dim enum2 As Object
	Dim thisPortion As Object
	Dim curNum As Integer
	Dim footnoteText As Object
	Dim label As String
	Dim labelNum As Long
	Dim i As Integer
	Dim cell As Object
	Dim cellEnum As Object
	Dim cellEnum2 As Object
	Dim curPage As String
	Dim prevPage As String
	prevPage = &quot;&quot;
	Dim statusIndicator as Object
	statusIndicator = ThisComponent.getCurrentController.statusIndicator
	statusIndicator.Start(getTranslation(&quot;statusNumberingInProcess&quot;),30)
	curNum = 1
	enum1 = ThisComponent.Text.createEnumeration
	While enum1.hasMoreElements
		enum1Element = enum1.nextElement
		If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
			enum2 = enum1Element.createEnumeration
			While enum2.hasMoreElements
				thisPortion = enum2.nextElement
				If isTargetNote(thisPortion, noteType) Then
  				  curPage = getPageNumber(thisPortion)
				  If ( IsInArray(pageNums, CInt(curPage) ) ) Then
					If (curPage &lt;&gt; prevPage) Then
					  curNum = 1
					  prevPage = curPage
					EndIf
					footnoteText = thisPortion.Footnote
					label = footnoteText.getLabel
					If label = &quot;&quot; Then
						footnoteText.setLabel(CStr(curNum))
						curNum = curNum + 1
					Else
						labelNum = CLng(label)
						If labelNum &gt; 0 Then
							footnoteText.setLabel(CStr(curNum))
							curNum = curNum + 1
						EndIf
					EndIf
				  EndIf
				EndIf
			Wend
		ElseIf enum1Element.supportsService(&quot;com.sun.star.text.TextTable&quot;) Then
			cellNames = enum1Element.cellNames
			For i = LBound(cellNames) To Ubound(cellNames)
				cell = enum1Element.getCellByName(cellNames(i))
				cellEnum = cell.getText().createEnumeration()
				While cellEnum.hasMoreElements 
					cellEnumElement = cellEnum.nextElement
					If cellEnumElement.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
						cellEnum2 = cellEnumElement.createEnumeration
						While cellEnum2.hasMoreElements
							thisPortion = cellEnum2.nextElement
							If isTargetNote(thisPortion, noteType) Then
							  curPage = getPageNumber(thisPortion)
							  If ( IsInArray(pageNums, CInt(curPage) ) ) Then
							    If (curPage &lt;&gt; prevPage) Then
								  curNum = 1
								  prevPage = curPage
								EndIf								
								footnoteText = thisPortion.Footnote
								label = footnoteText.getLabel
								If label = &quot;&quot; Then 
									footnoteText.setLabel(CStr(curNum))
									curNum = curNum + 1

								Else
									labelNum = CLng(label)
									If labelNum &gt; 0 Then
										footnoteText.setLabel(CStr(curNum))
										curNum = curNum + 1
									EndIf
								EndIf
							  EndIf
							EndIf
						Wend
					EndIf
				Wend
		    Next i
		EndIf
	Wend 
	statusIndicator.end()
	MsgBox getTranslation(&quot;statusNumberingFinished&quot;)
End Sub


Sub setFootnotesNumberingLevel(level As Integer,noteType As Integer)
	Dim enum1Element As Object
	Dim enum1 As Object
	Dim enum2 As Object
	Dim thisPortion As Object
	Dim curNum As Integer
	Dim footnoteText As Object
	Dim label As String
	Dim labelNum As Long
	Dim i As Integer
	Dim cell As Object
	Dim cellEnum As Object
	Dim cellEnum2 As Object
	
	Dim statusIndicator as Object
	statusIndicator = ThisComponent.getCurrentController.statusIndicator
	statusIndicator.Start(getTranslation(&quot;statusNumberingInProcess&quot;),30)
	curNum = 1
	enum1 = ThisComponent.Text.createEnumeration
	While enum1.hasMoreElements
		enum1Element = enum1.nextElement
		If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
			If enum1Element.OutlineLevel = level Then
				curNum = 1 
			EndIf
			enum2 = enum1Element.createEnumeration
			While enum2.hasMoreElements
				thisPortion = enum2.nextElement
				If isTargetNote(thisPortion, noteType)  Then

					footnoteText = thisPortion.Footnote
					label = footnoteText.getLabel
					If label = &quot;&quot; Then
						If level &gt; 0 Then
							footnoteText.setLabel(CStr(curNum))
							curNum = curNum + 1
						EndIf
					Else
						labelNum = CLng(label)
						If labelNum &gt; 0 Then
							If level &lt; 1 Then
								footnoteText.setLabel(&quot;&quot;)
							Else
								footnoteText.setLabel(CStr(curNum))
							EndIf
							curNum = curNum + 1
						EndIf
					EndIf
				EndIf
			Wend
		ElseIf enum1Element.supportsService(&quot;com.sun.star.text.TextTable&quot;) Then
			cellNames = enum1Element.cellNames
			For i = LBound(cellNames) To Ubound(cellNames)
				cell = enum1Element.getCellByName(cellNames(i))
				cellEnum = cell.getText().createEnumeration()
				While cellEnum.hasMoreElements 
					cellEnumElement = cellEnum.nextElement
					If cellEnumElement.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
						If cellEnumElement.OutlineLevel = level Then
						curNum = 1 
						EndIf
						cellEnum2 = cellEnumElement.createEnumeration
						While cellEnum2.hasMoreElements
							thisPortion = cellEnum2.nextElement
							If isTargetNote(thisPortion, noteType) Then
								footnoteText = thisPortion.Footnote
								label = footnoteText.getLabel
								If label = &quot;&quot; Then 
									If level &gt; 0 Then
										footnoteText.setLabel(CStr(curNum))
										curNum = curNum + 1
									EndIf
								Else
									labelNum = CLng(label)
									If labelNum &gt; 0 Then
										If level &lt; 1 Then
											footnoteText.setLabel(&quot;&quot;)
										Else
											footnoteText.setLabel(CStr(curNum))
										EndIf
										curNum = curNum + 1
									EndIf
								EndIf
							EndIf
						Wend
					EndIf
				Wend
		    Next i
		EndIf
	Wend 
	statusIndicator.end()
	MsgBox getTranslation(&quot;statusNumberingFinished&quot;)
End Sub

Function isTargetNote(portion As Object, noteType As Integer) As Boolean
  If ( portion.TextPortionType = &quot;Footnote&quot; And isEndNote(portion) = CBool(noteType) ) Then
    isTargetNote = true
  Else 
    isTargetNote = false
  EndIf
End Function

&apos;Sub testRange
&apos;  Dim pageNums() As Integer
&apos;  getPageNumsFrom(&quot;9-10,8-12,-111-099,99,102,105,187,187&quot;,pageNums())
&apos;End Sub


Sub getPageNumsFrom(inputString As String, pageNums() As Integer)
  Dim ranges() As String
  ranges = split(inputString,&quot;,&quot;)
  For i = Lbound(ranges) To (Ubound(ranges))
    processNumRange(ranges(i),pageNums())
  Next i
End Sub

Function IsInArray(array As Variant, content As Variant) As Boolean
    IsInArray = false
    For i = LBound(array) To UBound(array)
        inArr = array(i)
        If inArr = content Then
            IsInArray = true
        EndIf
    Next i
End Function


Sub processNumRange(range As String, pageNums() As Integer)
  Dim rangeParts() As String
  Dim firstValue As String
  Dim secondValue As String
  Dim firstNum As Integer
  Dim secondNum As Integer
  rangeParts = split( range, &quot;-&quot;)

  If UBound(rangeParts) = 1 Then
  firstValue = trim(rangeParts(0))
  secondValue = trim(rangeParts(1))
    If ( IsNumeric(firstValue) And  IsNumeric(secondValue)) Then
      firstNum = CInt(firstValue)
      secondNum = CInt(secondValue)
      If firstNum &lt;= secondNum Then
        For i = firstNum To secondNum
          If (NOT IsInArray(pageNums, i)) Then
            addToArray(pageNums, i)
          EndIf
        Next i      
      EndIf
    EndIf  
  EndIf
  If UBound(rangeParts) = 0 Then
    firstValue = trim(rangeParts(0))
    If IsNumeric(firstValue) Then
    firstNum = CInt(firstValue)
      If (NOT IsInArray(pageNums, firstNum)) Then
        addToArray(pageNums, firstNum)
      EndIf
    EndIf
  EndIf
  
End Sub



Function isEndNote(portion As Object) As Boolean
  If (IsEmpty(portion.Start.EndNote)) Then
    isEndNote = false
  Else 
    isEndNote = true
  EndIf
End Function

Private Sub doNotTrack
	Dim dispatcher As Object
	Dim document As Object
	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
	document   = ThisComponent.CurrentController.Frame
	dim trackProperties(0) as new com.sun.star.beans.PropertyValue
	trackProperties(0).Name = &quot;TrackChanges&quot;
	trackProperties(0).Value = false
	dispatcher.executeDispatch(document, &quot;.uno:TrackChanges&quot;, &quot;&quot;, 0, trackProperties())
	dim args1(0) as new com.sun.star.beans.PropertyValue
	args1(0).Name = &quot;ShowTrackedChanges&quot;
	args1(0).Value = true
	dispatcher.executeDispatch(document, &quot;.uno:ShowTrackedChanges&quot;, &quot;&quot;, 0, args1())
End Sub
</script:module>