Макросы для работы со стилями в Word

Удаление избыточных стилей

Как уже отмечалось, избыточные стили обычно имеют номера, идущие подряд (соответствующие номера определяются предыдущим макросом ShowStyles). Это позволяет удалить избыточные стили с помощью цикла:

Sub DeleteSomeStyles()
    Dim i As Integer
    For i = [начальный_номер_диапазона_избыточных_стилей] To [конечный_номер_диапазона_избыточных_стилей]
        ActiveDocument.Styles(i).Delete
    Next i
End Sub

В приведенный макрос вместо выражения [начальный_номер_диапазона_избыточных_стилей] нужно внести начальный номер диапазона избыточных стилей, а вместо выражения  [конечный_номер_диапазона_избыточных_стилей] - конечный номер указанного диапазона.

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

Sub DeleteSomeStyles()
    Dim intNStart As Integer
    Dim intNEnd As Integer
    intNStart = InputBox("Введите начальный номер диапазона избыточных стилей: ")
    intNEnd = InputBox("Введите конечный номер диапазона избыточных стилей: ")
    'удаление избыточных стилей
    Dim i As Integer
    For i = intNStart To intNEnd
        ActiveDocument.Styles(i).Delete
    Next i
End Sub

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

В моей практике такие избыточные стили формируются автоматически в процессе распознавания текстов. Обычно они называются x1, x2 и т.д. В принципе, по признаку наличия буквы x в наименовании их можно различить и удалить.

Сейчас выложу более гибкий макрос

Ничего интересного, просто при распознавании текста, в зависимости от настроек файнридера имена стилей и нумерация может быть разной, поэтому вот макрос который сначала запрашивает имя стиля, потом диапазон, например 101-110, а потом удаляет их, если диапазон не назначен, удаляются все стили в которых присутствует название

Public Sub DeleteSomeStyles()
Dim intStyle As String
Dim intIndex As Variant
Dim i As Integer, Sty As Style, NStart As Integer, NEnd As Integer
    intStyle = InputBox("Введите имя стиля: ")
    intIndex = InputBox("Введите диапазон (10-52): ")
    If intIndex = "" Then
        For Each Sty In ActiveDocument.Styles
            If InStr(1, Sty.NameLocal, intStyle) > 0 Then
                Sty.Delete
            End If
        Next Sty
    Else
        intIndex = Split(intIndex, "-")
        NStart = Val(intIndex(0))
        NEnd = Val(intIndex(UBound(intIndex)))
            For i = NStart To NEnd
                On Error Resume Next
                Set Sty = ActiveDocument.Styles(intStyle & i)
                     If Err.Number > 0 Then
                        Set Sty = ActiveDocument.Styles(intStyle & " " & i)
                    End If
                Sty.Delete
            Next i
    End If
End Sub

Есть документ (см.вложение), в нем нет никакого текста, макрос ShowStyles выдает 266 стилей

Sub ShowStyles()
    Dim i As Integer
    MsgBox "Количество стилей: " & ActiveDocument.Styles.Count
    Selection.EndKey Unit:=wdStory
    For i = 1 To ActiveDocument.Styles.Count
        'вывод номеров стилей и их наименований в конец текущего файла
        Selection.Range.Text = i & " " & ActiveDocument.Styles(i).NameLocal
        Selection.EndKey Unit:=wdLine
        Selection.TypeParagraph
    Next i
End Sub

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

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

Никаках стилей не удалил, осталоись все те же. Пробовал другим макросом

Sub Удалить_стили()
    Debug.Print "<<< Старт " & Now
Dim myStyle As Word.Style
Dim i&, N1&, N2&
Dim S$
    N1 = 0: N2 = 0
    For i = ActiveDocument.Styles.Count To 1 Step -1
        Set myStyle = ActiveDocument.Styles(i)
        If myStyle.BuiltIn = True Then
        ElseIf myStyle.InUse <> True Then
        Else
            S = myStyle.NameLocal
            With ActiveDocument.Content.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Format = True
                .Style = S
                .Execute Replace:=Word.wdReplaceNone
                If .Found = True Then
                Else
                    On Error Resume Next
                    myStyle.Delete
                    If Err.Number <> 0 Then
                        N2 = N2 + 1
                        Debug.Print _
                            "- Ошибка " & CStr(Err.Number) & " (" & Err.Description & ")" & _
                            " при удалении стиля """ & S & """"
                    End If
                    If IsObjectValid(myStyle) Then
                        Debug.Print "- Не был удален стиль """ & S & """"
                    Else
                        N1 = N1 + 1
                        Debug.Print "+ Удален стиль """ & S & """"
                    End If
                End If
            End With
        End If
    Next i
    Debug.Print "= Удалено: " & CStr(N1)
    Debug.Print "= Ошибок: " & CStr(N2)
    Debug.Print ">>> Финиш " & Now
End Sub

то же ничего не удалил.

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

Если все эти стили встроенные, то почему они легко удаляются нажатием правой клавиши на вкладке/панели "Стили" или через Организатор.
Возможно написать макрос, чтобы он удалял вообще все стили, кроме используемых?
(соответственно, стили шаблона, на основании которых создан документ удалить нельзя никаким образом)

Александр Львович!
Что бы не сильно заморачиваться со стилями я изначально создал шаблон с ограниченным количеством последних и обозвав их My_Style сохранил как свой стиль в W2007-10.
А уж потом по этой одёжке протягиваю ножки...
Но...по наущению Эндрю Ципиховича вернулся к Word 2003, слегка напрягает выбор между используемыми, специальными и доступными стилями...Вроде худо бедно сохранил по этому принципу шаблон My_Style. Но никак не вытравляются два странных стиля в группе "используемых" "Обычный+по центру и 0 пт" и "Обычный 0пт" и ещё какая-то фигня.
Узнаете их среди моих названий...Странно они и не выделяются и кликаньем удалить их не удаляет...Почему. Посмотрите пожалуйста.
Шаблон прилагаю

Вложение

Valentine для начала хотелось бы сказать:
1. Удаление Встроенных стилей и Созданных(или вставленных) это 2 разных процесса, причем здесь также играет роль привязка к другому стилю.
Встроенный стиль, если он не имеет привязки не удаляется, а скрывается, заменяясь на настройки шрифта и абзаца стиля Обычный. Если же он привязан к другому стилю, то Word будет предлагать поменять настройки на привязанный стиль до тех пор, пока не дойдет до стиля без привязки, который под операцией Удалить скроет Встроенный стиль заменив на стиль Обычный.
Созданный(или вставленный) стиль удалиться без проблем заменившись на Обычный.
2. Стили типа Связанный знак и абзац, обычными макросами корректно смогут удалиться тогда, когда применены целиком к абзацу. А не к отдельно выделенным словам.
3. Свойство Style.Visibility также имеет свой нюанс, True скрывает стиль от использования, а также из окна Стили. False открывает стиль, но может показывать или нет в зависимости от настройки Показать используемые.
4. Для избегания большинства связанных со Стилями проблем, есть несколько основополагающих рекомендаций.

Печать созданных стилей:

Sub ShowBuiltInStyles()
    Dim i As Integer
    Dim i1 As Integer
    'счетчик встроенных стилей
    Selection.EndKey Unit:=wdStory
    For i = 1 To ActiveDocument.Styles.Count
        If ActiveDocument.Styles(i).BuiltIn = False Then
        'печать перечня созданных стилей с номерами стилей в коллекции
            Selection.Range.Text = i & " " & ActiveDocument.Styles(i).NameLocal
            Selection.EndKey Unit:=wdLine
            Selection.TypeParagraph
            i1 = i1 + 1
        End If
    Next i
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.Range.Text = "Общее количество стилей: " & ActiveDocument.Styles.Count
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.Range.Text = "Количество встроенных стилей: " & i1
End Sub

Александр!
Попробуйте Методом Найти найти в TO_Gurevitch.dot стиль Мелочь. Word выдаст что ничего не найдено. Хотя шрифт этого стиля в документе используется.

В списке он есть.
А найти его нельзя, потому, что стиль Мелочь является Стилем Связанного абзаца и знака, а в документе используется только форматирование Шрифта этого стиля.

Выделение + надстрочные является видоизменением стиля и Выделение, который имеет тип Стиль знака. И обратиться можно к стилю Выделение. Напрямую к Выделение + надстрочные обратиться нельзя.

Кстати, я выделил стилем Мелочь целый абзац. Все равно его в окне Найти не видно!...
В чем же тут дело? Что нужно выделить этим стилем, чтобы он стал виден в окне Найти?

Александр, к сожалению, никак не вижу закономерности:
Стиль Выделение + надстрочные - стиль шрифта; не виден в Найти, нет в коллекции.
Стиль Мелочь - связанный стиль; не виден в Найти, есть в коллекции.
Стиль Ненужный - стиль абзаца; виден в Найти, есть в коллекции.
Стиль После:  0 пт Междустр.интервал:  одинарный - стиль абзаца; не виден в Найти, нет в коллекции.

Вероятно, все же, что этот стиль создался автоматически, из-за установленных флажков Отображать как стили: Форматирование абзацев, Форматирование текста и Форматирование списков.
Вероятно, показателем таких автоматически установленных стилей является то, что "рядом с их названием нет ни значка абзаца, ни значка знака". Такой стиль, скорее всего, действительно воспринимается программой не как отдельный стиль, а как модификация стиля.

Уважаемые Александр Львович и aap77!
Спасибо что откликнулись и заглянули в мои каракули...
Я почему и заполз в эту тему, так как ясности с этими всякими стилями у меня не хватает.
И вообще, только появляется ощущение, что что-то начал понимать в этом Word, как он словно издеваясь сунет тебе очередну фигню типа неубираемых этих стилей...
что б вы только знали сколько раз я зубами скрежетал с этим автотекстом - пишешь, набираешь, сохранишь в шаблоне, шаблон поменяешь или при переноске с работы домой что сделается и...вместо многодневных наработок одни пустые окна... Вот это трагедия.
Это потом я наконец понял зачем шаблоны, а зачем файлы на их основе...
Да в одиночку всё... из окружения никому это не надо... А тут как написать тоже по-первости вроде как неудобно. Это сейчас вроде что-то начал понимать, да вот вы да ещё Ципихович Эндрю вроде приободрил...
Зато, потом какая радость, когда шаблон на глазах у тебя превращается в инструмент - вроде бошевского перфоратора...и писать получается не нудная обязанность, а даже удовольствие...
Я не поверите записал автоматической записью макрос - вставить пробел... Ну не ахти какая автоматизация...Вроде во всех местах есть - Вставка- вставить пробел- начать с новыой страницы... Вот три раза кликнуть...
Но...потребность такая возникает, когда не укладываюсь в заранее заготовленный протокол на одной странице... То есть материал получается сложнее обычного...То есть мозгозатрат на такой случай надо больше...как правило в таких случаях приходит ещё и ощущение - "возишься, хватит выписывать, отпускай человека, очередь создал".
И странное чувство именно с этими плёвыми пробелами получаются мучения из-за двух лишних кликов... Ну мозгами понимаю, - это психологически только. Но зубами уже не один раз скрежетал.
А тут раз - макрос, картиночку на него выбрал приметную - кружочек красный внутри перечёркнутый... Теперь нажимаю - получаю удовольствие...
Вы молодцы много всего разного хорошего тут пишите.
Вот со стилями меня удивило...
Тут с этим шаблоном как получилось... Я там со слепу мог что угодно наворотить...
Шаблон со стилями Без интервала, основной, строгий, Заголовок1-3, их модификации Центр 1-3, потом таблица и мелочь... Я вначале склепал в Word 2007-2010.
Каюсь, собирал их не особо понимая что делаю. Думал сделаю один шаблон Шапки-заголовки и буду на их основе клонировать остальные...
Долго получается - извините.
Короче когда я вернулся от Word 2010 назад к Word 2003 я взял за основу  привычные стили с Колибри... Мне нравятся эти шрифты ну и как-то так перенёс их. Что-то помню не срасталось я на глазок попереименовывал...
В других шаблонах вроде у меня в списке "Используемые" не возникает проблем, хотя постоянно нет нет да и выплывет очередной "nospaсe + кака-то хрень..."
Я так понимаю это из глубин всплывают, предустановленные стили с неблагозвучными именами...
Особо раздражает предположим Стиль Нормальный и тут же какой-то "Нормальный Знак"
Блин что за знак какой знак? Затёр как-то знак такой - всё порушилось...Больше не трогаю...
Выбрал вот 6-7 стилей и выбираю их из "Специальные" или "Используемые" Вот...
Ну короче я ещё тут почитаю, может вопросы позадаю, потом, а то и так много тут накарлюкал....
Слушал Гришковца у нас выступал вчера..."Прощание с бумагой"... Очень порадовала, что он про слово "карлюкать" сказал... Так казалось это только из моего детства...оказалось не только из моего 

Спасибо дорогой aap77.
Скажите, что имеется в виду когда мы говорим Стиль Знак - этот знак относится к тому какой мы шрифт употребляем. То есть, был стиль "Встроенный" условно говоря. Я поменял Aria 10 на Colibry 12 и Word обозвал его "Встроенный Знак"?
А если я (вернее даже не я, а команда Word 2007-2010  что то неведомое мне сотворила предположим с красной строкой или этим загадочным 0Пт - без интервала, то получается, что Word 2003 связывает Встроенный Знак -nospacing, а просто так его не найти даже поиском так как в голову не приходит как в результате таких трансформаций он может называться...
На самом деле я как и говорил ранее являюсь минималистом... Попытки менять стили меня не очень интересуют... И все проблемы возникать начинают, когда я шесть "табельных" стилей затрудняюсь найти только... Поэтому у меня интерес скорее познавательный...
Лично меня угнетает огромное количество "строгое выделение для оглавления списка литературы"...
И я их делаю невидимыми вынося в W2010 "табельные" стили на ленту в экспресс-стили... B Word 2003 я увидел забытые фильтры уже Специальные и Используемые и слегка растерялся...
Тем более не понял почему в этом шаблоне в списке Используемые стоит два непонятных стиля, которые не убираются простым стереть...И не выделяются, но обозначаются как пристуствующие...
Вот например у меня в примере :0ПТ Междкстрочный интервал:одиинарный интервал после :0Пт. Стоит есть 4 вложения этого стиля... Кликаешь выделить - их не выделяется...А убрать нет вообще - затемнено у меня... То есть искать мне его не надо он в используемых стоит и не уходит 
Он что из встроенных почему он в используемых если его не выделяет?
Я бы плюнул там слишком много автотекста уже стоит и панелей.
Ну так мне не очень мешает, я понять такой невидимости не могу...

Твою ж мать... Зачем так сделано? Что бы продемонстрировать гибчайший интерфейс?
Мусор можешь раскидывать куда хочешь, а достать из дальнего угла тебе никто не достанет потом?
Грустно это... Впрочем не первый раз уже грустно...

См.: http://wordexpert.ru/forum/viewtopic.php?id=1514

Здравствуйте!
Десять лет прошло, а у меня вопрос возник.
Можно ли макросом найти и выделить фрагменты текста в документе, где стиль модифицировался вручную, то есть, в окнах Инспектора стилей у него появились "плюсы"?