' раскрашивание слова новая редакция в красный цвет
With Worksheets("Sheet1").Cells
    Set c = .Find(What:="новая редакция", LookIn:=xlValues)
    If Not c Is Nothing Then
     FirstAddress = c.Address
        Do
            c.Characters(Start:=InStr(c.Text, "новая редакция"), Length:=Len("новая редакция")).Font.Color = -16776961
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> FirstAddress
    End If
End With

' раскрашивание строки в красный цвет где есть слово исключено
With Worksheets("Sheet1").Cells
    Set c = .Find(What:="исключено", LookIn:=xlValues)
    If Not c Is Nothing Then
      FirstAddress = c.Address
        Do
          Rows(c.Row).Select
          With Selection.Rows.Font
             .Color = -16776961
             .TintAndShade = 0
          End With
'          c.Value = "исключено"
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> FirstAddress
    End If
End With

  Set MySheet = XLWB_ActiveWorkbook.ActiveSheet
  MySheet.Activate
  MySheet.Cells.Replace "$1", Chr(10)

c.Characters(Start:=InStr(c.Text, "новая редакция"), Length:=Len("новая редакция")).Font.Color = -16776961

c.Characters(InStr(c.Text, "новая редакция"), Len("новая редакция")).Font.Color = -16776961

With XLWB_ActiveWorkbook.Worksheets("Sheet1").Cells
' раскрашивание слова новая редакция в красный цвет
  Set c = .Find("новая редакция")
  If Not c Is Nothing Then
    FirstAddress = c.Address
      Do
          c.Characters(InStr(c.Text, "новая редакция"), Len("новая редакция")).Font.Color = -16776961
          Set c = .FindNext(c)
      Loop While Not c Is Nothing And c.Address <> FirstAddress
  End If

' раскрашивание строки в красный цвет где есть слово исключено
  Set c = .Find("исключено")
  If Not c Is Nothing Then
    FirstAddress = c.Address
      Do
        With c.EntireRow.Interior '.Font
           .Color = -16776961
           .TintAndShade = 0
        End With
        Set c = .FindNext(c)
      Loop While Not c Is Nothing And c.Address <> FirstAddress
  End If
End With

  METHOD postpr_vbs_autofit .
....

*         restore cell selection
          r_ole->r_spreadsheet->[b]get_selection[/b](
                IMPORTING top     = lv_selection_top
                          left    = lv_selection_left
                          rows    = lv_selection_rows
                          columns = lv_selection_columns ) .

....

  ENDMETHOD .                    "postpr_vbs_autofit