Hola Felix :
Aqui tengo una rutinita que reemplaza texto en un .doc usando word 97
échale un vistazo y si alguno de la lista me la depura mejor que mejor ya
que esta en fase prueba, casi no la he ejecutado pero el resultado hasta
ahora es satisfactorio.

    Set DC = New Word.Application (haciendo referencia a la libreria de MS
word)
    DC.Documents.Open FilePrinpal.Text ' abrir un fichero que esta
almacenado en un textbox
    DC.Visible = True
    DC.Selection.Find.ClearFormatting
    DC.Selection.Find.Replacement.ClearFormatting
    For i = 1 To data1.Recordset.RecordCount - 1
        If Not IsNull(data1.Recordset(i)) Then
            DC.Selection.Find.Text = "&" & data1.Recordset(i).Name
            DC.Selection.Find.Replacement.Text = data1.Recordset(i)
            DC.Selection.Find.Forward = True
            DC.Selection.Find.Format = False
            DC.Selection.Find.MatchCase = False
            DC.Selection.Find.MatchWholeWord = False
            DC.Selection.Find.MatchWildcards = False
            DC.Selection.Find.MatchSoundsLike = False
            DC.Selection.Find.MatchAllWordForms = False
            DC.Selection.Find.Execute
            End If
        Next i
        DC.PrintOut

Un saludo y teneis comentarios a la lista para que lo vean todos
-----Mensaje original-----
De: FELIX DAVILLA <myf69@hotmail.com>
Para: vb-esp@ccc.uba.ar <vb-esp@ccc.uba.ar>
Fecha: viernes 25 de septiembre de 1998 13:15
Asunto: (VB-ESP) Busqueda de cadenas en ".doc"


        Necesito urgente una funcion que busque un texto en uno o varios
documentos de texto (.doc).

        Se que existen varios programas que lo hacen, pero son bastante
complicados de utilizar, como el Index Server ...

        Si alguno sabeis como se utiliza, mandarme código o lo que
tengais.

        Muchas gracias de antemano a todos.

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com