| 查看: 1798 | 回复: 3 | ||
[求助]
求助VBA编写代码 已有2人参与
|
| 请教一下，我想将几个WORD合并成一个，但是又不更改格式，这种代码怎么写呢 |
回复此楼» 猜你喜欢
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有12人回复
-
极限拉扯，如何抉择
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有7人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有10人回复
【答案】应助回帖
感谢参与，应助指数 +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
3楼2018-08-31 09:24:25
4楼2018-09-10 00:46:25
