3 начина за приемане на конкретни проследени промени само във вашия Word документ

В тази статия искаме да споделим с вас 3 начина да приемете конкретни проследени промени само във вашия документ на Word.

Обикновено в документ с проследени промени можете да ги приемате всички наведнъж или всяка една по една. Но понякога може да се наложи да приемете само специфични промени, като всички промени във форматирането. За да се справи с това, са необходими допълнителни стъпки.

Следват 3 подхода за приемане на конкретни проследени промени само в различни случаи.

Метод 1: Приемете всички проследени промени от определен тип

Тук, да речем, че трябва да приемем всички промени във форматирането в документа.

1. Първо кликнете върху раздела „Преглед“.
2. След това щракнете върху командата „Показване на маркиране“.
3. След това поставете отметка само в полето „Форматиране“ от падащото меню.
4. Сега можете да видите, че в документа са показани само промени във форматирането. Щракнете върху падащия бутон на командата „Приемам“.
5. И изберете опцията „Приемане на всички показани промени“.

По същия начин, за да приемете други промени, просто покажете само този вид промени в документа и ги приемете.

Метод 2: Приемайте само изтривания или вмъквания

Както можете да видите от първата екранна снимка, вмъкванията и изтриванията са свързани помежду си. Следователно, за да приемете един от тях, ви е необходим макрос.

1. На първо място, натиснете „Alt + F11“, за да задействате редактора на VBA в Word.
2. След това щракнете върху „Нормален“ проект и щракнете върху „Вмъкване“ в лентата с менюта.
3. И изберете „Модул“ в това меню, за да вмъкнете нов.
4. След това щракнете двукратно върху модула, за да го отворите и поставете следните кодове:

Sub AcceptOnlyDeletionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionDelete Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Накрая щракнете върху бутона „Изпълни“ или просто натиснете „F5“, за да изпълните кодове.

Този макрос приема всички изтривания в документа. Що се отнася до приемането на всички вмъквания, просто замествате с този макрос:

Sub AcceptOnlyInsertionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionInsert Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Метод 3: Приемане на всички промени в селекция

Този метод ви показва как бързо да приемете всички промени в различни типове в селекцията.

1. Към start с, направете селекция над tarвземете обхват.
2. След това щракнете върху раздела „Преглед“ в лентата.
3. След това щракнете върху падащия бутон на командата „Приемам“.
4. От падащото меню изберете „Accept Change“. И това е.

Загубата на данни навсякъде

Продължавайки с прилива на цифровизацията, вероятността да се получи корумпиран док се увеличава. Като се има предвид стойността на вашите данни, силно се препоръчва да се снабдите с достатъчно инструмент за поправка. Така че можете да възстановите документи с най-малко време.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправете xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com