如何实现批量复制文档(含表格)到一个新文档中

huangyun · 发表于 2006-12-9 11:11

我有二个问题请教各位朋友:

一、我有几十个结构一样的WORD表格，它们只有一页大小，带抬头的。现在想要一一复制粘贴到一个新文档（空白）中，EXCEL VBA我能写代码实现，WORD VBA没有具体接触，所以不会写。具体要求如下：运行宏后，首先出现一个允许选择多个文档的打开对话框，然后使用CTRL/SHIFT键，我进行多选后，宏能够将所选文档内容（含抬头、表格、内容）都复制到VBA代码所在文档中，最后报出所复制的文件名。

二、上面的文档制作好后，需要进行标题设置，也就是将抬头都设置成标题1样式或某种样式，这样以便我接下去制作目录。具体要求如下：运行宏后，首先出现一个INPUTBOX对话框，提示输入有具有共同标志的文字部分（也就是说，这几十个文档的抬头都是“**公司达标申报表”，我只需要输入“公司达标申报表”），这样宏自动查找文字部分所在行，并将其设置成标题1样式。

谢谢各位。

p7yLzR32.rar (3.13 KB, 下载次数: 23)

[此贴子已经被作者于2006-12-9 18:29:13编辑过]

gemj · 发表于 2006-12-9 12:43

大哥，你这个问题是小CASE啦！

不用写什么宏，用个小软件，再加上WORD本身的功能，就可以实现啦！

gemj · 发表于 2006-12-9 12:51

有个小软件，叫BATCHDOC，你可以用它来合并文档，把几十上百个文档合并起来。

这个软件要注册，但咱不花钱注册就可以用这个合并功能。

下一步就是用WORD替换功能，把抬头替换成一定的样式，也就是标题一,具体步骤：

先把标题一的样式设成你喜欢的样子，再点击：编辑－替换

勾选通配符

查找内容：*公司达标申报表

替换为：（空空）但要设一下样式：点“高级”展开－格式－样式－选择“标题一”

全部替换

Enjoy!

gemj · 发表于 2006-12-9 12:56

如果不太放心，可以先把每段结尾的空格清除（查找内容：^w^13;替换为：^13）

再在查找内容框内输入：

*公司达标申报表^13

这样基本不会错杀好人了，呵呵！

gemj · 发表于 2006-12-9 12:59

合并文档的时候，如果你不想用那个小软件，也可以用WORD本身的功能。

找开WORD，插入－文件，按住SHIFT，选中你要插入的那些文件后点“插入”，OK！

但这样插入有点小问题，就是最后一个文件往往跑到最前面去了，还有文件的顺序你没法调。

呵呵

gemj · 发表于 2006-12-9 13:02

还有就是如果所有文档的公司名称都是一样的，都不用勾选通配符，查找内容直接就是：某某公司达标申报表

gemj · 发表于 2006-12-9 13:04

一家之言，请守柔、如意、konggs版主，楼主及家中的各位高手多多指正啦！

守柔 · 发表于 2006-12-9 15:19

QUOTE:

以下是引用huangyun在2006-12-9 11:11:01的发言：

我有二个问题请教各位朋友:

一、我有几十个结构一样的WORD表格，它们只有一页大小，带抬头的。现在想要一一复制粘贴到一个新文档（空白）中，EXCEL VBA我能写代码实现，WORD VBA没有具体接触，所以不会写。具体要求如下：运行宏后，首先出现一个允许选择多个文档的打开对话框，然后使用CTRL/SHIFT键，我进行多选后，宏能够将所选文档内容（含抬头、表格、内容）都复制到VBA代码所在文档中，最后报出所复制的文件名。

二、上面的文档制作好后，需要进行标题设置，也就是将抬头都设置成标题1样式或某种样式，这样以便我接下去制作目录。具体要求如下：运行宏后，首先出现一个INPUTBOX对话框，提示输入有具有共同标志的文字部分（也就是说，这几十个文档的抬头都是“**公司达标申报表”，我只需要输入“公司达标申报表”），这样宏自动查找文字部分所在行，并将其设置成标题1样式。

谢谢各位。

您可以上传个附件，以及你的实际要求后的结果，让园里的弟兄们操练一下嘛。

huangyun · 发表于 2006-12-9 18:30

现在样表已上传,恳请各位再次帮助.

huangyun · 发表于 2006-12-11 06:33

请各位朋友帮忙写一下吧,可能今明二天就要用上了.

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