Quote Originariamente inviata da un dissennatore Visualizza il messaggio
quindi nel mio caso diverrà
codice:
Dim contatore as Integer 
Contatore = 0
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

    contatore = contatore+1

Loop Until contatore >279892
End sub
giusto?
Si prova.. Esegue il ciclo e poi esce.
Però non so se sia il caso di eseguire 280 mila volte quelle istruzioni..