
Originariamente inviata da
un dissennatore
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?