View Single Post
 
Old 12-26-2019, 11:04 PM
thiagoafdoria thiagoafdoria is offline Windows 10 Office 2019
Novice
 
Join Date: Feb 2017
Posts: 18
thiagoafdoria is on a distinguished road
Default Preserving formatting when turning footnotes into regular text

Hi!

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

Code:
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
Reply With Quote