Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Selection.HomeKey Unit:=wdStory
  Do
    Selection.EndKey Unit:=wdLine
    If Selection.End >= ActiveDocument.Content.End - 1 Then
      Exit Do
    End If
    Set oRng = ActiveDocument.Bookmarks("\Line").Range
    With oRng
      .Collapse wdCollapseStart
      .MoveEnd wdCharacter, 1
      .Select
      'Do something with oRng
    End With
    Selection.MoveDown Unit:=wdLine
  Loop
lbl_Exit:
  Exit Sub
End Sub