Here is my code:
Public Class Form1
Dim db As New DBDataContext
Private Sub btnInsert_Click(sender As System.Object, e As System.EventArgs) Handles btnInsert.Click
Dim c = (From c1 In db.CustomerDetails
Select c1).FirstOrDefault
Dim oWord As Application
Dim oDoc As Document
oWord = CreateObject("Word.Application")
oDoc = oWord.Documents.Add()
oDoc.Application.Selection.Range.InsertFile(Environment.CurrentDirectory & "\Doc1.doc")
oDoc.Bookmarks("cust_name").Range.Text = c.cust_name
oDoc.Bookmarks("cust_address").Range.Text = c.cust_address
oDoc.Bookmarks("cust_contact").Range.Text = c.cust_contact
oDoc.ActiveWindow.Selection.WholeStory()
oDoc.ActiveWindow.Selection.Copy()
oWord.Visible = True
End Sub
End Class
I wish i can fill all data row in
c object into .doc file. So i will remove
FirstOrDefault then loop it, i am expected a resulting which many pages was created. But it error!