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

fd110 · 11-15-2023, 10:16 PM

Quote:

Originally Posted by gmayor

My old friend Greg jumped in and took over the thread, but to address your concerns with my original macro try

Code:

Sub Macro1()
Dim oRng As Range
Dim strText As String
Dim i As Long
    Set oRng = ActiveDocument.Range
    i = 1
    With oRng.Find
        Do While .Execute(FindText:="\[\[(*)\]\]", _
                          MatchWildcards:=True)
            strText = Replace(oRng.Text, "[", "")
            strText = Replace(strText, "]", "")
            ActiveDocument.Footnotes.Add oRng, CStr(i), strText
            oRng.Text = ""
            i = i + 1
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

If that doesn't work for you, post a sample from the document.

That is Great but I want to keep text formatting!!!
Is it possible to keep text formatting like Bold and font type & etc???