4 modi rapidi per visualizzare e accettare le revisioni per data nel documento di Word

In questo articolo, abbiamo in programma di mostrare 4 modi rapidi per visualizzare e accettare le revisioni per data nel tuo documento Word.

Un documento può avere più revisori. Pertanto, tali revisioni devono essere effettuate in data o ora diversa. In precedenza, abbiamo parlato di come visualizzare e accettare le revisioni da un revisore specifico. Oggi ti mostriamo come visualizzare e accettare le revisioni per data.

3 modi per visualizzare le revisioni per data

Innanzitutto, diamo un'occhiata ai 3 modi per visualizzare le revisioni per data.

Metodo 1: attivare il "riquadro di revisione"

1. Per iniziare, fai clic sulla scheda “Revisione”.
2. Quindi fare clic sul pulsante del triangolo capovolto dietro il "Riquadro di revisione".
3. Quindi scegli "Riquadro di revisione orizzontale" nell'elenco a discesa.

Ora ci sarà una finestra aperta nella parte inferiore della finestra di Word. Nella finestra ci sono le revisioni e le date in cui sono state fatte.

Metodo 2: estrarre le revisioni effettuate in una data specifica

1. Prima di tutto, fai clic sulla scheda "Sviluppatore" e quindi sul comando "Visual basic" per aprire l'editor VBA. Il modo alternativo è premere "Alt + F11".
2. Quindi fare clic su "Normale" e quindi su "Inserisci".
3. Quindi scegli "Modulo" per inserirne uno nuovo.
4. Fare doppio clic sul nuovo modulo per attivare l'area di modifica.
5. Quindi incolla i seguenti codici:

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. Successivamente, fai clic su "Esegui".
7. Ora c'è la finestra di dialogo. Inserisci la data in cui vengono effettuate tutte le revisioni che desideri visualizzare. E fai clic su "OK".
8. Di conseguenza, ci sarà un nuovo documento. Su di esso c'è una tabella che include tutte le revisioni di quel giorno, come di seguito:

Metodo 3: estrarre le revisioni prima di una data

Nel caso in cui desideri esportare tutte le revisioni create prima di una data, ecco la macro che puoi eseguire.

1. All'inizio, ripeti i primi 4 passaggi del metodo 2.
2. Quindi incolla invece i seguenti codici:

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. Fai clic anche sul pulsante "Esegui".
4. Allo stesso modo, viene visualizzata una finestra di dialogo. Basta inserire la data prima della quale è necessario visualizzare tutte le revisioni. Quindi fare clic su "OK".

Accetta revisioni prima di una data specifica

1. Utilizzare i passaggi precedenti per aprire l'editor VBA ed eseguire i seguenti codici:

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. Nella finestra di dialogo aperta, digitare una data e fare clic su "OK".

Un trucco per recuperare i file di Word

Word è sensibile alla corruzione, lasciando quindi milioni di file in pericolo. Il collasso delle parole può cancellare dati preziosi e riservati. Quindi, hai bisogno di un file Strumento per il recupero dei problemi di file di Word per liberare i dati intrappolati.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui strumento di correzione dei dati xls corrotti and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com