Re: макросы: по просьбам трудящихся

Написал wOxxOm в 13/05/2008 22:40:52

1. в конце цикла перед next мож надо DoEvents
2. более традиционный перебор доков:
dim curDoc as document
for each curDoc in Documents
    curDoc.Activate
   ........' внутри цикла писать CurDoc вместо всех ActiveDocument
next

но тогда закрывать их надо после цикла уже, или делать так:

dim curDoc as document, curIdx&
for curIdx=Documents.Count to 1 step -1
   set curDoc = Documents(curIdx)
   curDoc.Activate
   ........' внутри цикла писать CurDoc вместо всех ActiveDocument
next