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

Code cleaning

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-21 16:35:38 +01:00
parent 52a5b70bbf
commit dd90a5b726
6 changed files with 102 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ePublishing/Footnotes.xba
View file

@ -130,6 +130,8 @@ Sub setFootnotesNumberingLevel(level)
End Sub
Private Sub doNotTrack
Dim dispatcher As Object
Dim document As Object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
document = ThisComponent.CurrentController.Frame
dim trackProperties(0) as new com.sun.star.beans.PropertyValue