Macro to find text only footnote numbers

macropod · #6 04-10-2014, 03:20 PM

You could use a macro like:

Code:

Sub Demo()
Dim Rslt, Rng As Range
Set Rng = Selection.Range
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[0-9]{1,}"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    If (.Characters.First.Previous <> "/") And (.Characters.Last.Next <> "/") Then
      .Select
      Rslt = MsgBox("Replace this instance of:" & vbCr & .Text, vbYesNoCancel)
      If Rslt = vbCancel Then Exit Sub
      If Rslt = vbYes Then .Text = vbNullString
    End If
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Rng.Select
End Sub

Do note that the message box the code uses is liable to hide the found text at times; you can drag the box out of the way, though. Given that, as I said before, footnote numbers won't always be sequential, I don't see what the counter would achieve.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 AM
Macro to find text in between two characters and then format selected text?	qcom	Word	5	02-19-2015 11:23 PM
VBA code for Microsoft Word macro — select text and insert footnote	ndnd	Word VBA	10	01-06-2015 01:47 PM
Need help on Macro 03- Find text - if text is blank then remove line	simpleonline1234	Word VBA	1	02-25-2011 02:28 AM
Find and replace page numbers in body of text	tollanarama	Word	3	02-13-2011 06:00 AM