How to convert your footnotes and endnotes into compatible bookmarks

Lately I had a lot of trouble with one e-book. I had to format Microsoft word document to comply with standards. The biggest problem was to translate footnotes and endnotes into compatible cross referenced bookmarks/ links. 

 this is what you get if you have problems with Footnotes/Endnotes:

Footnote Error – Smashwords does not support automatic footnoting using Word’s footnoting field codes. If you need footnotes or endnotes, please use plain text in brackets, and then use Word’s “Bookmark” feature, described in the Smashwords Style Guide to create your hyperlinks to your footnotes and endnotes. For example, a paragraph could end with the following footnote… [234] (and then for your footnote or end note you could manually enter [234] followed by the footnote information.)

 Key tip is to put “ref_” in front of every bookmark if you do not want it to appear on the table of contents of your epub.

My book had ~500 endnotes. To do it by hand is a nightmare. To easy my pain i did two word macros – one inserts a bookmark and a link to the bookmark and the other one inserts a link back. (Unfortunately I inserted bookmarks next to endnotes by hand before I realized I need some macro). But is should not be to complex to modify my code to insert that bloody bookmark also.  Just look at the code and find out yourself which macro does what 🙂 So here is the code:

Sub BookamrkMagic()
x = Selection
Selection.MoveLeft Unit:=wdCharacter, Count:=2
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="ref_" + x
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
SubAddress:="ref_x_" + x, ScreenTip:="", TextToDisplay:=x
End Sub

Sub BookamrkMagicX()
x = Selection
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
SubAddress:="ref_" + x, ScreenTip:="", TextToDisplay:=x
End Sub