4 brza načina za pregled i prihvaćanje revizija po datumu u vašem Word dokumentu

U ovom članku planiramo prikazati 4 brza načina za pregled i prihvaćanje izmjena po datumu u vašem Word dokumentu.

Dokument može imati više recenzenata. Stoga se te revizije moraju izvršiti u drugom datumu ili vremenu. Ranije smo govorili o tome kako pregledati i prihvatiti revizije od određenog recenzenta. Danas ćemo vam pokazati kako pregledati i prihvatiti revizije po datumu.

3 načina za pregled revizija po datumu

Prvo, pogledajmo 3 načina pregledavanja revizija po datumu.

Metoda 1: Pokrenite "Okno za pregled"

1. Za početak kliknite karticu "Pregled".
2. Zatim kliknite gumb naopako okrenutog trokuta iza "okna za pregled".
3. Zatim odaberite "Okno za pregled vodoravno" na padajućem popisu.

Sada će biti otvoren prozor na dnu prozora programa Word. U prozoru su revizije i datumi kada su napravljene.

Metoda 2: Izdvojite izmjene napravljene na određeni datum

1. Najprije kliknite karticu "Developer", a zatim naredbu "Visual basic" za otvaranje VBA uređivača. Alternativni način je da pritisnete “Alt+ F11”.
2. Zatim kliknite "Normalno", a zatim "Umetni".
3. Zatim odaberite "Modul" za umetanje novog.
4. Dvaput kliknite na novi modul za aktiviranje područja za uređivanje.
5. Zatim zalijepite sljedeće kodove:

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. Zatim kliknite "Pokreni".
7. Sada je tu dijaloški okvir. Unesite datum na koji su napravljene sve revizije koje želite vidjeti. I kliknite "OK".
8. Shodno tome, bit će novi dokument. Na njoj je tablica koja uključuje sve revizije tog dana, kao što je dolje:

Metoda 3: izdvajanje revizija prije datuma

U slučaju da želite izvesti sve revizije stvorene prije datuma, ovdje je makronaredba koju možete pokrenuti.

1. Najprije ponovite prva 4 koraka u metodi 2.
2. Zatim umjesto toga zalijepite sljedeće kodove:

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 i gumb "Pokreni".
4. Slično tome, iskače dijaloški okvir. Samo unesite datum prije kojeg su sve revizije potrebne za pregled. Zatim kliknite "OK".

Prihvatite izmjene prije određenog datuma

1. Upotrijebite gornje korake za otvaranje VBA uređivača i pokrenite sljedeće kodove:

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. U otvorenom dijaloškom okviru upišite datum i kliknite "OK".

Trik za oporavak Word datoteka

Word je osjetljiv na oštećenje, zbog čega milijuni datoteka ostaju u opasnosti. Sažimanje riječi može izbrisati vrijedne i povjerljive podatke. Dakle, trebate a Alat za oporavak problema s Word datotekom osloboditi svoje zarobljene podatke.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući alat za popravak oštećenih xls podataka i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com