如何将多个WORD文件合并在一个WORD文件上，保持原格式不变？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将多个WORD文件合并在一个WORD文件上，保持原格式不变？

共有7269人关注过本帖树形打印复制链接主题：如何将多个WORD文件合并在一个WORD文件上，保持原格式不变？

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/24 17:08:00 [只看该作者]

以下是引用发财在2015/12/24 16:46:00的发言：
第一页为空白页，应如何清除不要？

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

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/24 17:08:00 [只看该作者]

以下是引用发财在2015/12/24 16:50:00的发言：
WORD如何加页脚？

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

发财

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/12/25 8:38:00 [只看该作者]

            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)
            Dim pBreak = MSWord.WdBreakType.wdSectionBreakNextPage
            If pBreak > 0 Then
                wapp1.ActiveWindow.Selection.InsertBreak(pBreak)
                wapp1.ActiveWindow.Selection.paste
            End If
pBreak ＝ 2 ？第一页还是空白？

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/25 9:20:00 [只看该作者]

弄一个计数不就行了？

Dim count As Integer = 1

循环里面

If count > 1 Then

End If

count = count + 1

发财

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/12/25 9:39:00 [只看该作者]

Dim wapp1 As New MSWord.Application
Dim wapp2 As New MSWord.Application
Dim count As Integer = 1
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
If count > 1 Then
            wapp1.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
            Dim pBreak = MSWord.WdBreakType.wdSectionBreakNextPage
            wapp1.ActiveWindow.Selection.InsertBreak(pBreak)
            wapp1.ActiveWindow.Selection.paste
End If
count = count + 1
        End If
    Next
    wapp2.Quit
    wapp1.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp1.Quit
    wapp2.Quit
finally
End try