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; |
#2
|
|||
|
|||
Solucionado
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); |
#3
|
||||
|
||||
Cita:
// Saludos |
|
|
|