Microsoft Office Forums - View Single Post - VB for Word - Need macro to loop each line in a document

gmaxey · 12-22-2015, 06:00 PM

Paul is right, however I thought the numbers in each paragraph was followed by the word "Segment"

This should work:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim oRng As Range
  For Each oPar In ActiveDocument.Paragraphs
    If IsNumeric(oPar.Range.Characters(1)) Then
      Set oRng = oPar.Range
      oRng.Collapse wdCollapseStart
      oRng.MoveEndUntil ".", wdForward
      oRng.MoveEnd wdCharacter, 2
      oRng.Delete
    End If
  Next
  Set oRng = ActiveDocument.Range
  oRng.Text = Replace(oRng.Text, vbCr, "")
lbl_Exit:
  Exit Sub
End Sub