Foros Club Delphi - Buscar y reemplazar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - Buscar y reemplazar (https://www.clubdelphi.com/foros/showthread.php?t=9139)

Buscar y reemplazar

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?.

Código:

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.

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.

Cita:

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