Copy notes at the end in Microsoft Word

I want to copy the notes at the end of a Word document and paste them into the body of the text without losing the numbering. With this code I can do it (copy the notes at the end and change each reference number in the text) but I can not copy with format. How can I keep the format of the text of the notes at the end (bold, italics)? Thanks from now.

For Each nota In ActiveDocument.Endnotes
      ActiveDocument.Range.InsertAfter vbCr & nota.Index & vbTab & nota.Range
      nota.Reference.InsertBefore "[" & nota.Index & "]"
Next nota