求word doc docx文件合并vba代码或是软件

iamhrh2

手上常常会有一堆的word文件有几十到上百个文件。有后缀docx也有doc格式的。有没有好的软件或是word的vba代码
可以直接将两种格式的word文件。组成一个新的文件。最终结果要存为docx，
我的word版本是word2016，最好是同版本。

word新建直接插入文件的方式就不用说了。

yuze0804007

vba code:

[Visual Basic] 纯文本查看 复制代码

Sub MergeDocuments()
    Application.ScreenUpdating = False
    MyPath = ActiveDocument.Path
    MyName = Dir(MyPath & "\" & "*.*")
i = 0
Do While MyName <> ""
    If MyName <> ActiveDocument.Name Then
        Set wb = Documents.Open(MyPath & "\" & MyName)
        Selection.WholeStory
        Selection.Copy
        Windows(1).Activate
        Selection.EndKey Unit:=wdLine
        Selection.TypeParagraph
        Selection.Paste
        i = i + 1
        wb.Close False
    End If
    MyName = Dir
    DoEvents
Loop
Application.ScreenUpdating = True
End Sub

蓝奏链接:https://wwa.lanzouj.com/iRFXtdlf5qf

要把所有doc和docx放在同一文件夹下

一丝风

https://www.52pojie.cn/thread-711377-1-1.html

这个合不合适，
要是纯文字的话，office本身就可以！

iamhrh2

一丝风 发表于 2020-6-12 17:40
https://www.52pojie.cn/thread-711377-1-1.html

这个合不合适，

谢谢。下载了可以支持doc和docx，但只能合并存为doc不能存为docx高版本，合并后导致docx高版本的公式直接变为图片。

一丝风

iamhrh2 发表于 2020-6-12 17:49
谢谢。下载了可以支持doc和docx，但只能合并存为doc不能存为docx高版本，合并后导致docx高版本的公式直接变 ...

不嫌麻烦的话，先批量转成PDF，再批量合并，合并后就再转成word,因为PDF的软件有很多

iamhrh2

yuze0804007 发表于 2020-6-12 19:13
vba code:
[mw_shl_code=vb,true]Sub MergeDocuments()
    Application.ScreenUpdating = False

膜拜大神，非常牛。发现一个问题。能一页一页的分隔符分开吗有方法实现吗　　，比如第一个文件半页。第二个文件半页。组成新文件。这两个半页成了一页了。。。

yuze0804007

iamhrh2 发表于 2020-6-13 07:56
膜拜大神，非常牛。发现一个问题。能一页一页的分隔符分开吗有方法实现吗　　，比如第一个文件半页。第二 ...

vba code v2

[Visual Basic] 纯文本查看 复制代码

Sub MergeDocuments()
    Application.ScreenUpdating = False
    MyPath = ActiveDocument.Path
    MyName = Dir(MyPath & "\" & "*.*")
    pagenum = 1
Do While MyName <> ""
    If MyName <> ActiveDocument.Name Then
        Set wb = Documents.Open(MyPath & "\" & MyName)
        Selection.WholeStory
        Selection.Copy
        Windows(1).Activate
        Selection.Paste
        wb.Close False
        Selection.EndKey Unit:=wdLine
        Selection.InsertBreak Type:=wdPageBreak
        pagenum = Word.ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
        Selection.GoTo wdGoToPage, , pagenum
    End If
    MyName = Dir
    DoEvents
Loop
Application.ScreenUpdating = True
End Sub

yuze0804007

yuze0804007 发表于 2020-6-13 15:41
vba code v2
[mw_shl_code=vb,true]Sub MergeDocuments()
    Application.ScreenUpdating = False

蓝奏云:https://wwa.lanzouj.com/iJYajdmh4ef
这版是按页数粘贴的, 半页不合并

iamhrh2

yuze0804007 发表于 2020-6-13 15:44
蓝奏云:https://wwa.lanzouj.com/iJYajdmh4ef
这版是按页数粘贴的, 半页不合并

没分了。感谢感谢

向往的歌

yuze0804007 发表于 2020-6-12 17:27
vba code:
[mw_shl_code=vb,true]Sub MergeDocuments()
    Application.ScreenUpdating = False

高人，请教一下：楼主的这个是word。不知亲又如何用vba来进行excel同样的操作（合并汇总几十甚至上百份excel）？