![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
|
|
![]() |
|