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
      If oPar.Range.Words(2) = vbTab Then
         Set oRng = oPar.Range.Words(1)
         ActiveDocument.Fields.Add oRng, wdFieldSequence, "Numbered", False
      End If
    End If
  Next oPar
End Sub