удаление неиспользуемых стилей

[caute]

к примеру, в прилагаемом образце почему-то удаляется стиль Citata
и ваша версия макроса тоже его удаляет, как выяснилось

[Вождь]

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

...ваша версия макроса имеет иммунитет к ошибкам...

Да.

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

...почему-то удаляет иногда и нелишние...

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

Вообще, интересно было бы узнать подробнее, как Word работает со стилями

[caute]

мдя... как всё запутали ваши коллеги из редмонда

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

[Вождь]

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

...что значит "связанный стиль"?...

Связывает стиль абзаца со стилем знака, т.е. у них как бы общий стиль знака. Так сказано в документации. На самом деле, можно связать стиль абзаца со стилем абзаца и др.

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

...можно ли его развязать?...

Как я знаю, макросами развязать нельзя никак. Если что-то прописал в LinkStyle, то уже все К тому же Word такие стили любит лепить автоматом

Добавьте в ваш макрос поиск связанного стиля.

[caute]

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

[caute]

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

[Вождь]

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

ну а ручками-то как развязать?...

Пересозданием стиля.

[Вождь]

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

добавить что-либо в макрос...

Sub Удалить_стили()
    Debug.Print "<<< Старт " & Now
Dim R As Word.Range
Dim myStyle As Word.Style
Dim i&, N1&, N2&
Dim S$
    Set R = ActiveDocument.Range(0, 0)
    With R.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = Word.wdFindStop
        .Format = True
    End With
    N1 = 0: N2 = 0
    For i = ActiveDocument.Styles.Count To 1 Step -1
        Set myStyle = ActiveDocument.Styles(i)
        If myStyle.BuiltIn = True Then GoTo 1
        If myStyle.InUse <> True Then GoTo 1
        If myStyle.Locked = True Then GoTo 1
        If myStyle.LinkStyle Is Nothing Then
        ElseIf myStyle.LinkStyle.Type <> Word.wdStyleTypeCharacter Then
        Else
            R.SetRange 0, 0
            R.Find.Style = myStyle.LinkStyle.NameLocal
            R.Find.Execute Replace:=Word.wdReplaceNone
            If R.Find.Found = True Then GoTo 1
        End If
        S = myStyle.NameLocal
        R.SetRange 0, 0
        R.Find.Style = S
        R.Find.Execute Replace:=Word.wdReplaceNone
        If R.Find.Found = True Then GoTo 1
        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
1:
    Next i
    Debug.Print "= Удалено: " & CStr(N1)
    Debug.Print "= Ошибок: " & CStr(N2)
    Debug.Print ">>> Финиш " & Now
End Sub

[caute]

многие спасибо за макрос!

Пересозданием стиля.

если я просто пересоздам стиль, он же ничем не будет отличаться от своего предшественника. Не понимаю, почему, например, стиль "Citata" получился у меня связанным. Я его создал с нуля на основе стиля "Обычный" и ни с чем другим больше не связывал...

Правда, последний ваш макрос решил проблему, это я просто так любопытствую

[Вождь]

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

м...почему, например, стиль "Citata" получился у меня связанным...

Word может сам по себе создавать и связывать стили. Судя по названию "Citata Знак", так и было. Уже подзабыл, как это работает...