I got a macro from a friend of the site that sends the text to the footer keeping the formatting
Now my problem is that when I have a comment in that text field, I lose that comment
I wanted, if possible, to send the comment to the number of the footnote in the text before sending the text to the footnote, so that I don't lose the comment.

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?

Dim sTemp As String
With Selection.Find
.ClearFormatting
.Text = "\C*\C"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
End With

Do While Selection.Find.Execute
sTemp = Selection.Text
sTemp = Mid(sTemp, 2, Len(sTemp) - 2)
sTemp = Trim(sTemp)
Selection.Text = ""
Selection.MoveEnd Unit:=wdCharacter
Selection.MoveStart Unit:=wdCharacter, Count:=-1
If Selection.Text = " " Then Selection.Text = " "
Selection.Collapse
ActiveDocument.Comments.Add Range:=Selection.Range, Text:=sTemp

Loop

I have used this macro for comments
If the last line of this macro can be changed so that it can select the text from the footnote and comment it with the footnote number in the text, my problem will be solved.