diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba
index 905049b..fba65dc 100644
--- a/ePublishing/journals.xba
+++ b/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 journalsMark1
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark3
 End sub
 
 Dim templateName As String
@@ -1076,6 +1076,25 @@ End Sub
 
 
 
+Function insertUserField(cursor,fieldName,fieldValue)
+  Dim oField  As Object &apos;Field to insert
+  Dim oFieldMaster As Object
+  Dim oMasters As Object
+  oTextCursor =  cursor.Text.createTextCursorByRange(cursor.Start)
+  oField = ThisComponent.createInstance(&quot;com.sun.star.text.textfield.User&quot;)
+  oMasters = ThisComponent.getTextFieldMasters()
+  If oMasters.hasByName(&quot;com.sun.star.text.FieldMaster.User&quot; &amp; &quot;.&quot; &amp; fieldName) Then
+  	oFieldMaster = oMasters.getByName(&quot;com.sun.star.text.FieldMaster.User&quot; &amp; &quot;.&quot; &amp; fieldName)
+	oFieldMaster.Name = fieldName
+	oFieldMaster.Content = fieldValue
+  Else 
+	oFieldMaster = ThisComponent.createInstance(&quot;com.sun.star.text.FieldMaster.User&quot;)
+	oFieldMaster.Name = fieldName
+	oFieldMaster.Content = fieldValue
+  EndIf
+  oField.attachTextFieldMaster(oFieldMaster)
+  oTextCursor.Text.insertTextContent(oTextCursor, oField, False)
+End Function 
 
 
 </script:module>
\ No newline at end of file