End of Word Document and Append from Excel VB
I am currently successfully moving data from Excel to Word and now want to
use Excel VB to append several word files together (created from Excel 2003 on Windows XP Pro). I have two questions related to this. 1) I want to know how to move the insert point to the end of the Word document I open before I insert the next document. I recorded a macro in Word and then tried: WordApp.ActiveDocument.Selection.EndKey Unit:=6 But it didn't work. Does anyone know what will work? Please provide code examples. 2) I then want to insert a Word document at this end point. From that same Word macro, I learned and planned to use: WordApp.ActiveDocument.Selection.InsertFile Filename:="File1.doc" _ , Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False will this work? If not what will work? Please provide code examples. Thanks M |
End of Word Document and Append from Excel VB
Hi Modeerf60,
Try something along the lines of: Dim oRng As Range With WordApp.ActiveDocument .Range.Characters.Last.InsertAfter vbCrLf Set oRng = .Range.Characters.Last oRng.InsertFile FileName:="File1.doc", ConfirmConversions:=False, Link:=False, Attachment:=False End With -- Cheers macropod [Microsoft MVP - Word] "Modeerf60" wrote in message ... I am currently successfully moving data from Excel to Word and now want to use Excel VB to append several word files together (created from Excel 2003 on Windows XP Pro). I have two questions related to this. 1) I want to know how to move the insert point to the end of the Word document I open before I insert the next document. I recorded a macro in Word and then tried: WordApp.ActiveDocument.Selection.EndKey Unit:=6 But it didn't work. Does anyone know what will work? Please provide code examples. 2) I then want to insert a Word document at this end point. From that same Word macro, I learned and planned to use: WordApp.ActiveDocument.Selection.InsertFile Filename:="File1.doc" _ , Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False will this work? If not what will work? Please provide code examples. Thanks M |
All times are GMT +1. The time now is 01:36 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com