4 rýchle spôsoby zobrazenia a prijatia revízií podľa dátumu v dokumente Word

V tomto článku plánujeme zobraziť 4 rýchle spôsoby, ako zobraziť a prijať revízie podľa dátumu v dokumente programu Word.

Dokument môže mať viacero recenzentov. Preto sa tieto revízie musia vykonať v inom dátume alebo čase. Predtým sme hovorili o tom, ako zobraziť a prijať revízie od konkrétneho recenzenta. Dnes si ukážeme, ako zobraziť a prijať revízie podľa dátumu.

3 spôsoby zobrazenia revízií podľa dátumu

Najprv sa pozrime na 3 spôsoby zobrazenia revízií podľa dátumu.

Metóda 1: Spustite „tabuľu kontroly“

1. Ak chcete začať, kliknite na kartu „Recenzia“.
2. Potom kliknite na tlačidlo prevráteného trojuholníka za „talou na kontrolu“.
3. Potom v rozbaľovacom zozname vyberte možnosť „Vodorovný panel kontroly“.

Teraz bude v spodnej časti okna programu Word otvorené okno. V okne sú revízie a dátumy, ku ktorým sa robia.

Metóda 2: Výpis revízií vykonaných v konkrétny dátum

1. Najprv kliknite na kartu „Vývojár“ a potom na príkaz „Visual basic“ a otvorte editor VBA. Alternatívnym spôsobom je stlačiť „Alt+ F11“.
2. Potom kliknite na „Normálny“ a potom na „Vložiť“.
3. Ďalej zvoľte „Modul“ a vložte nový.
4. Dvojitým kliknutím na nový modul aktivujete oblasť úprav.
5. Potom vložte nasledujúce kódy:

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. Ďalej kliknite na „Spustiť“.
7. Teraz je tu dialógové okno. Zadajte dátum vykonania všetkých revízií, ktoré chcete zobraziť. A kliknite na „OK“.
8. V dôsledku toho bude existovať nový dokument. Na ňom je tabuľka so všetkými revíziami toho dňa, ako napríklad nižšie:

Metóda 3: Výpis revízií pred dátumom

V prípade, že by ste chceli exportovať všetky revízie vytvorené pred dátumom, tu je makro, ktoré môžete spustiť.

1. Najskôr zopakujte prvé 4 kroky v metóde 2.
2. Potom namiesto toho prilepte nasledujúce kódy:

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 tiež na tlačidlo „Spustiť“.
4. Podobne sa zobrazí dialógové okno. Stačí zadať dátum, pred ktorým je potrebné zobraziť všetky revízie. Potom kliknite na „OK“.

Prijmite revízie pred konkrétnym dátumom

1. Pomocou vyššie uvedených krokov otvorte editor VBA a spustite nasledujúce kódy:

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 otvorenom dialógovom okne zadajte dátum a kliknite na „OK“.

Trik na obnovenie súborov programu Word

Word je citlivý na korupciu, a preto ohrozuje milióny súborov. Zrútenie slov môže vymazať cenné a dôverné údaje. Preto potrebujete a Nástroj na obnovenie problémov so súbormi programu Word na uvoľnenie zachytených údajov.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený nástroj na opravu údajov xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S