diff --git a/description.xml b/description.xml
index 5f998d3..186ca80 100644
--- a/description.xml
+++ b/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.12" />
+  <version value="0.7.13" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>
diff --git a/ePublishing/PageStyles.xba b/ePublishing/PageStyles.xba
index 5a0ce36..c45f0f3 100644
--- a/ePublishing/PageStyles.xba
+++ b/ePublishing/PageStyles.xba
@@ -1,6 +1,7 @@
 <?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="PageStyles" script:language="StarBasic" script:moduleType="normal">	Dim pDialog As Object
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="PageStyles" script:language="StarBasic" script:moduleType="normal">
+	Dim pDialog As Object
 Sub pageStylesDialog
 	
 	Dim listBox As Object
@@ -356,8 +357,8 @@ Function covertMMtoLong(dimension As String) As Long
 		convertMMtoLong = -1
 		Exit Function
 	EndIf
-	dimension = customReplace(dimension, &quot;,&quot;, &quot;.&quot;)
-	If Not IsNumeric(dimension) Then
+	dimension = customReplace(dimension, &quot;.&quot;, &quot;,&quot;)
+	If Not IsNumeric( dimension ) Then
 		convertMMtoLong = -1
 		Exit Function
 	EndIf
@@ -377,4 +378,4 @@ Function customReplace(Source As String, Search As String, NewPart As String) As
   customReplace = Result
 End Function
 
-</script:module>
\ No newline at end of file
+</script:module>