Prova questo codice (che poi adatterai alle tue esigenze da incollare in 'ThisDocument') che si manda in esecuzione tramite un 'button':
Code:Private Sub CommandButton1_Click()
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ax" 'testo da rimpiazzare
.Replacement.Text = "ciao" 'testo nuovo
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchByte = False
.CorrectHangulEndings = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute replace:=wdReplaceAll
End Sub
potresti inserire, tramite un Form, le varie voci da modificare di volta in volta