sur-se
15-04-2004, 11:25:53
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.
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.