【关于Excel VBA】一个VBA操作Excel生成word的问题！

大家好，我的问题是这样的：
我有一个Excel文件，文件里有sheet1，sheet2，sheet3……，然后我要分别将这几个sheet生成在一个word里面，每一个sheet都是单独的一页，目前我实现的，只能一个sheet生成单独一个word文档，求问大家如何合成一个word呀~

我目前使用的代码如下：

Sub GenDocfromExcel()
 
'excel控制word,生成新文件，插入图片和文件名，保存
'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library
'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
'...
 
Worksheets("sheet2").Range("A1:g13").Copy '复制当前内容
 
Dim WordApp As Word.Application '定义变量
Set WordApp = CreateObject("Word.Application") '生成WORD对象
WordApp.Documents.Add '新建文件
 
WordApp.Selection.Paste '粘贴
 
fn$ = "D:\" & Worksheets("sheet2").Range("a1") '生成文件名
WordApp.ActiveDocument.SaveAs fn$ '保存文件
 
WordApp.Quit '退出
Set WordApp = Nothing '取消变量
 
End Sub