Как убить лишние стили в документе Word 2003

[Busine2009]

Так чего знать, я взял и проверил: поставил галочку Вести учет форматирования, стал мотать текст туда сюда и справа наблюдаю размножение чего-то. Если щ. пр. кн. мыши (это очень хороший, на мой взгляд, совет, многие пользователи, я думаю, щ. левой кн. мыши, но если документ большой, то происходит применение стиля, вместо того, чтобы открыть выпадающий список) по стрелке справа от названия чего-то и выбрать изменить, то мы увидим диалоговое окно Изменение стиля, а там и имя есть в наличии.

Я сам решил проверить, создаются таким образом стили или нет, но это факт.

[viter.alex]

Оказывается, что эту нашу проблему люди давно решили. Основываясь на их опыте, я немного изменил предыдущий макрос. Теперь поиск стилей будет происходить не только в основном документе, но и в колонтитулах, сносках и прочей нечисти.

Sub DeleteUnusedStyles()
  Dim oSt As Style, sMsg As String, oStrRange As Range
  For Each oSt In ActiveDocument.Styles
    On Error Resume Next
    If Not oSt.BuiltIn Then'Если стиль не встроенный
      For Each oStrRange In ActiveDocument.StoryRanges
        With oStrRange.Find
          .Style = oSt.NameLocal 'Ищем все вхождения текста, оформленного заданным стилем
          .Execute
          If (Not .Found) And Err.Number = 0 Then 'Если не нашли такой текст, и нет ошибок, то стиль удаляем
            sMsg = sMsg & "Удален """ & oSt.NameLocal & """" & vbCr: oSt.Delete
          ElseIf CBool(Err.Number) Then 'Если есть ошибка, то сообщаем об этом
            sMsg = sMsg & "Невозможно удалить """ & oSt.NameLocal & """" & ". Причина: " & Err.Description & vbCr
            Err.Clear
          End If
        End With
      Next oStrRange
    End If
  Next 
  MsgBox sMsg, vbInformation, "Результаты удаления стилей"
End Sub

[Busine2009]

Хотя сей час обратил внимание на то, что правая область называется: Стили и форматирование и в Организаторе, действительно, нет чего-то созданного изменением форматирования. Получается, что я не прав, что ли?

Да я был не прав. Если закрыть документ (даже с сохранением), а потом его открыть, то текст остается быть обычным и стиля, например, Выравнивания по правому краю нет.

Да этот макрос сработал.

[Busine2009]

Могу дать только один совет Гарику.

Если вы знаете, как должен быть оформлен текст, то разошлите письма всем вставлятелям текста, чтобы они после вставки текста очищали формат, а если после вставки появляется кнопка с параметрами вставки, чтобы выбирали: использовать форматирование конечного фрагмента или чтобы выбирали "Сохранить только текст".

[akokin]

Сообщение от Busine2009

Могу дать только один совет Гарику.

Если вы знаете, как должен быть оформлен текст, то разошлите письма всем вставлятелям текста, чтобы они после вставки текста очищали формат, а если после вставки появляется кнопка с параметрами вставки, чтобы выбирали: использовать форматирование конечного фрагмента или чтобы выбирали "Сохранить только текст".

Простите, что влезаю в ваш разговор, но думаю, что пользователи пропустят мимо ушей такой совет. Уверен. Тем более, если их вон сколько у Игоря.
Да и макрос от Александра Витера работает же! Достаточно лишь скрыть из панели стилей неиспользуемые, чтобы не мозолили глаза.

[garik64]

Сообщение от akokin

Простите, что влезаю в ваш разговор, но думаю, что пользователи пропустят мимо ушей такой совет. Уверен.

И правильно уверены. Не раз пропускали и теперь пропустили.

Да и макрос от Александра Витера работает же!

В примере, который я прикладывал, он убил много лишнего.

[viter.alex]

Сообщение от garik64

…В примере, который я прикладывал, он убил много лишнего.

Т.е. что значит лишнего? Макрос убил все стили, которые были созданы пользователем, но не используются для оформления текста.

[garik64]

Сообщение от viter.alex

Т.е. что значит лишнего? Макрос убил все стили, которые были созданы пользователем, но не используются для оформления текста.

Текст был оформлен стилем txt_vest, заголовки - zag_vest, рубрики - стилем "Рубрика".

Макрос сообщил, что убил стили "txt_vest Знак", "zag_vest Знак", "Рубрика Знак" и оставил от них голый "Обычный".

Вполне вероятно, что проблема в способе оформления (курсор ставим посреди абзаца и нажимаем название стиля), не знаю. Но факт есть факт. Какой-то "Знак" объявился...

[viter.alex]

В том примере, что вы приложили, у меня такой результат макроса:

[garik64]

Сообщение от viter.alex

В том примере, что вы приложили, у меня такой результат макроса:

Интересно девки пляшут...

А вот что у меня