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

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