diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba
index 41c6b55..bc65d5a 100644
--- a/ePublishing/Archive.xba
+++ b/ePublishing/Archive.xba
@@ -613,8 +613,7 @@ Sub convertLinkToFootnote(forwardLink,backwardLink)
 	forward = bookmarks.getByName(forwardLink)
 	backward = bookmarks.getByName(backwardLink)
 	oViewCursor.goToRange(forward.Anchor,false)
-	footNoteSign = oViewCursor.getString()
-	removeTextInFootnote()
+	footNoteSign = getTextInFootnote
 	oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
 	oTextCursor.gotoEndOfParagraph(false)
 	oTextCursor.gotoStartOfParagraph(true)
@@ -632,13 +631,21 @@ End Sub
 
 
 
-Sub removeTextInFootnote
+Function getTextInFootnote As String
 	Dim oViewCursor As Object
+	Dim oTextCursor As Object
 	Dim character As String
+	getTextInFootnote = ""
 	oViewCursor = ThisComponent.CurrentController.getViewCursor()
+	oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
+	oTextCursor.goToStartOfParagraph(false)
+	oViewCursor.goToRange(oTextCursor,false)
 	oViewCursor.goRight(1,true)
 	character = oViewCursor.String
 	Do While isLinkCharacter(character)
+	  If IsNumeric(character) Then
+	    getTextInFootnote = getTextInFootnote & character
+	  EndIf
 	  oViewCursor.String = ""
       oViewCursor.goRight(1,true)
       character = oViewCursor.String
@@ -648,6 +655,13 @@ Sub removeTextInFootnote
     Else
       oViewCursor.goLeft(1,false)
 	EndIf
+End Function
+
+Sub removeFootnoteSignInText
+	Dim oViewCursor As Object
+	Dim character As String
+	oViewCursor = ThisComponent.CurrentController.getViewCursor()
+	oViewCursor.String = ""
 	oViewCursor.goLeft(1,true)
 	character = oViewCursor.String
 	Do While isLinkCharacter(character)
@@ -655,18 +669,11 @@ Sub removeTextInFootnote
       oViewCursor.goLeft(1,true)
       character = oViewCursor.String
 	Loop
-    oViewCursor.goRight(1,false)
-End Sub
-
-Sub removeFootnoteSignInText
-	Dim oViewCursor As Object
-	Dim character As String
-	oViewCursor = ThisComponent.CurrentController.getViewCursor()
-	oViewCursor.goLeft(1,true)
+	oViewCursor.goRight(1,true)
 	character = oViewCursor.String
 	Do While isLinkCharacter(character)
 	  oViewCursor.String = ""
-      oViewCursor.goLeft(1,true)
+      oViewCursor.goRight(1,true)
       character = oViewCursor.String
 	Loop
 	oViewCursor.goRight(1,false)
diff --git a/ePublishing/Footnotes.xba b/ePublishing/Footnotes.xba
index cd93c0c..c089b6e 100644
--- a/ePublishing/Footnotes.xba
+++ b/ePublishing/Footnotes.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="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark6
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark7
 End Sub
 
 Sub openFootNotesDialog