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"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!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 End Sub
@ -81,11 +81,23 @@ Function isAnchorEmpty(anchor As Object) As Boolean
isAnchorEmpty = false isAnchorEmpty = false
End Function 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) Sub createAnchor(targetRange as Object,anchorName as String)
dim oViewCursor as object dim oViewCursor as object
dim document as object dim document as object
dim dispatcher as object dim dispatcher as Object
disposeBookMark(anchorName)
document = ThisComponent.CurrentController.Frame document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;) dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
oViewCursor = ThisComponent.CurrentController.getViewCursor() oViewCursor = ThisComponent.CurrentController.getViewCursor()