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.
|
Hi gmayor, I'm looking for help creating a macro similar to the one you created above.
Is there any chance you can whip up code for a macro that does the following:
Takes any string composed of a space, a left curly bracket, text (which may or may not include other curly brackets), a right curly bracket, and a period (such as " {Brennan, 2007, #74498}{George, 2012, #4564}{Maddow, 1977, #3456}." and...
1. Removes the " {Brennan, 2007, #74498}{George, 2012, #4564}{Maddow, 1977, #3456}" (including the first space);
2. Creates a new footnote *after* the period; and
3. Inserts "{Brennan, 2007, #74498}{George, 2012, #4564}{Maddow, 1977, #3456}." as the new footnote's text (with no space preceding the left curly bracket).
If this is possible you'd, like, be my hero for millennia!