如何设定“宏”的作用域为整个文件夹&am

守柔

请参：

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔@ExcelHome 2004-12-08 17:15:07

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Private Sub Document_Open() '注意文档处理结束后删除此宏 On Error Resume Next With ActiveDocument Application.ScreenUpdating = False MsgBox "开始作用" .Content.Find.Execute findtext:="SCENARIO", _ replacewith:="场景", Replace:=wdReplaceAll .Close True End With Application.ScreenUpdating = True End Sub '---------------------- Sub Example() '只要运行此宏 Dim Adoc As String, SetPsDoc As Document On Error Resume Next ChDrive "D" ChDir "D:\TEST" Adoc = Dir("*.doc") Application.ScreenUpdating = False Do While Adoc <> "" Set SetPsDoc = Documents.Open(Adoc) Adoc = Dir() Loop Application.ScreenUpdating = True End Sub '----------------------以上代码均在NORMAL.DOT 的THISDOCUMENT下.

jmfish

不好意思，还是有问题

我的test文件夹下有6个文件.doc文件。 把宏存成Normal.dot, 打开Word空白文件，运行宏。 第一次执行，1个被修改， 第二次执行，2个被修改， 第三次执行，3个被修改，

.

.

.

换句话说好像没有实现自动完全遍历，搞不清楚原因

[em06]

守柔

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔@ExcelHome 2004-12-09 4:45:37

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() Dim Adoc As String On Error Resume Next ChDrive "D" ChDir "D:\TEST" Adoc = Dir("*.doc") Application.ScreenUpdating = False Do While Adoc <> "" Documents.Open (Adoc) Adoc = Dir() Loop Application.ScreenUpdating = True Call RepAll End Sub '---------------------- Sub RepAll() Dim Adoc As Document Application.ScreenUpdating = False For Each Adoc In Documents With Adoc .Content.Find.Execute findtext:="SCENARIO", _ replacewith:="场景", Replace:=wdReplaceAll .Close True End With Next Application.ScreenUpdating = True End Sub '----------------------可能的原因有几个，主要可能是执行速度问题，两个代码之间未能成功协调。

你再按说我说的做：这两个代码复制到全局模板中也可以，新建一个文档中代码窗口粘贴也可以。然后运行第一个宏，注意可用内存影响，可能会死机。比较安全的做法是将原文档中的文件分成三个文件夹，再分别运行该宏；也可能用手工打开的方式，即CTRl+O，选中一部分文件（SHIFT/CTRL），按下确定，WORD将依次打开你选择的文件，然后运行第二个宏（REPALL）就可以了（这样安全一些，我不知道 90个文件全部打开会是什么样子），这样你分三次估计应该没有问题了。

jmfish

应该是两个宏不能同步的原因吧，其实我想一次性修改的内容很多，看来是不能这么做了。

还是存成Normal.dot然后用打开时间激发，我手动批量打开再批量关闭好了，谢谢