|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.07.2009, 10:37 | #11 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Скорее всего в списке стилей отображается также и прямое форматирование.
Лучше день потерять — потом за пять минут долететь!©
|
11.07.2009, 10:50 | #12 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Да, действительно дело в галочке (благодаря которой документ превращается в свалку стилей, которая приводит в ужас простого обывателя):
Сервис - Параметры - Правка - Вести учет форматирования. У меня один абзац в документе, оформленный стилем Обычный. После применения макроса Витера, у меня в документе должны остаться только встроенные стили. Но стилей по-прежнему куча. Получается, что макрос не работает, хотя бы очень пригодился для очистки документов. Последний раз редактировалось Busine2009; 11.07.2009 в 11:03. |
11.07.2009, 12:31 | #13 | |
Форумчанин
Регистрация: 09.07.2009
Сообщений: 111
|
Стили находятся в самом документе, который и заполняют разные люди (точнее, одни люди присылают тексты, а другие потом копипастят их в итоговый документ. В самом конце эта мусорка попадает мне и я должен её привести в разумный вид).
Цитата:
"Application.OrganizerDelete ActiveDocument.Name, DeadStyle.NameLocal" На этой строке спотыкается. Вставляю строку про "On Error Next". Открывает пустой нормал, сообщает, что всё лишнее уничтожено - да, в нём только встроенные, а документ как был, так и остался. В голове бродит смутная мысль, что надо просто искать в тексте все стили; проверять, не являются ли они стилями из списка; если нет - безжалостно давить. Невзирая, оформлены они как стили (с названием и т.п.) или нет. И даже не просто бродит, а пытается записаться макросом. Но умений не хватает. На всякий случай прицепляю файл "Пример" - гляньте, если не трудно. Если посмотреть на вкладку стилей, видно, что доступны совершенно ненужные оформления. |
|
11.07.2009, 12:56 | #14 | |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Цитата:
А есть форматирование, которое отображается в списке стилей (сообщение 12 этой ветки) Стили удалить можно, если они не встроенные. Как? Я уже показал. Форматирование можно только очистить. Поэтому, чтобы не видеть прямого форматирования, просто отключите его отображение в списке стилей. Теперь организационные меры. Документ нельзя использовать как шаблон. Это разные вещи. Это как бриться топором, вроде бреет, но ощущения другие. Если этот документ у вас типовый, то создайте шаблон, вбейте в него все стили, которые вам нужны и заставьте (научите) пользователей использовать только эти стили. Другого выхода нет. Я включил в вашем документе отображение только используемых стилей и вся свалка пропала. Остались только нужные. Несмотря на то, что стоят галочки показывать форматирование.
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 11.07.2009 в 12:59. |
|
11.07.2009, 13:40 | #15 | ||||
Форумчанин
Регистрация: 09.07.2009
Сообщений: 111
|
Понял.
Цитата:
Цитата:
Цитата:
Цитата:
Ладно, буду думать дальше. В любом случае спасибо за помощь. |
||||
11.07.2009, 14:15 | #16 | |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Интересная штука получается. Вот так можно получить список не встроенных стилей в документе:
Код:
Что пишет справка по поводу параметра InUse: Цитата:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 11.07.2009 в 14:21. Причина: Новые сведения об InUse |
|
11.07.2009, 14:51 | #17 |
Форумчанин
Регистрация: 09.07.2009
Сообщений: 111
|
|
11.07.2009, 14:57 | #18 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Нормальные герои всегда идут в обход!
Если у него все пользовательские стили всегда используются, то пойдем другим путем. Будем искать текст, оформленный тем или иным стилем. И если такой текст не найдем… то тут уж не обижайтесь: удалим без сантиментов.
Выскочил один небольшой фактик. В файле примера есть стиль " Знак Знак3 Знак" (с пробелом в начале имени), так вот он не хочет удаляться. Говорит, что нет такого стиля. Я хотел его было переименовать, а потом удалить, но не получается. Может кто подскажет? Код:
Лучше день потерять — потом за пять минут долететь!©
|
11.07.2009, 14:59 | #19 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Может я не в тему, но применение форматирования при галочке Вести учет форматирования создает полноценный стиль, имеющий имя.
У меня есть мои стили, которые я специально создал. Макрос Витера их не удаляет. Витер, что за галочка Показывать форматирование? Последний раз редактировалось Busine2009; 11.07.2009 в 15:07. |
11.07.2009, 15:02 | #20 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Ну почему не в тему? Теперь буду знать! Только, по-моему, стиль создается всегда, когда применяется прямое форматирование, а уж отображать его или нет, это уж пользователь сам решит
Лучше день потерять — потом за пять минут долететь!©
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Многоуровневый список и стили в Word 2007 | CaptainNemo | Microsoft Office Word | 12 | 08.06.2009 23:45 |
Стили MS WORD 2007 | max38934 | Microsoft Office Word | 4 | 04.06.2009 02:25 |
как вставить ссылку на ячейку в документе Excel в Word? | ruavia3 | Microsoft Office Excel | 3 | 19.03.2009 21:32 |
как вставить ссылку в Word на ячейку в документе Excel? | ruavia3 | Microsoft Office Word | 2 | 19.03.2009 21:24 |
Фон в документе Microsoft Word | AleksP | Microsoft Office Word | 8 | 14.09.2008 17:55 |