Petermcg001
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.Applica tion")
objDocs = oWord.Documents
' oDoc = objDocs.Add("c:\data\mytem plate.doct ")
oDoc = objDocs.Add
oDoc.Paragraphs.SpaceAfter = 0
oDoc.Paragraphs.SpaceBefor e = 0
oWord.Visible = True
oPara1 = oDoc.Content.Paragraphs.Ad d
' oPara1.Style = oDoc.Styles("No Spacing")
oPara1.Range.Text = Trim(cmbTitle.Text) & " " & txtForename.Text.Substring (0, 1) & " " & txtSurname.Text & vbCrLf & Trim(txtContactAddress.Tex t) & 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.InsertParagra phAfter()
oPara1 = oDoc.Content.Paragraphs.Ad d
oPara1.Range.Text = "Dear " & txtSalutation.Text & vbCrLf
' oPara1.Range.Font.Name = "Calibri"
oPara1.Range.Font.Bold = False
oDoc.Content.InsertFile("C :\data\mya dd.doc")
oDoc.SaveAs(SaveFile.FileN ame)
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
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.Applica
objDocs = oWord.Documents
' oDoc = objDocs.Add("c:\data\mytem
oDoc = objDocs.Add
oDoc.Paragraphs.SpaceAfter
oDoc.Paragraphs.SpaceBefor
oWord.Visible = True
oPara1 = oDoc.Content.Paragraphs.Ad
' oPara1.Style = oDoc.Styles("No Spacing")
oPara1.Range.Text = Trim(cmbTitle.Text) & " " & txtForename.Text.Substring
' oPara1.Range.Font.Name = "Calibri"
oPara1.Range.Font.Bold = False
' oPara1.Format.SpaceAfter = 0
oPara1.Range.InsertParagra
oPara1 = oDoc.Content.Paragraphs.Ad
oPara1.Range.Text = "Dear " & txtSalutation.Text & vbCrLf
' oPara1.Range.Font.Name = "Calibri"
oPara1.Range.Font.Bold = False
oDoc.Content.InsertFile("C
oDoc.SaveAs(SaveFile.FileN
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER