请教一下，如何把好几份Word文件的首页统合到一份Word文件中？

信天翁107 · 发表于 2018-12-10 11:37

请教一下各位老师：

假设我有一个文件夹，里面有好多Word文件，我想新建一个Word文件，同时把这个文件夹里所有的Word文件的第一页集合到这个新建的Word文件中，请问这用vba可以实现吗？谢谢啦。

ming0018 · 发表于 2018-12-10 14:07

可以实现
可以实现

信天翁107 · 发表于 2018-12-10 16:23

请问如何实现呢？

gbgbxgb · 发表于 2018-12-10 16:59

本帖最后由 gbgbxgb 于 2018-12-12 11:08 编辑

试试附件。

原代码逻辑有误，附件有更新。

原代码写得烂，重新写过，附件再次更新。

信天翁107 · 发表于 2018-12-10 19:18

gbgbxgb 发表于 2018-12-10 16:59
试试附件。

非常感谢您的热心帮助！

信天翁107 · 发表于 2018-12-10 21:04

gbgbxgb 发表于 2018-12-10 16:59
试试附件。

原代码逻辑有误，附件有更新。

老师，您已经两次帮助我了，上一次是有关于Word 的段首句和节标题。http://club.excelhome.net/thread-1449316-2-1.html

真的非常感谢您~

gbgbxgb · 发表于 2018-12-11 14:21

本帖最后由 gbgbxgb 于 2018-12-11 15:24 编辑

信天翁107 发表于 2018-12-10 21:04
老师，您已经两次帮助我了，上一次是有关于Word 的段首句和节标题。http://club.excelhome.net/thread-14 ...

前面楼层原有附件因重写过的代码有问题已删除。

ming0018 · 发表于 2018-12-11 16:02

遍历文件不写了，下面代码是选择第一页的.
Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
Selection.Bookmarks("\page").Range.Select

可以用copy方法，也可以用FormattedText，个人推荐用后者。

信天翁107 · 发表于 2018-12-14 09:41

ming0018 发表于 2018-12-11 16:02
遍历文件不写了，下面代码是选择第一页的.
Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
Selection ...

好的，非常感谢！

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

[求助] 请教一下，如何把好几份Word文件的首页统合到一份Word文件中？