[CDR 2017-2021] Очистка стилей объектов

[zloVdar]

Приветствую, коллеги! Кто силен в VBA, есть способ разом убить все стили без перебора массива стилей?
От заказчика постоянно приходят файлы с огромным количеством стилей объектов (18000+) и хотелось бы их как-то разом грохать.

Перебор

ActiveDocument.StyleSheet.AllStyleSets(1).Delete

работает неприемлемо долго.

Спасает пересохранение в CMX, но может есть способ проще?

 

[_MBK_]

На ум приходит разве что наваять патч типа ChangeCLOL

 

[DukereD]

а если перед этим оптимизацию включить? быстрее же должен в любом случае работать
я делаю вот так

    Application.Refresh
    Application.Optimization = True

ActiveDocument.StyleSheet.AllStyleSets(1).Delete

    Application.Optimization = False
    Application.Refresh

 

[zloVdar]

а если перед этим оптимизацию включить? быстрее же должен в любом случае работать
я делаю вот так

    Application.Refresh
    Application.Optimization = True

ActiveDocument.StyleSheet.AllStyleSets(1).Delete

    Application.Optimization = False
    Application.Refresh

Нет, не спасает.

 

[_MBK_]

На ум приходит разве что наваять патч типа ChangeCLOL

Так вы этот вариант пробовали или нет?

 

[Gad]

А если привести все стили документа к своим по умолчанию? Для этого даже корел вроде как не нужен..

 

[zloVdar]

А если привести все стили документа к своим по умолчанию? Для этого даже корел вроде как не нужен..

Делись подробностями

 

[Gad]

Ну идея такова, чтобы создать из своего корела пустой файлик, вытащить из него styles\document.cdss и запихивать с заменой его в присланный.
Можете свой файл где

количеством стилей объектов (18000+)

выложить без контента? На опыты

 

[zloVdar]

Ну идея такова, чтобы создать из своего корела пустой файлик, вытащить из него styles\document.cdss и запихивать с заменой его в присланный.
Можете свой файл где

выложить без контента? На опыты

Вот вам кадавр

 

[Gad]

Держите назад после мутаций
Вроде все ок...

 

[_MBK_]

Ну идея такова, чтобы создать из своего корела пустой файлик, вытащить из него styles\document.cdss и запихивать с заменой его в присланный.
Можете свой файл где

выложить без контента? На опыты

Это ты чтото больно мудреное придумал. По моему все ж проще подправить сам корел чтоб он стили не читал вообще из файла

 

[Gad]

Это ты чтото больно мудреное придумал.

Это кому как Мне проще сделать батник, который будет обнулять стили, чем корел править

 

[_MBK_]

Одну букву поправить в имени, не?

 

[dastin]

Sehr Gud, Waldemar ... 100 Мб стилей это сильно

 

[Gad]

Одну букву поправить в имени, не?

Какую и где?

 

[zloVdar]

Держите назад после мутаций
Вроде все ок...

Вопрос был не в том, чтоб "вылечить" этот файл, а в том, что такие файлы каждый раз и хотелось бы автоматическое решение. А вот с заменой файла стилей решение рабочее, спасибо!

 

[_MBK_]

Какую и где?

В dll имя файла же. Как changeCLOL работал, помнишь?

 

[Gad]

Раз уж сделал, выложу готовое
Распаковать в какую удобно папку, сделать ярлык на .cmd файлик, и тащить на него скопом файлы для очистки стилей