主题：如何将多个WORD文件合并在一个WORD文件上，保持原格式不变？

Dim wapp1 As New MSWord.Application
Dim wapp2 As New MSWord.Application
try
    Dim doc1 = wapp1.Documents.Open("d:\test1.doc")
    Dim doc2 = wapp2.Documents.Open("d:\test2.doc")
    wapp2.ActiveWindow.Selection.WholeStory
    wapp2.ActiveWindow.Selection.copy
   
    wapp1.ActiveWindow.Selection.WholeStory
    wapp1.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    wapp1.ActiveWindow.Selection.TypeParagraph
    wapp1.ActiveWindow.Selection.paste
    wapp2.Quit
    wapp1.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp1.Quit
    wapp2.Quit
finally
   
end try

打开的test1表中第一页是空白的，应如何删除？或复制时不出现？