|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.01.2012, 09:29 | #1 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
удаление неиспользуемых стилей
имеется макрос - то работает нормально, то выдаёт
Нажата кнопка 'End' Run-time error '4198' Дебаггер подсвечивает строку: ActiveDocument.Styles(st).Delete весь код целиком таков: Код:
Последний раз редактировалось caute; 19.01.2012 в 09:37. |
19.01.2012, 09:41 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
19.01.2012, 10:18 | #3 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
увы, косяк остался
|
19.01.2012, 13:56 | #4 |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
Не встречал такого. Присмотритесь к стилю. Имя? Один и тот же? Сами создали или Word, автоматом? Дайте образец.
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
|
19.01.2012, 14:24 | #5 |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
Косяк макроса потому, что встроенные стили удалить нельзя их можно только скрыть из меню Стили:
Если заменить ActiveDocument.Styles(st).Delete на ActiveDocument.Styles(st).Visibilit y = True, то ошибку выдавать не будет, если же оставлять ActiveDocument.Styles(st).Delete, то надо писать обработчик ошибки |
19.01.2012, 23:11 | #6 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
вообще, макрос часть стилей удаляет благополучно, прежде чем выдать ошибку. Вот образец.doc
Замена на Код:
В принципе, если случай сложный, то не стоит возиться - в большинстве доков макрос работает хорошо. В крайнем случае всегда можно ручками дочистить. |
20.01.2012, 11:24 | #7 |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
Макрос их уже отсеивает, проверкой...
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
Последний раз редактировалось Вождь; 20.01.2012 в 12:08. |
20.01.2012, 12:29 | #8 | |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
Цитата:
Код:
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
|
|
20.01.2012, 12:33 | #9 |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
Значит оставить в макросе On Error
Последний раз редактировалось Пименов Александр; 20.01.2012 в 12:35. Причина: Утверждение |
20.01.2012, 17:06 | #10 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
вы правы: затык был в этом дурацком стиле "знак знак". Он у меня давно в нормале маячит, хотя я его не создавал и никогда им не пользовался. Не без труда удалось-таки его удалить нафиг - макрос тут же заработал! спасибо за решение.
А вот этот код выше - стоит ли им заменить прежний? ваша версия макроса имеет иммунитет к ошибкам стилей, так я понял? или чего-то недопонял? кстати, мой макрос наряду с лишними стилями почему-то удаляет иногда и нелишние (неоднократно используемые в документе). Можно ли как-то это поправить? Последний раз редактировалось caute; 20.01.2012 в 17:09. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Наследование стилей внутренними тэгами??? | ARTsev | HTML и CSS | 1 | 10.02.2010 13:22 |
значения стилей окна Windows. | HWork | Общие вопросы C/C++ | 4 | 25.09.2009 09:26 |
Копирование стилей | Busine2009 | Microsoft Office Word | 0 | 31.07.2009 21:41 |
Копирование стилей... | Busine2009 | Microsoft Office Word | 2 | 27.06.2009 19:42 |