problemas al hacer un archivo word

[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