Inserting another document into Word doc with vb.net

Petermcg001
Petermcg001 used Ask the Experts™
on
Hello

I am creating Word documents via Vb.net, adding the name and address details from a contact database automatically.  I now need to be able to insert another document.  My existing code is:-

  Dim oWord As Object

        Dim oDoc As Object
        Dim oPara1 As Object




        Dim objDoc As Object
        Dim objDocs As Object
        Dim range As Object

        oWord = CreateObject("Word.Application")
        objDocs = oWord.Documents
        '  oDoc = objDocs.Add("c:\data\mytemplate.doct")
        oDoc = objDocs.Add

        oDoc.Paragraphs.SpaceAfter = 0

        oDoc.Paragraphs.SpaceBefore = 0

        oWord.Visible = True

        oPara1 = oDoc.Content.Paragraphs.Add
        '  oPara1.Style = oDoc.Styles("No Spacing")
        oPara1.Range.Text = Trim(cmbTitle.Text) & " " & txtForename.Text.Substring(0, 1) & " " & txtSurname.Text & vbCrLf & Trim(txtContactAddress.Text) & vbCrLf & Trim(cmbContactTown.Text) & vbCr & Trim(cmbContactCounty.Text) & " " & Group.FGPostcode & vbCrLf


        '    oPara1.Range.Font.Name = "Calibri"
        oPara1.Range.Font.Bold = False
        '   oPara1.Format.SpaceAfter = 0
        oPara1.Range.InsertParagraphAfter()


        oPara1 = oDoc.Content.Paragraphs.Add
        oPara1.Range.Text = "Dear " & txtSalutation.Text & vbCrLf
        '    oPara1.Range.Font.Name = "Calibri"
        oPara1.Range.Font.Bold = False

       

        oDoc.Content.InsertFile("C:\data\myadd.doc")


        oDoc.SaveAs(SaveFile.FileName)


However if I use this all the text in the document is replaced by the contents of "C:\data\myadd.doc" rather than the text being added at the end of the name and address details.

Thanks
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2016
Commented:
Hi,

pls try
oDoc.Bookmarks("\EndOfDoc").Range.InsertFile("C:\data\myadd.doc")

Open in new window

EDIT or
         oPara1 = oDoc.Content.Paragraphs.Add
         oPara1.Range.InsertFile("C:\data\myadd.doc")

Open in new window


Regards

Author

Commented:
Perfect, thank you so much.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial