Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
  Do
    Selection.Style = ActiveDocument.Styles("style 1")
    For lngIndex = 1 To 6
      Selection.MoveRight Unit:=wdCell
      If Left(Selection.Cells(1).Range.Text, Len(Selection.Cells(1).Range.Text) - 2) = "%string" Then Exit Do
    Next lngIndex
  Loop
lbl_Exit:
  Exit Sub
End Sub