problemas al hacer un archivo word

[rikimm]

hola que tal a todos estoy haciendo un en un boton en la cual lo que hace es abrir un archivo word que ya esta diseñado pero quisiera que escriviera lo que pone en la caja de texto en ciertas parte de la hoja me dicen que tiene que ser con evento remplace que ponga por decirlo asi
ejemplo
en el arcvivo word ponga lo sig.
nombre: nombre1 apellido: apellido1

pero solo tengo que rempalzar las parte donde dice nombre1 y apellido1 por lo que que escriven en la caja de texto segun yo pongo el codigo siguiente q no me funciona

Código Vb2008:

Dim word As New Microsoft.Office.Interop.Word.Application
 Dim texto As Microsoft.Office.Interop.Word.Paragraph
 word.Documents.Open("C:\Users\riki\Documents\Contrato.doc")
 texto.Range.Text.Replace("nombre1",textbox1.text)
 

ese codigo no me funciona alguien me puede decir como es o que es lo que me falta hacer

[gnzsoloyo]

No te funciona porque texto lo estás creando como interfase para ubicar el párrafo que contiene el documento abierto, pero todavía no lo estas refiriendo a él.
Entre la línea 3 y la 4 debería haber una en la que vincules texto con el párrafo activo del documento cuya interfase es word...
Algo así como

texto = word.Paragraphs

o

texto = word.Paragraphs(0)

[rikimm]

pero he estabo buscadon que me falta mas no que es la busqueda del texto y rempalzarlo si no me equivoco tendras algun ejemplo gnzsoloyo

[rikimm]

no logro resolver mi problema alguien que me pueda ayudar

encontre este codigo pero hay una instrucion que no me funciona aver si me pueden hechar la mano

Código Vb2008:

Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Document
        doc = word.Documents.Open("C:\Users\riki\Documents\Contrato.doc")
        word.Visible = True
        With word.Selection.Find
            .Text = "Nombre"
            .Replacement.Text = "hola"
            .Forward = True
            .Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        word.Selection.Find.Execute()
        With word.Selection
            If .Find.Forward = True Then
                .Collapse(Direction:=wdCollapseStart) '' estas instruciones no me funcionan
            Else
                .Collapse(Direction:=wdCollapseEnd)   '' estas instruciones no me funcionan
            End If
            .Find.Execute(Replace:=wdReplaceOne)  '' estas instruciones no me funcionan
            If .Find.Forward = True Then
                .Collapse(Direction:=wdCollapseEnd)  '' estas instruciones no me funcionan
            Else
                .Collapse(Direction:=wdCollapseStart) '' estas instruciones no me funcionan
            End If
            .Find.Execute()
        End With
 

[gnzsoloyo]

Dale una mirada a este ejemplo de Microsoft: Cómo automatizar Word desde Visual Basic .NET para crear un nuevo documento

[rikimm]

gracias pero no me sirve mucho porque lo que necesito es sustituir una palabra que esta en el documento word por una de la caja de texto y ahi no viene nada de eso y lo mas cercano son los codigos que he puesto pero no se pork en uno me ma manda error