4 snabba sätt att visa och acceptera ändringar efter datum i ditt Word-dokument

I den här artikeln planerar vi att visa fyra snabba sätt för dig att visa och acceptera revisioner efter datum i ditt Word-dokument.

Ett dokument kan ha flera granskare. Därför måste dessa ändringar göras på annat datum eller tid. Tidigare har vi pratat om hur man kan visa och acceptera revisioner från en specifik granskare. I dag ska vi visa dig hur du visar och accepterar ändringar efter datum.

3 sätt att se revisioner efter datum

Låt oss först ta en titt på de tre sätten att visa revisioner efter datum.

Metod 1: Aktivera "granskningsfönstret"

1. Till att börja med, klicka på fliken "Granska".
2. Klicka sedan på den upp-och-nedvända triangelknappen bakom "granskningsfönstret".
3. Välj sedan "Review Pane Horizontal" i rullgardinsmenyn.

Nu ska det finnas ett fönster öppet längst ner i Word-fönstret. I fönstret finns revisioner och datum då de är gjorda.

Metod 2: Extrahera revisioner gjorda på ett specifikt datum

1. Först av allt, klicka på fliken "Utvecklare" och sedan kommandot "Visual basic" för att öppna VBA-redigeraren. Det alternativa sättet är att trycka på "Alt+ F11".
2. Klicka sedan på “Normal” och sedan “Infoga”.
3. Välj sedan "Modul" för att infoga en ny.
4. Dubbelklicka på den nya modulen för att aktivera redigeringsområdet.
5. Klistra sedan in följande koder:

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. Klicka sedan på "Kör".
7. Nu finns dialogrutan. Ange det datum då alla ändringar du vill se görs. Och klicka på "OK".
8. Följaktligen kommer det att finnas ett nytt dokument. På den finns en tabell som inkluderar alla revisioner från den dagen, som nedan:

Metod 3: Extrahera revisioner före ett datum

Om du skulle vilja exportera alla revisioner som skapats före ett datum, här är makrot du kan köra.

1. Upprepa först de fyra första stegen i metod 4.
2. Klistra sedan in följande koder istället:

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. Klicka på "Kör"-knappen också.
4. På samma sätt dyker det upp en dialogruta. Ange bara datumet innan alla ändringar behövs för att se. Klicka sedan på "OK".

Acceptera ändringar före ett visst datum

1. Använd stegen ovan för att öppna VBA-redigeraren och köra följande koder:

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. I dialogrutan som öppnas, skriv ett datum och klicka på "OK".

Ett knep för att återställa Word-filer

Word är känsligt för korruption, vilket gör att miljontals filer är i fara. Ordkollaps kan radera ut värdefull och konfidentiell data. Därför behöver du en Återställningsverktyg för Word-filproblem för att frigöra dina instängda data.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive verktyg för korrupt xls-datafix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com