diff --git a/ePublishing/PageConfig.xdl b/ePublishing/PageConfig.xdl
index e3ac501..934b5eb 100644
--- a/ePublishing/PageConfig.xdl
+++ b/ePublishing/PageConfig.xdl
@@ -1,14 +1,28 @@
-
+
-
-
+
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
\ No newline at end of file
+
diff --git a/ePublishing/PageStyles.xba b/ePublishing/PageStyles.xba
index 46ccab8..3034779 100644
--- a/ePublishing/PageStyles.xba
+++ b/ePublishing/PageStyles.xba
@@ -1,6 +1,29 @@
-Sub setDimensions
+Sub pageStylesDialog
+ DialogLibraries.LoadLibrary("ePublishing")
+ Dim dialog As Object
+ Dim listBox As Object
+ Dim oStyles As Object
+ Dim pageStyles As Object
+ Dim pageStyleNames() As String
+ oStyles = ThisComponent.StyleFamilies
+ pageStyles = oStyles.getByName(oStyles.elementNames(2))
+ pageStyleNames = pageStyles.getElementNames
+ 'Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
+ 'MRI pageStyles
+
+
+ dialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig )
+ listBox = dialog.getControl("pageStyles")
+ listBox.addItems(pageStyleNames , 0)
+ dialog.Title = getTranslation("batchChangePageStyleProperties")
+ dialog.Execute()
+End Sub
+
+
+
+Sub setDimensions
Dim oStyles As Object
Dim curStyle As Object
Dim inputHeight As String
diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba
index fe96723..0729ac8 100644
--- a/ePublishing/journals.xba
+++ b/ePublishing/journals.xba
@@ -1,6 +1,6 @@
-Private sub journalsMark13
+Private sub journalsMark14
End sub
Dim templateName As String
diff --git a/images/panel.svg b/images/panel.svg
new file mode 100644
index 0000000..498bab4
--- /dev/null
+++ b/images/panel.svg
@@ -0,0 +1,2002 @@
+
+