4 rychlé způsoby, jak zobrazit a přijmout revize podle data v dokumentu Word

V tomto článku plánujeme zobrazit 4 rychlé způsoby, jak zobrazit a přijmout revize podle data v dokumentu Word.

Dokument může mít více recenzentů. Proto musí být tyto revize provedeny v jiném datu nebo čase. Dříve jsme hovořili o tom, jak zobrazit a přijmout revize od konkrétního recenzenta. Dnes vám ukážeme, jak zobrazit a přijmout revize podle data.

3 způsoby, jak zobrazit revize podle data

Nejprve se podívejme na 3 způsoby, jak zobrazit revize podle data.

Metoda 1: Spustit podokno kontroly

1. Chcete-li začít, klikněte na záložku „Recenze“.
2. Poté klikněte na tlačítko vzhůru nohama na trojúhelník za „podoknem kontroly“.
3. Dále v rozevíracím seznamu vyberte možnost „Zkontrolovat horizontální podokno“.

Nyní ve spodní části okna aplikace Word bude otevřeno okno. V okně jsou revize a data, kdy byly provedeny.

Metoda 2: Extrakce revizí provedených k určitému datu

1. Nejprve kliknutím na kartu „Vývojář“ a následným příkazem „Visual Basic“ otevřete editor VBA. Alternativním způsobem je stisknout „Alt + F11“.
2. Poté klikněte na „Normální“ a poté na „Vložit“.
3. Poté zvolte „Modul“ a vložte nový.
4. Poklepáním na nový modul aktivujete editační oblast.
5. Poté vložte následující 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. Dále klikněte na „Spustit“.
7. Nyní existuje dialogové okno. Zadejte datum, kdy budou provedeny všechny revize, které chcete zobrazit. A klikněte na „OK“.
8. V důsledku toho bude nový dokument. Na ní je tabulka obsahující všechny revize daného dne, například níže:

Metoda 3: Extrakce revizí před datem

V případě, že byste chtěli exportovat všechny revize vytvořené před datem, je zde makro, které můžete spustit.

1. Nejprve opakujte první 4 kroky v metodě 2.
2. Místo toho vložte následující 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. Klikněte také na tlačítko „Spustit“.
4. Podobně se objeví dialogové okno. Stačí zadat datum, do kterého jsou všechny revize potřebné k zobrazení. Poté klikněte na „OK“.

Přijměte revize před konkrétním datem

1. Výše uvedenými kroky otevřete editor VBA a spusťte následující 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 otevřeném dialogovém okně zadejte datum a klikněte na „OK“.

Trik k obnovení souborů Word

Word je citlivý na korupci, a proto nechává miliony souborů v nebezpečí. Sbalení slov může vymazat cenná a důvěrná data. Potřebujete tedy Nástroj pro obnovení problému se soubory Word uvolnit vaše zachycená data.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený nástroj pro opravu dat xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com