1 Тема от fishfishec

  • fishfishec
  • рядовой
  • Неактивен
  • Зарегистрирован: 28.02.2012
  • Сообщений: 1

Тема: Как добавить символ?

Имеется файл doc более 1000 страниц. В нем есть некоторое количество абзацов жирным шрифтом. Остальной текст - обычный шрифт. Мне нужно перед каждым жирным абзацом поставить знак + .
Например, текст:
аааа
ААА
А
аа
аа
АА

нужно чтобы стал:
аааа
+ААА
А
аа
+аа
АА

Как сделать автоматически? Спасибо!

2 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: Как добавить символ?

Вот самый простой макрос который перебирает все абзацы Активного документа и если 1 знак абзаца жирный и не равен + то добавляет знак + в начало абзаца и выводит информацию об отмеченных абзацах
Public Sub AddPlus()

Dim prg As Paragraph, ch As Characters, i As Long
i = 0
    For Each prg In ActiveDocument.Paragraphs
        If prg.Range.Characters.First.Font.Bold = True Then
            If prg.Range.Characters.First.Text <> "+" Then
                prg.Range.InsertBefore ("+")
                i = i + 1
            End If
        End If
    Next prg
    MsgBox "Абзацев отмеченных знаком «+»: " & i, vbInformation
End Sub