Microsoft Office Forums - View Single Post - [Solved] Word macro for selecting text and putting it in footnotes

fd110 · 03-06-2024, 08:07 AM

Quote:

Originally Posted by Guessed

If the text formatting is coming from the underlying paragraph style then you won't get it but local character formatting will be preserved by this modification.

Code:

Sub Macro1()
  Dim oRng As Range, oFN As Footnote, rngInner As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(FindText:="\[\[(*)\]\]", MatchWildcards:=True)
      Set oFN = ActiveDocument.Footnotes.Add(oRng, , oRng.Text)
      Set rngInner = oRng.Duplicate
      rngInner.MoveStart Unit:=wdCharacter, Count:=2
      rngInner.MoveEnd Unit:=wdCharacter, Count:=-2
      oFN.Range.FormattedText = rngInner.FormattedText
      oRng.Text = ""
    Loop
  End With
lbl_Exit:
  Set oRng = Nothing
  Set rngInner = Nothing
  Exit Sub
End Sub

Thank you very much, I have another problem.
I have a number of comments in the text, which will be deleted by moving the text to the footnote.
Is there a way to move those comments, for example, to the footnote number in the main text and not delete them?