word宏的问题

Amelia

我在文档1里录制了一个宏，如何可以修改这个宏让它执行某个文件夹下所有的文件？

例如：

Sub Macro1()
'
    Documents.Open FileName:="Doc5.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions
    ActiveDocument.Save
    ActiveWindow.Close
    Documents.Add DocumentType:=wdNewBlankDocument
    ActiveWindow.Close

如果文件夹下还有子文件夹是不是会复杂一些？

谢谢！

守柔

欢迎Amelia

能否告诉我，你的目的是什么？

从你录制的宏中，我看不出你想干什么。（只是打开或者关闭修订？）

如果文件夹中有子文件夹，当然也能做，关键是描述出你的意图。谢谢。

Amelia

哦，我想把所有文件夹下的文件都自动启动track changes,但是不想一个一个的打开。谢谢！

henterwu

用dir()遍历文件夹的所有*.doc,打开文件时运行：

ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions
ActiveWindow.Close True

Amelia

用dir()遍历文件夹的所有*.doc? 可不可以详细点