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

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

Един документ може да има множество рецензенти. Следователно тези ревизии трябва да бъдат направени на различна дата или час. По-рано говорихме за това как да преглеждате и приемате ревизии от конкретен рецензент. Днес нека ви покажем как да преглеждате и приемате ревизии по дата.

3 начина за преглед на ревизии по дата

Първо, нека да разгледаме 3-те начина за преглед на ревизиите по дата.

Метод 1: Задействайте „Прозореца за преглед“

1. За да започнете, кликнете върху раздела „Преглед“.
2. След това щракнете върху бутона с главата надолу триъгълник зад „Прозореца за преглед“.
3. След това изберете „Прозорец за преглед хоризонтално“ от падащия списък.

Сега ще има отворен прозорец в долната част на прозореца на Word. В прозореца има ревизии и дати, на които са направени.

Метод 2: Извличане на ревизии, направени на определена дата

1. Първо щракнете върху раздела „Разработчик“ и след това върху командата „Visual basic“, за да отворите VBA редактора. Алтернативният начин е да натиснете „Alt+ F11“.
2. След това щракнете върху „Normal“ и след това „Insert“.
3. След това изберете „Модул“, за да вмъкнете нов.
4. Кликнете два пъти върху новия модул, за да активирате областта за редактиране.
5. След това поставете кодовете по-долу:

Sub ExtractRevisionsOfSpecificDate()
  Dim objRevision As Revision
  Dim objDoc As Document, objNewDoc As Document
  Dim dtRevisionDate As Date
  Dim strRevisionDate As String
  Dim varRevisionType As Variant
  Dim objTable As Table
 
  varRevisionType = Array("Replace", "Insert", _
    "Property", "Delete", "ParagraphNumber", "NoRevision", "DisplayField", _
    "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _
    "ParagraphProperty", "StyleDefinition")

  strRevisionDate = InputBox("Input a revision date:")
  If strRevisionDate <> "" Then
    IsDate (strRevisionDate)
  Else
  End If
 
  dtRevisionDate = CDate(strRevisionDate)

  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add 
  Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc.Range, _
    numrows:=1, numcolumns:=3)
  nRow = 1
  With objTable
    .Cell(1, 1).Range.Text = "Page"
    .Cell(1, 2).Range.Text = "Line"
    .Cell(1, 3).Range.Text = "Revision Type"
 
  For Each objRevision In objDoc.Revisions
    If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) = dtRevisionDate Then
      .Rows.Add
      nRow = nRow + 1
      .Cell(nRow, 1).Range.Text = objRevision.Range.Information( _
        wdActiveEndAdjustedPageNumber)
      .Cell(nRow, 2).Range.Text = objRevision.Range.Information( _
        wdFirstCharacterLineNumber)
      .Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type)
    End If
  Next objRevision
  End With
End Sub

6. След това щракнете върху „Изпълни“.
7. Сега има диалогов прозорец. Въведете датата, на която са направени всички ревизии, които искате да видите. И щракнете върху „OK“.
8. Следователно ще има нов документ. Върху него има таблица, включваща всички ревизии от този ден, като например по-долу:

Метод 3: Извличане на ревизии преди дата

В случай, че искате да експортирате всички ревизии, създадени преди дадена дата, ето макроса, който можете да стартирате.

1. Отначало повторете първите 4 стъпки от метод 2.
2. След това вместо това поставете следните кодове:

Sub ExtractRevisionsBeforeSpecificDate()
  Dim objRevision As Revision
  Dim objDoc As Document, objNewDoc As Document
  Dim dtRevisionDate As Date
  Dim strRevisionDate As String
  Dim varRevisionType As Variant
  Dim objTable As Table
 
  varRevisionType = Array("Replace", "Insert", _
    "Property", "Delete", "ParagraphNumber", "NoRevision", "DisplayField", _
    "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _
    "ParagraphProperty", "StyleDefinition")

  strRevisionDate = InputBox("Input a date:")
  If strRevisionDate <> "" Then
    IsDate (strRevisionDate)
  Else
  End If
 
  dtRevisionDate = CDate(strRevisionDate)

  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc.Range, _
  numrows:=1, numcolumns:=3)
  nRow = 1
  With objTable
   .Cell(1, 1).Range.Text = "Page"
   .Cell(1, 2).Range.Text = "Line"
   .Cell(1, 3).Range.Text = "Revision Type"
 
  For Each objRevision In objDoc.Revisions
    If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) < dtRevisionDate Then
      .Rows.Add
      nRow = nRow + 1
      .Cell(nRow, 1).Range.Text = objRevision.Range.Information( _
      wdActiveEndAdjustedPageNumber)
      .Cell(nRow, 2).Range.Text = objRevision.Range.Information( _
      wdFirstCharacterLineNumber)
      .Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type)
    End If
  Next objRevision
  End With
End Sub

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

Приемане на ревизии преди конкретна дата

1. Използвайте горните стъпки, за да отворите VBA редактор и да изпълните следните кодове:

Sub AcceptRevisionsBeforeDate()
  Dim objRevision As Revision
  Dim dtTheDate As Date
  Dim strTheDate As String
 
  strTheDate = InputBox("Input the date before which all revisions should be accepted:")
  If strTheDate <> "" Then
    IsDate (strTheDate)
  Else
  End If
 
  dtTheDate = CDate(strTheDate)
 
  For Each objRevision In ActiveDocument.Revisions
    If objRevision.Date < dtTheDate Then
      objRevision.Accept
    End If
  Next objRevision
End Sub

2. В отворения диалогов прозорец въведете дата и щракнете върху „OK“.

Трик за възстановяване на Word файлове

Word е чувствителен към корупция, поради което оставя милиони файлове в опасност. Свиването на Word може да унищожи ценни и поверителни данни. По този начин имате нужда от a Инструмент за възстановяване на проблеми с Word файлове за да освободите задържаните си данни.

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

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