Ya he encontrado la forma de hacerlo. Detallo a continuación el código que he utilizado (continuación del anterior) por si a alguien le puede interesar:
Código:
Word.Selection.Find.ClearFormatting;
Word.Selection.Find.Text :='<texto a buscar>';
Word.Selection.Find.Replacement.Text := '<texto nuevo>';
Word.Selection.Find.Forward := True;
Word.Selection.Find.Wrap := wdFindContinue;
Word.Selection.Find.Format := False;
Word.Selection.Find.MatchCase := False;
Word.Selection.Find.MatchWholeWord := False;
Word.Selection.Find.MatchWildcards := False;
Word.Selection.Find.MatchSoundsLike := False;
Word.Selection.Find.MatchAllWordForms := False;
Word.Selection.Find.Execute (EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, wdReplaceAll, EmptyParam,
EmptyParam, EmptyParam, EmptyParam);
Salu2.