Есть такая проблема. При использовании компонента Find в цикле, каждый раз он записвается в Undo. И чтобы отменить действие скрипта необходимо раз  20 нажать Undo. Можно ли как то этим управлять то есть сделать одно undo??

что то вроде:

'цикл 20 раз
            With ActiveDocument.Content.find
 
                .Text = "ищем слово"
                .Replacement.Text = ""
                'regex
                .MatchWildcards = False
 
                .Execute Replace:=wdReplaceAll
            End With

Заранее спасибо, уважаемые участники!

Исправлено drug_detei (08.12.08 20:01)