VB初心者質問スレPart2

Visual BasicのフォームでExcel worksheetにリストした複数のテキストファイルを新規Word文書に順次コピーして1つのファイルにまとめたいのですが、Visual BasicからWord文書を、「すべて選択、コピー、閉じる、文書１をアクティブ化して、貼り付ける」ところのコーディングを教えていただけないでしょうか？

y = 1
wdName = "filler"
Do While wdName <> ""
wdName = ExcelBook.Worksheets("Sheet1").Cells(y, 1)
Set WordDoc = WordObject.Documents.Open(filename:=File1.Path & "\" & wdName)
Selection.WholeStory 'Word VBAなのでエラーになる
Selection.Copy '同上
ActiveWindow.Close '同上
　 Windows("文書 1").Activate '同上
Selection.Paste 'この代わりに下記のコードで動くが無駄がある？

WordDoc.Paragraphs(1).Range.Paste 'Paragraphs(1).Rangeが不要では？
y = y + 1
Loop