Selection.Copy & Paste

[computero]

Ciao a tutti... premesso che sono incompetente in materia e che per sbaglio ho postato questo quesito nel forum sbagliato (SCRIPTING ),
facendo una macro in word ho ottenuto questo risultato

Sub indice()
'
' indice Macro
' Macro registrata il 08/05/2003 da _
'
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorRed
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Copy
ActiveWindow.ActivePane.View.ShowAll = True
ActiveDocument.Indexes.MarkAllEntries Range:=Selection.Range, Entry:= _
"XXXXXX", EntryAutoText:="XXXXXX", CrossReference:="", _
CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"INDEX \E"" "" \L"", """, PreserveFormatting:=True
Selection.Font.SmallCaps = wdToggle
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorRed
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

Il mio problema è questo:
nella parte in grassetto "XXXXXX" in automatico la macro mi registra quello che ha trovato in selection.copy
se io ripeto la macro, non mi inserisce il nuovo valore evidenziato con il find, ma mantiene quello vecchio.
Come posso inserire quello che ho copiato ogni volta che ripeto la macro?

Ho provato a inserire

Entry:=Selection.Paste
ma non funziona....

Secondo quesito...
se io volessi ripetere questa macro dall'inizio di un documento alla sua fine, come si fa?
grazie per l'aiuto

[computero]

nessun'idea?