Option Strict Off
Imports System.IO
Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.Word
Public Class clsWord
    Dim txt As String   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim wrdNew As New Microsoft.Office.Interop.Word.Application
        Dim doc1 As Microsoft.Office.Interop.Word.Document
 
        doc1 = wrdNew.Documents.Open("c:\eigen\test.doc")
        doc1.Activate() 
        wrdNew.Selection.Move(wrdNew.WdUnit.wdWord, Count:=1)
        wrdNew.Selection.Text = "Nanu"
        doc1.SaveAs("c:\eigen\test1.doc")
        doc1.Close()
        wrdNew.Quit()
    End Sub
 
End Class