Programador Novato > Sin categoría > Manipular word desde VB.net ?

Manipular word desde VB.net ?

Manipular%2Bword%2Bdesde%2BVB.net
Click en tools -> Extension Manager

En el area de busqueda  colocamos nuget y despues click en download y reiniciamos vstudio

Click en nuevo proyecto

Seleccionamos .Net Framework 3.5 despues vb froms, colocamos el nombre del proyecto y click en ok

Click en guardar todo y save

Seleccionar tools -> Nuget Package Manager -> Manage Nuget Package for solution
Buscamos Microsoft.Office.Interop.Word y click en download
Codigo:
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

Formulario:

Proyecto visual studio
Word del ejemplo

Salir de la versión móvil