Iterative / sequential find and replace

gmaxey · #5 11-06-2012, 05:18 AM

Continuing Paul's approach, I would suggest adding a sequence field rather than a fixed number. This way, if needed, you still rearrange the list.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Word.Paragraph
Dim oRng As Word.Range
For Each oPar In ActiveDocument.Range.Paragraphs
  If Not oPar.Range.Words(1) Like vbCr Then
    Set oRng = oPar.Range.Words(1)
    oRng.Select
    ActiveDocument.Fields.Add oRng, wdFieldSequence, "Numbered", False
  End If
Next oPar
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM
Is there a way to use "find/replace" to find italics words?	slayda	Word	3	09-14-2011 02:16 PM
Find and Replace	kjxavier	Word	6	08-19-2011 09:56 PM
Find and Replace	kjxavier	Word	1	08-12-2011 08:57 AM
Help with find and replace or query and replace	shabbaranks	Excel	4	03-19-2011 08:38 AM