With ActiveDocument.Content.Find 'делаем жирные НЕкурсивы жирными КУРСИВАМИ (для ОСН. ТЕКСТА)
.ClearFormatting
.Style = ActiveDocument.Styles("Основной текст"): .Font.Bold = True: .Font.Italic = False
With .Replacement
.ClearFormatting: .Font.Bold = True: .Font.Italic = True
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, _
Replace:=wdReplaceAll
End With 'подправили жирные прямые на жирные курсивы
With ActiveDocument.Content.Find 'делаем жирные НЕкурсивы жирными КУРСИВАМИ (для ОСН. ТЕКСТА)
.ClearFormatting
.Style = ActiveDocument.Styles("Основной текст с отступом"): .Font.Bold = True: .Font.Italic = False
With .Replacement
.ClearFormatting: .Font.Bold = True: .Font.Italic = True
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, _
Replace:=wdReplaceAll
End With 'исправили жирные прямые на жирные курсивы
Можно ли не перечислять похожие стили в Ворде
Вот такой вопрос. В документе Ворд имеются след. стили: Основной текст, Основной текст с отступом, Основной текст с отступом 2, Основной текст с отступом 3 и т.д. Т.е. много модификаций исходного стиля. Можно ли для обработки таких стилей на прописывать каждое название для обработки, а использовать только начало названия, типа wildCard? Т.е. задание должно было бы звучать так: [COLOR="Navy"]обрабатывать все стили, название которых начинается с "Основной текст"[/COLOR].
фрагмент:
фрагмент:
Код: