VB for Word - Need macro to loop each line in a document

macropod · #1 12-22-2015, 08:12 PM

The macro equivalent of the wildcard Find/Replace is:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  .InsertBefore vbCr
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^13[0-9]{1,}.^32"
    .Replacement.Text = "^p"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
  While .Characters.First = vbCr
    .Characters.First.Delete
  Wend
End With
Application.ScreenUpdating = True
End Sub

It's unclear whether you intend to retain a paragraph break between the segments. If not, delete the ^p from the code. Likewise, it's unclear whether you want to remove the space following the number. If not, delete the ^32.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
macro to add brackets to each line and add single quotes to each word in the line	bracketandquotes	Word VBA	17	02-16-2015 03:51 PM
Save As Macro using first line of document as document name	redzan	Word VBA	1	01-31-2015 09:24 PM
Loop through each Line in Word	ilcaa72	Word VBA	4	02-13-2014 11:48 AM
Macro to loop in Word	Yamaha Rider	Word VBA	2	02-07-2012 05:33 PM
WORD Macro - import picture - resize - position - page break - loop	Nano07	Word VBA	2	11-02-2011 05:14 AM