Yo lo hago de la siguiente manera:
Código:
WinWord.Selection.Find.ClearFormatting;
WinWord.Selection.Find.Text := Trim('Caducidad'); //busca palabra clave
WinWord.Selection.Find.Execute; //Ejecutamos la busqueda
WinWord.Selection.EndKey(wdLine); //Nos situamos al final de la linea
De todas formas una manera fácil de resolver estos problemas es crear macros en Word y luego consultar el codigo Visual.
Es muy fácil adaptarlo posteriormente a Delphi.
Suerte.