24小时热门版块排行榜

返回列表

316354882

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 1073
散金: 31
帖子: 73
在线: 11.1小时
虫号: 689076
注册: 2009-01-07
专业: 塑料

[求助] 求助VBA编写代码已有2人参与

请教一下，我想将几个WORD合并成一个，但是又不更改格式，这种代码怎么写呢

回复此楼

» 猜你喜欢

1楼 2018-08-30 09:30:05

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jjdg

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51003.4
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

【答案】应助回帖

感谢参与，应助指数 +1

使用 VBA 将多份 Word 文档合并为一份文档【原文链接：https://www.douban.com/note/522336984/】
JamesKyle JamesKyle 2015-10-27 15:39:03
VBA 可以用来合并多份文档。

在运行代码之前，请注意以下内容：

1. 将所有待合并文档放入同一个文件夹中，对这些文档进行排序和重命名，例如 part 1、part 2 等。如果不对这些文档进行排序，合并后文档的内容将会产生混乱或者丢失。

2. 打开第一个文档，运行以下代码。

第一步：按“Alt-F11”，打开 Microsoft Visual Basic for Application 窗口；

第二步：单击“插入”标签页中的“模块”命令，将以下 VBA 代码复制粘贴到模块窗口中；

第三步：单击“运行”按钮，应用这段 VBA 代码。

多个文档合并 VBA 代码：

Sub MergeDocuments()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.doc"

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
Loop
Application.ScreenUpdating = True
End Sub

请注意：文档必须按顺序进行重命名，否则文档顺序可能会被打乱。

赞一下

回复此楼

» 本帖已获得的红花（最新10朵）

316354882

努力学习！以正当途径！获得需要的知识！

2楼2018-08-30 22:13:49

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

316354882

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 1073
散金: 31
帖子: 73
在线: 11.1小时
虫号: 689076
注册: 2009-01-07
专业: 塑料

送红花一朵

引用回帖:

2楼: Originally posted by jjdg at 2018-08-30 22:13:49
使用 VBA 将多份 Word 文档合并为一份文档【原文链接：https://www.douban.com/note/522336984/】
JamesKyle JamesKyle 2015-10-27 15:39:03
VBA 可以用来合并多份文档。

在运行代码之前，请注意以下内容：

...

请问如何命名呢。我运行了这个不行

赞一下

回复此楼

3楼2018-08-31 09:24:25

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖