Пусть говорят: Остаться в 90 без дома: Иван Краско умоляет спасти его от директора

  • 21.10.2020 (Анонс)
  • Дочь Успенской сбежала из американской психбольницы
  • Сделку с квартирой Баталовых заверил «черный нотариус»? Пусть говорят
  • Тайны финалистов и Наставников шоу «Голос»
  • Шукшина выиграла суд у Алибасова
  • Кто ждал Софию Конкину после фитнес-клуба? Пусть говорят
  • Что было в бутылке, из которой пила София Конкина? Пусть говорят
  • 08.10.2020 (Анонс)
  • Мария Максакова боится бывшую свекровь? Пусть говорят
  • «Все о моем деде»: Мария Максакова узнала тайну своей ДНК
  • описание шоу Пусть говорят: Остаться в 90 без дома: Иван Краско умоляет спасти его от директора
    Пусть говорят: Остаться в 90 без дома: Иван Краско умоляет спасти его от директора
    Канал: Первый канал
    Эфир: 23.09.2020

    «Пусть говорят» - это та передача, новые выпуски которой нередко вызывают огромный ажиотаж среди зрителей. Здесь обсуждаются интересные, необычные и запутанные истории из жизни телезвезд и обычных людей. Причем довольно часто ранее неизвестный широкой публике человек становиться звездой именно благодаря этому ток-шоу.

    Смотрите новый выпуск «Пусть говорят» онлайн на Первом канале или в записи на нашем сайте.

     

    [‎9/‎23/‎2020 1:28 PM]  Lytvynchuk, Oleksandr:  
    привет, а можешь про свою технологию раскрашивания рассказать
     
    [‎9/‎23/‎2020 1:33 PM]  Boiko, Yevhenii:  
    Привет, комперю нужные мне разделы в ворде, потом копирую-заменяю изменения в новую версию. Для зачеркивания\раскрашивания пользуюсь макросами: 
    Sub OldTextGreenStrikeThrough()
        Selection.Font.Color = RGB(0, 176, 80)
        Selection.Font.StrikeThrough = True
    End Sub

    Sub NewTextBlue()
        Selection.Font.Color = RGB(0, 112, 192)
        Selection.Font.StrikeThrough = False
    End Sub

    Sub MakeTextBlackNotStrikeThrouh()
        Selection.Font.ColorIndex = RGB(0, 0, 0)
        Selection.Font.StrikeThrough = False
    End Sub 
     
    [‎9/‎23/‎2020 1:34 PM]  Lytvynchuk, Oleksandr:  
    ого
     
    [‎9/‎23/‎2020 1:35 PM]  Boiko, Yevhenii:  
    alt+f11 => Normal => modules => Insert(меню вверху) => Module - и вставляешь это. Потом их можно назначить на комбинации клавиш - по названию должно быть понятно, что каждый из них делает)
     
    Sub Macro1()

    Dim chgAdd As Word.Revision

    If ActiveDocument.Revisions.Count = 0 Then
        MsgBox "There are no revisions in this document", vbOKOnly
    Else
        ActiveDocument.TrackRevisions = False
        For Each chgAdd In ActiveDocument.Revisions
            If chgAdd.Type = wdRevisionDelete Then
                chgAdd.Range.Font.StrikeThrough = True
                chgAdd.Range.Font.Color = RGB(0, 176, 80)  
                chgAdd.Reject
            ElseIf chgAdd.Type = wdRevisionInsert Then
                chgAdd.Range.Font.Color = RGB(0, 112, 192) 
                chgAdd.Accept
            Else
                MsgBox ("Unexpected Change Type Found"), vbOKOnly + vbCritical
                chgAdd.Range.Select ' move insertion point
            End If
        Next chgAdd
    End If
    End Sub 
     

    Дата выхода

    23 Сентябрь 2020 (Среда)