Imports

Microsoft.Office.Interop.Word
Public Shared Sub WriteToBookMark(ByVal psBookMarkName As String, ByVal psBookMarkValue As String, ByVal pobjDocument As Word.Document)

Dim pobjWordApplication As Word.Application = pobjDocument.Application

Dim lnCounter As Integer = pobjDocument.Bookmarks.Count

Dim lnIndex As Integer

For lnIndex = 1 To lnCounter

Dim lobjObject As Object = CType(lnIndex, Object) If psBookMarkName.Trim() = pobjDocument.Bookmarks.Item(lobjObject).Name.Trim() Then

pobjDocument.Bookmarks.Item(lobjObject).[Select]()

pobjWordApplication.Selection.TypeText(psBookMarkValue)

Exit For

End If

Next

End Sub

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click

Dim lobjWordApplication As New Word.Application Dim lobjDocument As New Word.Document

lobjDocument = lobjWordApplication .Documents.Open("C:/Documents/Customer.doc")
WriteToBookMark ("CustomerName", "Mr. Customer", lobjWordApplication, lobjDocument)

Dim lobjMissing As Object = System.Reflection.Missing.Value

lobjDocument.SaveAs(

"C:/Documents/NewCustomer", WdSaveFormat.wdFormatDocument, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing, lobjMissing)

End Sub