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

Dispose bookmark before adding another one with the same name

Browse source
This commit is contained in:
Georgy Litvinov 2020-09-14 22:45:01 +02:00
parent 30dcf4c5de
commit 6dbe28c2f5
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
ePublishing/Archive.xba
View file

@ -1,6 +1,6 @@
<?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="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark18
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark19
End Sub
@ -81,11 +81,23 @@ Function isAnchorEmpty(anchor As Object) As Boolean
isAnchorEmpty = false
End Function
Sub disposeBookmark(bookmarkName As String)
Dim bookmarks As Object
Dim bookmark As Object
Dim elementName As String
elementName = ThisComponent.Links.ElementNames(6)
bookmarks = ThisComponent.Links.getByName(elementName)
If bookmarks.hasByName(bookmarkName) Then
bookmark = bookmarks.getByName(bookmarkName)
bookmark.dispose()
EndIf
End Sub
Sub createAnchor(targetRange as Object,anchorName as String)
dim oViewCursor as object
dim document as object
dim dispatcher as object
dim dispatcher as Object
disposeBookMark(anchorName)
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
oViewCursor = ThisComponent.CurrentController.getViewCursor()