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

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

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

发财

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

加好友

发短信

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

如何将多个WORD文件合并在一个WORD文件上，保持原格式不变？ 发帖心情

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

如何用代码将多个WORD文件合并在一个WORD文件上，保持原格式不变？

大红袍

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

加好友

发短信

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

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

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

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

发财

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

加好友

发短信

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

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

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

如果文件夹中有多个WORD文件，应如何改？

大红袍

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

加好友

发短信

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

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

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

发财

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

加好友

发短信

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

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

表1内容1.5页，表2内容1.6页，合并到合并表中表1占两页，表2占两页，共占4页，而不是3.1页？应如何改？

大红袍

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

加好友

发短信

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

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

做不了。

发财

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

加好友

发短信

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

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

用换页或添加空行不行吗？

大红袍

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

加好友

发短信

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

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

参考代码，改成自己的。

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

发财

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

加好友

发短信

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

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

第一页为空白页，应如何清除不要？

发财

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

加好友

发短信

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

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

WORD如何加页脚？

下一主题 >> << 上一主题

总数 24 1 2 3 下一页

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