From 870d29a1fd6330fd7c9537f2be958c97273370e5 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Fri, 13 Mar 2020 16:40:24 +0100
Subject: [PATCH] Fix for footnotes numbering

---
 ePublishing/Footnotes.xba | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/ePublishing/Footnotes.xba b/ePublishing/Footnotes.xba
index e900fc0..b9f4e7c 100644
--- a/ePublishing/Footnotes.xba
+++ b/ePublishing/Footnotes.xba
@@ -1,6 +1,8 @@
 <?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 openFootNotesDialog
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark1
+endSub
+Sub openFootNotesDialog
 	Dim dialog As Object
 	DialogLibraries.LoadLibrary(&quot;ePublishing&quot;)
 	dialog = CreateUnoDialog(DialogLibraries.ePublishing.FootnotesConfig)
@@ -123,5 +125,19 @@ Sub setFootnotesNumberingLevel(level)
 		EndIf
 	Wend 
 	statusIndicator.end()
+	MsgBox &quot;Нумерация сносок успешно завершена.&quot;
+End Sub
+
+Private Sub doNotTrack
+	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>
\ No newline at end of file