Programador Novato

Imports Microsoft.Office.Interop.Word 'control de office
Imports Microsoft.Office.Interop

Public Class Form1
    Dim Documento As Word.Document

    Private Sub abrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abrir.Click
        Dim MSWord As New Word.Application
        Documento = MSWord.Documents.Open(path.Text)
        MSWord.Visible = True
    End Sub

    Private Sub buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buscar.Click
        'BUSCAMOS EL TEXTO
        Documento.ActiveWindow.Selection.Find.Text = txtBuscar.Text
        Documento.ActiveWindow.Selection.Find.Forward = True
        Documento.ActiveWindow.Selection.Find.MatchCase = False
        'SI SI SE ENCONTRO EL TEXTO
        If Documento.ActiveWindow.Selection.Find.Execute() Then
            'NOS MOVEMO S UNA LINEA ADELANTE
            Documento.ActiveWindow.Selection.MoveRight(Unit:=WdUnits.wdCharacter, Count:=1)
            'ESCRIBIMOS
            Documento.ActiveWindow.Selection.TypeText(Text:="<--Aqui estas :)")
        End If
    End Sub
End Class