[word]creazione macro

[barnico]

avrei la necessità di creare una macro per inserire dei numeri progressivi associati a degli oggetti del documento.
Qualche idea?

[tetty]

Tipo questo per esempio?

Sub somma()
Dim cella As Range
Set zona = ActiveSheet.Range("f6")
For Each cella In zona
cella = cella + 1
Next
End Sub

[barnico]

grazie per la risposta,
ma poi come faccio ad inserirlo nel documento word?