4 brza načina da pogledate i prihvatite revizije po datumu u vašem Word dokumentu

U ovom članku planiramo da prikažemo 4 brza načina da pregledate i prihvatite revizije po datumu u vašem Word dokumentu.

Dokument može imati više recenzenata. Stoga, ove revizije moraju biti izvršene u drugi datum ili vrijeme. Ranije smo govorili o tome kako pregledati i prihvatiti revizije od određenog recenzenta. Danas, hajde da vam pokažemo kako da pregledate i prihvatite revizije po datumu.

3 načina za pregled revizija po datumu

Prvo, pogledajmo 3 načina za pregled revizija po datumu.

Metoda 1: Pokrenite "Okno za pregled"

1. Za početak, kliknite na karticu "Pregled".
2. Zatim kliknite dugme naopako okrenutog trougla iza „Okna za pregled“.
3. Zatim na padajućoj listi odaberite "Reviewing Pane Horizontal".

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

Metoda 2: Izdvojite revizije napravljene na određeni datum

1. Prije svega, kliknite na karticu "Developer", a zatim na naredbu "Visual basic" da otvorite VBA editor. Alternativni način je da pritisnete “Alt+ F11”.
2. Zatim kliknite na “Normal” i zatim “Insert”.
3. Zatim odaberite “Module” da umetnete novi.
4. Dvaput kliknite na novi modul da aktivirate područje 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 na “Run”.
7. Sada postoji okvir za dijalog. Unesite datum kada su napravljene sve revizije koje želite da vidite. I kliknite na “OK”.
8. Shodno tome, postojaće novi dokument. Na njemu je tabela koja uključuje sve revizije tog dana, kao što je dolje:

Metoda 3: Izdvojiti revizije prije datuma

U slučaju da želite da izvezete sve revizije kreirane pre datuma, evo makroa koji možete pokrenuti.

1. Prvo 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. Takođe kliknite na dugme „Pokreni“.
4. Slično, pojavljuje se dijaloški okvir. Samo unesite datum prije kojeg su potrebne sve revizije za pregled. Zatim kliknite na “OK”.

Prihvatite revizije prije određenog datuma

1. Koristite gornje korake da otvorite VBA editor 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 dijaloškom okviru koji se otvori unesite datum i kliknite na “OK”.

Trik za oporavak Word datoteka

Word je osjetljiv na korupciju, tako da milione datoteka ostavlja u opasnosti. Kolaps riječi može izbrisati vrijedne i povjerljive podatke. Dakle, trebate a Alat za oporavak od problema s Word datotekama da oslobodite zarobljene podatke.

Uvod za autora:

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