Preserving formatting when turning footnotes into regular text

[thiagoafdoria]

Hi!

I'm using the following macro to turn footnotes into delimited fragments between "[!" and "!]" in the body of the text:

Sub demo()
Application.ScreenUpdating = False
With ActiveDocument
  Do While .Footnotes.Count > 0
    With .Footnotes(1)
      .Reference.InsertAfter "[!" & .Range.FormattedText & "!]"
      .Delete
    End With
  Loop
End With
Application.ScreenUpdating = True
End Sub

Just now I've realized that the formatting, i.e. bold and italics, are not preserved after I run the macro. So if I have, say, "table" in the footnote, that will turn into "table" in the body of the text.
Is that something I could do to make the macro preserve the formatting?
Thank's!


Thiago