codice:
Sub reale()

'

' reale Macro

'

'

    Do

    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    Loop

End Sub
Praticamente mi aggiunge ', ' davanti a ogni riga.

Esempio:

Pane
Latte
Gatto
Beve
Mangia

diverrà

', 'Pane
', 'Latte
', 'Gatto
', 'Beve
', 'Mangia

Il problema è che continua anche a fine documento.
Qualcuno sa come far fermare automaticamente la macro arrivata alla fine, oppure metterla in loop per sole 279893 volte?
Ho provato anche con la funzione EOF ma non so se son io che non la so usare oppure se non va bene per ciò che voglio fare

Grazie mille in anticipo