Safe go to range with controller select

description.xml

@@ -3,7 +3,7 @@
              xmlns:dep="http://openoffice.org/extensions/description/2006"
              xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.epublishing" />
-  <version value="0.7.4" />
+  <version value="0.7.5" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>

ePublishing/journals.xba

@@ -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>