From aed6ba6300b6827dac64ae2ba08b2df08c2486ef Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Tue, 17 Mar 2020 16:15:31 +0100
Subject: [PATCH] Fixed bidirectional link macro

---
 ePublishing/Archive.xba | 30 ++++++++++++++----------------
 ePublishing/script.xlb  |  1 +
 2 files changed, 15 insertions(+), 16 deletions(-)

diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba
index f414455..c3c08e2 100644
--- a/ePublishing/Archive.xba
+++ b/ePublishing/Archive.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="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark7
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark8
 
 End Sub
 
@@ -25,9 +25,11 @@ Sub resetNotesStyle
 End Sub
 
 Sub createBidirectLink
-	Dim oSelections &apos;Contains all of the selections
-	Dim oAnchor1
-	Dim oAnchor2
+	Dim oSelections As Object
+	Dim oAnchor1 As Object
+	Dim oAnchor2 As Object
+	Dim oAnchor1Name As String
+	Dim oAnchor2Name As String
 	
 	If IsNull(ThisComponent) Then 
 	  MsgBox &quot;Ничего не выбрано&quot;
@@ -39,18 +41,9 @@ Sub createBidirectLink
 	  Exit Sub
 	End If
 	objectsCount = oSelections.getCount() - 1
-	If oSelections.getCount() = 0 Then 
-	  MsgBox &quot;Ничего не выбрано&quot;
-	  Exit Sub
-	End If
-	If oSelections.getCount() &lt;= 2 Then
-	  MsgBox &quot;Нужно выделить два объекта, а не &quot; + objectsCount
-	  Exit Sub
-	End If
-	If oSelections.getCount() &gt; 3 Then
-	  MsgBox &quot;Нужно выделить только два объекта, а не &quot; + objectsCount 
-	  Exit Sub
-	End If
+	If objectsCount &lt; 2 OR objectsCount &gt; 2 Then
+	  MsgBox &quot;Нужно выделить два объекта&quot;
+	  Exit Sub	End If
 	
 	oAnchor1 = oSelections.getByIndex(1)
 	oAnchor2 = oSelections.getByIndex(2)
@@ -464,8 +457,13 @@ Sub replaceParaStyle
         MsgBox &quot;Стили не различаются&quot;
         Exit sub
     EndIf
+
     If oldStyleName &lt;&gt; &quot;&quot; Then
 	    oldStyle = paraStyles.getByName(oldStyleName)
+	    If NOT oldStyle.isUserDefined Then
+        	MsgBox &quot;Невозвожно заменять встроенные стили&quot;
+    	    Exit sub
+	    EndIf
     	oldStyle.ParentStyle = newStyleName
 	    paraStyles.removeByName(oldStyleName)
     EndIf
diff --git a/ePublishing/script.xlb b/ePublishing/script.xlb
index 243339e..4efdd33 100644
--- a/ePublishing/script.xlb
+++ b/ePublishing/script.xlb
@@ -9,4 +9,5 @@
  <library:element library:name="Album"/>
  <library:element library:name="Archive"/>
  <library:element library:name="MakeUp"/>
+ <library:element library:name="PageStyles"/>
 </library:library>
\ No newline at end of file