恭喜新版主，提一问，好开张！

九段 · 发表于 2002-3-17 11:35

我有30多个文件夹，每个文件夹都有6个WORD文件，其中都有名为yes.doc的文件，我想把这30多个文件夹中的yes.doc文件都取出来，放在一个文件夹中，当然，这就需要改名如：1.doc, 2.doc …… 30.doc …… n.doc等等。每次，我都手工操作，很烦琐，容易出错，怎样编译命令一次完成？先谢谢版主，希望不是难题……

tof · 发表于 2002-3-17 13:08

嘻嘻!本人的WORD的确是马马虎虎,迷迷糊糊. 解决的最笨方法是自己录制一个手工操作的宏后.以后运行这个宏就OK了. 当然更进一步可以自己修改录制的宏.

九段 · 发表于 2002-3-17 13:30

哎呀！高哇！你这一贴可以回答论坛里所有的问题呀！哈哈哈哈…… 开玩笑，别介意。

九段 · 发表于 2002-3-17 13:32

有些东西可以录制，有些不行，比如我那一问。因为我不是一个一个打开，而是个别提取，批量重命名……

九段 · 发表于 2002-3-22 17:03

谢谢十星上将！

惊叹不已 · 发表于 2002-3-19 15:33

Sub copyfile() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("e:\word") Set sf = f.SubFolders i = 1 For Each f1 In sf Set fyes = f1.Files("yes.doc") fyes.Copy "e:\backword\" Name "e:\backword\yes.doc" As "e:\backword\" & i & ".doc" i = i + 1 Next End Sub [em06]

惊叹不已 · 发表于 2002-3-18 15:55

这30个文件夹是在同一个盘下的同一个目录还是没有规律分得很散?

roof · 发表于 2002-3-18 13:24

用FILESEARCH把所有文件找出,挨个打开,另存为新文件, 删除旧文件. 办法麻烦了些,但也许能满足要求.

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

恭喜新版主，提一问，好开张！

假设你的30多个文件夹在E:\word下,你想把yes.doc复制到E:\backword

我想知道这30个文件夹的位置.