Translations

ePublishing/Archive.xba

@@ -37,17 +37,17 @@ Sub createBidirectLink
 	Dim oAnchor2Name As String
 	
 	If IsNull(ThisComponent) Then 
-	  MsgBox "Ничего не выбрано"
+	  MsgBox getTranslation("bidirectLinkSuggestion")
 	  Exit Sub
 	End If
 	oSelections = ThisComponent.getCurrentSelection()
 	If IsNull(oSelections) Then 
-	  MsgBox "Ничего не выбрано"
+	  MsgBox getTranslation("bidirectLinkSuggestion")
 	  Exit Sub
 	End If
 	objectsCount = oSelections.getCount() - 1
 	If objectsCount < 2 OR objectsCount > 2 Then
-	  MsgBox "Нужно выделить два объекта"
+	  MsgBox getTranslation("bidirectLinkSuggestion")
 	  Exit Sub	
 	End If
 	
@@ -124,7 +124,7 @@ End Function
 
 sub convertIndesignPageBreaks
 	Dim description As String
-	description = "Запустить восстановление разрывов страниц?"
+	description = getTranslation("convertIndesignPageBreaksConfirmation")
 	If NOT confirm(description) Then
 		Exit Sub
 	EndIf
@@ -187,7 +187,7 @@ sub convertIndesignPageBreaks
 		  End If
 		  oFound = ThisComponent.findNext(oFound.End, oSearch)
 	Loop
-	MsgBox "Восстановление разрывов страниц завершено."
+	MsgBox getTranslation("convertIndesignPageBreaksFinish")
 end Sub
 
 Sub adjustLastLine(oTextCursor)
@@ -302,7 +302,7 @@ End Sub
 
 Sub convertBookmarksToFootnotes()
 	Dim description As String
-	description = "Запустить восстановление сносок из текста?"
+	description = getTranslation("convertIndesignFoonotesConfirmation")
 	If NOT confirm(description) Then
 		Exit Sub
 	EndIf
@@ -341,7 +341,7 @@ Sub convertBookmarksToFootnotes()
 	Next i
 	
 	resetNotesStyle
-	MsgBox "Восстановление сносок завершено."
+	MsgBox getTranslation("convertIndesignFootnotesFinish")
 End Sub
 
 Sub convertLinkToFootnote(forwardLink,backwardLink)
@@ -451,6 +451,7 @@ Sub replaceParaStyle
     oDialog = CreateUnoDialog( DialogLibraries.ePublishing.replaceParaStyle )
     listBox = oDialog.getControl("ListBox1")
     listBox.addItems(sortedDPSN , 0)
+    oDialog.Title = getTranslation("replaceParaStyleDialogTitle")
     oDialog.Execute()
     newStyleName = oDialog.model.Tag
     If newStyleName="0" or newStyleName="" Then
@@ -461,14 +462,14 @@ Sub replaceParaStyle
 	newStyleName = paraStyleNames(foundIndex)
  
     If newStyleName = oldStyleName Then
-        MsgBox "Стили не различаются"
+        MsgBox getTranslation("replaceParaStyleStylesEqualsNotification")
         Exit sub
     EndIf
 
     If oldStyleName <> "" Then
 	    oldStyle = paraStyles.getByName(oldStyleName)
 	    If NOT oldStyle.isUserDefined Then
-        	MsgBox "Невозвожно заменять встроенные стили"
+        	MsgBox getTranslation("replaceParaStyleCurrentStyleIsStandard")
     	    Exit sub
 	    EndIf
     	oldStyle.ParentStyle = newStyleName