Cacher is the code snippet organizer for pro developers

Sub addLineNum()
    Dim i As Integer
    i = 1
    Do While (Selection.End < ActiveDocument.Content.End - 1)
        
        Selection.TypeText CStr(i) + ". "
        Selection.Move 4
        i = i + 1
    Loop
End Sub