Schöck
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Прочее. Программное обеспечение > Word. Выделение цветом изменений, внесенных в режиме рецензирования

Word. Выделение цветом изменений, внесенных в режиме рецензирования

Ответ
Поиск в этой теме
Непрочитано 26.06.2020, 09:07 #1
Word. Выделение цветом изменений, внесенных в режиме рецензирования
kp+
 
идущий по граблям
 
Днепройт
Регистрация: 26.05.2005
Сообщений: 4,271

Подскажите, как можно автоматически выделить цветом множество изменений, внесенных в режиме рецензирования. Подозреваю, что штатной функции нет даже в самой свежей версии, но может кто видел, например, VBA-программку, которая могла бы помочь в этом глупом деле.
Offtop: На всякий случай, зачем это надо - начальство на режим рецензирования смотрит "как на новые ворота", и разбираться с ним не имеет желания. Поэтому приходится все изменения "красить вручную" (замены и дополнения - в желтый, удаления - в красный), и затем давать команду "принять все изменения".
__________________
Одно меня лишь радует - я это вижу сам! (С)
Просмотров: 587
 
Непрочитано 26.06.2020, 09:20
#2
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 8,212


попробуйте покопаться в этом API
Сергей812 вне форума  
 
Автор темы   Непрочитано 26.06.2020, 10:07
#3
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Днепройт
Сообщений: 4,271


Спасибо за наводку. Еще нашел болванку здесь, и вот что получилось:
Код:
[Выделить все]
Sub Tracked_to_highlighted()

' Macro provided by nixda, 18 Sep 2014, https://superuser.com/questions/813428/convert-tracked-changes-to-highlighted
' Adapted by Rhonda Bracey, CyberText Consulting Pty Ltd, 22 Nov 2018,
'и еще немного адаптировано kp+ :)
    tempState = ActiveDocument.TrackRevisions

' Turn off track changes
    ActiveDocument.TrackRevisions = False
    For Each Change In ActiveDocument.Revisions
        Set myRange = Change.Range
        ' myRange.Revisions.AcceptAll
        If Change.Type = wdRevisionDelete Then
            myRange.HighlightColorIndex = wdRed
            myRange.Font.StrikeThrough = True
            Change.Reject
            Else
            myRange.HighlightColorIndex = wdYellow
            Change.Accept
        End If
    Next
    ActiveDocument.TrackRevisions = tempState
End Sub
__________________
Одно меня лишь радует - я это вижу сам! (С)
kp+ вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Прочее. Программное обеспечение > Word. Выделение цветом изменений, внесенных в режиме рецензирования

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для работы с "пользовательскими свойствами документа" в AutoCAD и "DocProperty" в Word azetown Готовые программы 119 02.03.2020 21:42
Кто определяет существенность внесенных изменений в проектную документацию оченькровавыйштопор Организация проектирования и оформление документации 8 15.05.2015 16:40
Существуют ли разъяснения внесенных изменений по СП 15.13330.2012 Каменные и армокаменные конструкции (облицовка) bigden Каменные и армокаменные конструкции 9 20.02.2015 20:30
Как вставить чертеж из AutoCAD в Word? lyubitel4 AutoCAD 37 06.10.2014 19:28
хорошо бы разделить Undo действий с данными и Undo изменений экрана АлексЮстасу AutoCAD 5 07.03.2011 16:10