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

拷贝，粘贴不就行了？如代码

Dim wapp1 As New MSWord.Application
Dim wapp2 As New MSWord.Application
try
    Dim doc1 = wapp1.Documents.Open("E:\合并表.doc")
    For Each file As String In filesys .GetFiles(ProjectPath & "文件夹")
        If file.EndsWith(".doc") Then
            Dim doc2 = wapp2.Documents.Open(file)
            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
           
        End If
    Next
    wapp2.Quit
    wapp1.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp1.Quit
    wapp2.Quit
finally
End try

参考代码，改成自己的。

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)
   
    Dim pBreak = MSWord.WdBreakType.wdSectionBreakNextPage
    wapp1.ActiveWindow.Selection.InsertBreak(pBreak)
    wapp1.ActiveWindow.Selection.paste
    wapp2.Quit
    wapp1.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp1.Quit
    wapp2.Quit
finally
   
End try

加一个判断，如果是第一页，就不加换页符呗。

参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0

弄一个计数不就行了？

Dim count As Integer = 1

循环里面

If count > 1 Then

End If

count = count + 1

            wapp1.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)

If count > 1 Then
            Dim pBreak = MSWord.WdBreakType.wdSectionBreakNextPage
            wapp1.ActiveWindow.Selection.InsertBreak(pBreak)
End If

            wapp1.ActiveWindow.Selection.paste
count = count + 1

测试没问题。