fix: exit if excerption happened while compiling journal

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.7" />
+  <version value="0.7.8" />
   <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 journalsMark34
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark35
 End sub
 
 Dim templateName As String
@@ -662,7 +662,11 @@ Private Sub	setArticleUniqPageStyles(i)
 		&apos;Iterate article page number
 		articlePageNum = articlePageNum + 1
 		&apos;GO TO NEXT PAGE
-		oViewCursor.jumpToNextPage()
+		If Not oViewCursor.jumpToNextPage() Then
+			MsgBox &quot;setArticleUniqPageStyles failed&quot;
+			End
+
+		EndIf
 		curPageStyleName = getNextPageStyleName()
 	Loop