4 hitri načini za ogled in sprejemanje revizij po datumu v vašem Wordovem dokumentu

V tem članku nameravamo prikazati 4 hitre načine za ogled in sprejemanje revizij po datumu v Wordovem dokumentu.

Dokument ima lahko več pregledovalcev. Zato je treba te revizije opraviti ob drugem datumu ali uri. Prej smo govorili o tem, kako si ogledati in sprejeti revizije določenega ocenjevalca. Danes vam bomo pokazali, kako si ogledate in sprejmete revizije po datumu.

3 načini za ogled revizij po datumu

Najprej si oglejmo 3 načine za ogled revizij po datumu.

1. način: Sprožite »podokno za pregledovanje«

1. Za začetek kliknite zavihek »Pregled«.
2. Nato kliknite gumb narobe obrnjenega trikotnika za »podoknom za pregledovanje«.
3. Nato na spustnem seznamu izberite »Podokno za pregled vodoravno«.

Zdaj bo na dnu okna Word odprto okno. V oknu so revizije in datumi, ko so bile narejene.

2. način: Izvleček popravkov, narejenih na določen datum

1. Najprej kliknite zavihek »Razvijalec« in nato ukaz »Visual basic«, da odprete urejevalnik VBA. Druga možnost je, da pritisnete »Alt + F11«.
2. Nato kliknite “Normal” in nato “Insert”.
3. Nato izberite »Modul«, da vstavite novega.
4. Dvokliknite nov modul, da aktivirate območje za urejanje.
5. Nato prilepite spodnje kode:

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. Nato kliknite »Zaženi«.
7. Zdaj je tu pogovorno okno. Vnesite datum, ko so bile narejene vse revizije, ki si jih želite ogledati. In kliknite »V redu«.
8. Posledično bo nov dokument. Na njej je tabela, ki vključuje vse revizije tistega dne, kot je spodaj:

3. način: Izvleček revizij pred datumom

Če želite izvoziti vse revizije, ustvarjene pred datumom, je tukaj makro, ki ga lahko zaženete.

1. Najprej ponovite prve 4 korake v 2. metodi.
2. Nato namesto tega prilepite naslednje kode:

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. Kliknite tudi gumb »Zaženi«.
4. Podobno se prikaže pogovorno okno. Samo vnesite datum, pred katerim so potrebne vse revizije za ogled. Nato kliknite »V redu«.

Sprejmite revizije pred določenim datumom

1. Z zgornjimi koraki odprite urejevalnik VBA in zaženite naslednje kode:

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. V odprtem pogovornem oknu vnesite datum in kliknite »V redu«.

Trik za obnovitev Wordovih datotek

Word je občutljiv na poškodbe, zato je v nevarnosti na milijone datotek. Strnitev besed lahko izbriše dragocene in zaupne podatke. Torej potrebujete a Orodje za odpravo težav z datoteko Word da osvobodite svoje ujete podatke.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z orodje za popravljanje poškodovanih podatkov xls in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com