Avatar of Petermcg001
Petermcg001
Flag for United Kingdom of Great Britain and Northern Ireland asked on

Inserting another document into Word doc with vb.net

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
Visual Basic.NET

Avatar of undefined
Last Comment
Petermcg001

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
Rgonzo1971

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
Petermcg001

ASKER
Perfect, thank you so much.
Your help has saved me hundreds of hours of internet surfing.
fblack61