Kan man lave for-løkker i en Word-makro

Er det muligt at lave en for-løkke eller while-løkke der kører dette præcis 1000 gange.

Sub overfør()

    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Windows(1).Activate
    Selection.TypeText Text:= _
        \"INSERT INTO tabel1 (Type, navn) VALUES (0, \'\"
    Selection.Paste
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:=\"\');\"
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Windows(2).Activate

End Sub