希望能新建一个word，运行代码，不用选择，即可合并本文件夹内的所有word文档

zzpsx · 发表于 2021-12-10 11:53

本帖最后由 zzpsx 于 2021-12-10 13:06 编辑

需要合并的文件.rar (63.31 KB, 下载次数: 15)
希望能新建一个word，运行代码，不用选择文件，即可合并本文件夹内的所有word文档

413191246se · 发表于 2021-12-11 23:25

Sub a___DocMerge()
Dim d As Document, p$, s$
Set d = Documents.Add
p = SelectFolder
s = Dir(p & "*.doc*")
GoSub doc
Do While s > ""
s = Dir
GoSub doc
Loop
doc:
If s = "" Then MsgBox "All doc merged!", 0 + 48: Exit Sub
Selection.InsertFile FileName:=p & s
' Selection.TypeParagraph
Selection.InsertBreak Type:=0
Return
End Sub
Function SelectFolder() As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then SelectFolder = .SelectedItems(1) & "" Else End
End With
If MsgBox("Are you sure you want to select the folder " & vbCr & SelectFolder & " ?", 4 + 16) = vbNo Then End
End Function

复制代码

zzpsx · 发表于 2021-12-12 08:14

本帖最后由 zzpsx 于 2021-12-12 08:21 编辑

413191246se 发表于 2021-12-11 23:25

谢谢高手相助，不过好像不行，还是弹出了选择文件的窗口，鼠标转圈。代码中的dox是否要改成docx

413191246se · 发表于 2021-12-13 00:06

楼主，选择要合并文件的文件夹，这是必须的一步，没有什么不好，请重新试试。

413191246se · 发表于 2021-12-13 21:13

楼主，如果不想选择文件夹，你必须亲自打开要合并文件的文件夹中的一个文件后，再关闭它，然后，Word 才知道你要对哪个文件夹进行处理。我的代码中让你选择文件夹，只需确认一下你要合并文件的文件夹就会自动地合并文件夹中的所有文件了。

zzpsx · 发表于 2021-12-17 09:05

413191246se 发表于 2021-12-13 21:13
楼主，如果不想选择文件夹，你必须亲自打开要合并文件的文件夹中的一个文件后，再关闭它，然后，Word 才知 ...

问题描述.part1.rar (2 MB, 下载次数: 31)

问题描述.part2.rar (2 MB, 下载次数: 18)

问题描述.part3.rar (2 MB, 下载次数: 13)

问题描述.part4.rar (2 MB, 下载次数: 14)

问题描述.part5.rar (921.72 KB, 下载次数: 12)

413191246se · 发表于 2021-12-19 09:35

* 楼主，我觉得您是高人！你的工程内有 39 个模块，太厉害了！迄今为止，我还没见到过这么多的模块！
* 但是，看了你的录像，如果你想选择一个文件夹内的某些文件来合并，并不想合并所有文件，我觉得不太好办到。
* 建议：将所有要合并的文件放到一个新建文件夹中，再用我的程序合并它就可以了。还有，文件夹还是要选择一下的（合并文件时会自动创建新文档）。

		自动登录	找回密码
密码			免费注册

希望能新建一个word，运行代码，不用选择，即可合并本文件夹内的所有word文档

评分

评分

评分

评分