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
2018 09 08%2B21 21 54 Start%2BPage%2B %2BMicrosoft%2BVisual%2BStudio

En el area de busqueda  colocamos nuget y despues click en download y reiniciamos vstudio
2018 09 09%2B16 05 49 Start%2BPage%2B %2BMicrosoft%2BVisual%2BStudio

Click en nuevo proyecto
2018 09 09%2B14 11 00 Start%2BPage%2B %2BMicrosoft%2BVisual%2BStudio

Seleccionamos .Net Framework 3.5 despues vb froms, colocamos el nombre del proyecto y click en ok
2018 09 10%2B14 06 59 twilio2%2B %2BMicrosoft%2BVisual%2BStudio

Click en guardar todo y save

2018 09 11%2B23 42 19 sqlite3%2B %2BMicrosoft%2BVisual%2BStudio
Seleccionar tools -> Nuget Package Manager -> Manage Nuget Package for solution
2018 09 09%2B16 35 56 twiliovb%2B %2BMicrosoft%2BVisual%2BStudio
Buscamos Microsoft.Office.Interop.Word y click en download
2018 09 15%2B04 38 10 word1.sln%2B %2BManage%2BNuGet%2BPackages
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:
2018 09 15%2B04 23 01 word1%2B %2BMicrosoft%2BVisual%2BStudio
Proyecto visual studio
Word del ejemplo