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表中第一页是空白的,应如何删除?或复制时不出现?