[VBA] dare un termine ad un loop

[un dissennatore]

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

[renygade]

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

Devi porre una condizione di verifica vicino alla keyword loop.
Se quindi si verifica una certa condizione il ciclo si interrompe e prosegue con l'esecuzione delle istruzioni successive.
Qui trovi degli esempi
http://www.ozgrid.com/VBA/do-while-loop.htm

[un dissennatore]

Non è che ci abbia capito molto ^^'
Invece che fine documento, si può fare un loop per un tot di volte che gli dico io?

[renygade]

Non è che ci abbia capito molto ^^'
Invece che fine documento, si può fare un loop per un tot di volte che gli dico io?

Certo che si può.. é la condizione più banale.

Dim contatore as Integer 'variabile contatore
Contatore = 0
Do
   .... Le tue istruzioni
   contatore = contatore+1

Loop Until contatore >9

In questo caso il blocco istruzioni tra do e loop viene eseguito 10 volte (da 0 a 9).
La variabile contatore viene infatti incrementata di 1 a ogni ciclo. La condizione >9 è vera finché contatore è inferiore a 9. Quando viene incrementato fino a 10 la condizione specifica da until si verifica e il ciclo termina. Facile no?

[un dissennatore]

Certo che si può.. é la condizione più banale.

Dim contatore as Integer 'variabile contatore
Contatore = 0
Do
   .... Le tue istruzioni
   contatore = contatore+1

Loop Until contatore >9

In questo caso il blocco istruzioni tra do e loop viene eseguito 10 volte (da 0 a 9).
La variabile contatore viene infatti incrementata di 1 a ogni ciclo. La condizione >9 è vera finché contatore è inferiore a 9. Quando viene incrementato fino a 10 la condizione specifica da until si verifica e il ciclo termina. Facile no?

quindi nel mio caso diverrà

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?

[renygade]

quindi nel mio caso diverrà

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..

[un dissennatore]

Si prova.. Esegue il ciclo e poi esce.
Però non so se sia il caso di eseguire 280 mila volte quelle istruzioni..

Grazie mille, te ne sono grato.
Non prendermi per pazzo, mi serve per davvero

[renygade]

Grazie mille, te ne sono grato.

Beh prego.

Non prendermi per pazzo, mi serve per davvero

Ah sisi, mi fido. Buon lavoro!

[un dissennatore]

Beh prego.

Ah sisi, mi fido. Buon lavoro!

Grazie!