Salve a tutti, è il mio primo topic in questo forum.
Dovrei sviluppare questo tipo di automatismo in un documento di word:
1. Cercare una frase di questo tipo (Tizio Caio et al., 2003)
2. Copiare la selezione
3. Andare alla fine del documento
4. Incollare ciò che è stato copiato
Sono riuscito a fare un singolo ciclo(vedi codice sotto), ora devo generare un loop che continui a cercare, copiare, andare alla fine ed incollare. Qualcuno mi aiuta ad inserire il mio codice in un loop tipo FOR , DO, WHILE ?
Grazie
Davide
ecco il codice:
Sub macro1()
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Text = "[(]*et al*[)]"
.Execute Forward:=True
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Copy
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.PasteAndFormat wdPasteDefault
End Sub