打开复制粘贴关闭

yuhongpu

我想写一段这样的代码,可以打开指定文件夹下所有的WORD文档,并把每个文档中所有内容都复制粘贴到"总的"这个文档,要求是打开一个复制粘贴完就把这个关闭打开下面一下. 下面这个段码只能复制一个文件,不知要怎么改,大家帮帮忙,谢谢. Sub Macro1() On Error Resume Next '忽略错误 ChDrive "E" '设置当前驱动器盘符 ChDir "E:\1YHP\L论坛" '进入指定目录 Adoc = Dir("*.doc") Do While Adoc <> "" '如果是文件夹,或者没有此文件,则会返回"" ' MsgBox Adoc Set psDoc = Documents.Open(Adoc) '打开指定文档 psDoc.Activate psDoc.Range(0, 0).Select Selection.TypeText Text:=psDoc.FullName Selection.WholeStory Selection.Copy Windows("总的").Activate Selection.Paste psDoc.Close True Adoc = Dir() Loop End Sub

konggs

yuhongpu兄：试试这个

Sub Macro1()
Dim adoc, psdoc As Document
On Error Resume Next '忽略错误
ChDrive "E:" '设置当前驱动器盘符
ChDir "E:\1YHP\L论坛" '进入指定目录
adoc = Dir("*.doc")
Do While adoc <> "" '如果是文件夹,或者没有此文件,则会返回""
' MsgBox Adoc
Set psdoc = Documents.Open(adoc) '打开指定文档
psdoc.Activate
psdoc.Range.Copy
Windows("总的.doc").Activate
Selection.Paste
psdoc.Close False
adoc = Dir()
Loop

[此贴子已经被作者于2006-6-14 11:26:18编辑过]

yuhongpu

好像不行,总的那个文档会自行关闭