Макрос: удаление текста со всеми отличными стилями

[darthraziel]

Помогите, пожалуйста. С вба только начинаю знакомство.

Ситуация: имеется документ, параграфы в котором написаны с различными стилями.
Необходимо: оставить в документе только текст, форматированный тремя заданными стилями Стиль1, Стиль2, Стиль3, а текст, форматированный любыми другими стилями - удалить.

[Пименов Александр]

Вот 1 из вариантов макроса удаляющий текст ненужных стилей и пустые абзацы

Sub DeleteStyleText()
Dim prg As Paragraph
    For Each prg In ActiveDocument.Paragraphs
        Select Case prg.Style
            Case Is <> "Стиль 1", Is <> "Стиль 2", Is <> "Стиль 3"
                prg.Range.Delete
            Case Else
                If prg.Range.Characters.Count = 1 Then
                    prg.Range.Delete
                End If
        End Select
End Sub

[darthraziel]

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

[Пименов Александр]

Проверьте правильность названий Стилей в строке
Case Is <> "Стиль 1", Is <> "Стиль 2", Is <> "Стиль 3"

[Пименов Александр]

Если названия не совпадают, то удалиться весь абзац

[darthraziel]

Да нет, с правильностью там все в порядке, тем не менее, удалялись все абзацы. Немного переделал код под If...Then, и все заработало так, как задумано.

Sub DeleteStyleText()
Dim prg As Paragraph
    For Each prg In ActiveDocument.Paragraphs
        If prg.Style <> "Стиль1" Then
           If prg.Style <> "Стиль2" Then
              If prg.Style <> "Стиль3" Then
                    prg.Range.Delete
              End If
           End If
        End If
    Next
End Sub

[Пименов Александр]

"Стиль1" у Вас и "Стиль 1" не равны, попробуйте заменить мои стили своими и проверьте

[darthraziel]

У меня все равно там названия стилей совершенно другие, это я так, условно их обозвал стиль1-стиль2. Еще раз проверил - нет, все равно удаляет все.

[Ципихович Эндрю]

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

Помогите, пожалуйста. С вба только начинаю знакомство. Стиль1, Стиль2, Стиль3....

лихо с этого начинать...
Кисточка - знаете что такое?
Копировать формат-один взмах и все стили коту под хвост
Лично у меня с ними терпения не хватает...

[darthraziel]

Сообщение от Ципихович Эндрю

лихо с этого начинать...
Кисточка - знаете что такое?
Копировать формат-один взмах и все стили коту под хвост
Лично у меня с ними терпения не хватает...

И не говорите