1 Тема от Fck_This

  • Ускорение работы макроса
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Тема: Ускорение работы макроса

Макрос удаления стилей, вхождения которых в документе нет. Но работает очень медленно при удалении стиля. Может кто знает, как ускорить данное действие?

For Each oСтиль In ActiveDocument.Styles
        If oСтиль.BuiltIn = False And _
          Not Left(oСтиль.NameLocal, Len(Шаблон)) = Шаблон Then
            With ActiveDocument.Content.Find
                .ClearFormatting
                .Style = oСтиль.NameLocal
                .Execute FindText:=vbNullString, Format:=True
                If .Found = False Then oСтиль.Delete
                'DoEvents
            End With
        End If
    Next oСтиль
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Ускорение работы макроса

я бы видимо
--прошла по параграфам, запомнила стили в словарь
--затем пошла бы стилям, проверяя по словарю