Kratos
Con me cascate male! >_
*premetto che il vba non lo conosco per niente*
Allora, ecco la macro:
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:
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?
Grazie mille in anticipo :)
Allora, ecco la macro:
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
Latte
Gatto
Beve
Mangia
diverrà
', 'Pane
', 'Latte
', 'Gatto
', 'Beve
', 'Mangia
Qualcuno sa come far fermare automaticamente la macro arrivata alla fine, oppure metterla in loop per sole 279893 volte?
Grazie mille in anticipo :)
Ultima modifica di un moderatore: