Safe go to range with controller select
This commit is contained in:
parent
b8d2fc8361
commit
25372f07a2
2 changed files with 4 additions and 4 deletions
|
@ -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>
|
Loading…
Add table
Add a link
Reference in a new issue