Тема: Как сохранить абзацы определенного стиля?
Есть макрос, меняющий все стили в документе на "Обычный", но сохраняющий полужирный и курсив. Что бы в него добавить, чтобы он не трогал абзацы определенного стиля? Конкретно заголовки wdStyleHeading1 - wdStyleHeading9 и списки wdStyleList, wdStyleListBullet и wdStyleListNumber.
Sub ВсеСделатьОбычнымССохранениемФорматирования()
With ActiveDocument.Styles(-1)
.Font.Name = "Times New Roman"
.Font.Size = 12
.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
ActiveDocument.Styles(-1).NoProofing = False
Dim i, b As Boolean
Dim a As String
For Each p In ActiveDocument.Paragraphs
a = p.Alignment
b = p.Range.Bold
i = p.Range.Italic
p.style = ActiveDocument.Styles(-1)
p.Alignment = a
p.Range.Bold = b
p.Range.Italic = i
Next p
End Sub