Buscar y reemplazar

[sur-se]

Hola. Con el código siguiente consigo abrir un documento de word, pero ahora necesito buscar un texto en dicho documento y reemplazarlo por otro. ¿Como podría hacerlo?.

var
  Word: Variant;
  FileName: OleVariant;
begin
  try
    Word := GetActiveOleObject('Word.Application');
  except
    Word := CreateOleObject('Word.Application');
  end;

  FileName := 'C:\Memoria2.doc';
  Word.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam,
  		      EmptyParam, EmptyParam, EmptyParam, EmptyParam,
		      EmptyParam, EmptyParam);
  Word.Visible := True;
end;

Gracias.

[sur-se]

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:

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.

[roman]

Empezado por sur-se

por si a alguien le puede interesar

Seguramente así será. Muchas gracias por tomarte la molestia de publicar la solución.

// Saludos