Safe go to range with controller select

This commit is contained in:
Georgy Litvinov 2021-07-12 18:04:20 +02:00
parent b8d2fc8361
commit 25372f07a2
2 changed files with 4 additions and 4 deletions

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="journals" script:language="StarBasic">Private sub journalsMark28
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark31
End sub
Dim templateName As String
@ -228,7 +228,7 @@ Private Function getUDK()
backspace
sendRM
End If
oViewCursor.goToRange(oSavePosition, false)
Thiscomponent.CurrentController.select(oSavePosition)
End Function
Private Function getCopyright()
@ -1622,4 +1622,4 @@ Function getPageNumber(cursor As Object) As String
End Function
</script:module>
</script:module>