Word macro for selecting text and putting it in footnotes

gmayor · #1 02-11-2016, 05:29 AM

Maybe something like

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, _
                          ReplaceWith:="\1")
            ActiveDocument.Footnotes.Add oRng, CStr(i), oRng.Text
            i = i + 1
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

mdhg · #2 02-11-2016, 06:01 AM

Quote:

Originally Posted by gmayor

Maybe something like

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, _
                          ReplaceWith:="\1")
            ActiveDocument.Footnotes.Add oRng, CStr(i), oRng.Text
            i = i + 1
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

This works, thank you so much! (I'm not the one to judge, but: I looks really elegant too.)
Just one thing: The text between the brackets isn't deleted. It is transfered to the footnote, but it stays in the main art as well. How can I adapt the code get rid of the text in the main part?
Thanks!

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2013 does not search text in footnotes unless I first click in a footnote	amz	Word	1	11-18-2015 01:56 PM
word 2007 - footnotes and text box	glggluig	Word	1	08-10-2014 04:09 AM
Putting text in color shapes	dianabanana	Word	1	04-07-2014 08:07 PM
Putting text to Excel	Leandro	Office	2	03-01-2012 11:51 PM
Selecting the macro document	lars	Word VBA	0	08-19-2010 06:06 AM