4 maneiras rápidas de visualizar e aceitar revisões por data em seu documento do Word

Neste artigo, planejamos mostrar 4 maneiras rápidas para você visualizar e aceitar revisões por data em seu documento do Word.

Um documento pode ter vários revisores. Portanto, essas revisões devem ser feitas em data ou horário diferente. Anteriormente, falamos sobre como visualizar e aceitar revisões de um revisor específico. Hoje, vamos mostrar como visualizar e aceitar revisões por data.

3 maneiras de visualizar as revisões por data

Primeiro, vamos dar uma olhada nas 3 maneiras de ver as revisões por data.

Método 1: Acionar o “Painel de Revisão”

1. Para começar, clique na aba “Revisão”.
2. Em seguida, clique no botão de triângulo invertido atrás do “Painel de revisão”.
3. Em seguida, escolha “Reviewing Pane Horizontal” na lista suspensa.

Agora deve haver uma janela aberta na parte inferior da janela do Word. Na janela estão as revisões e as datas em que foram feitas.

Método 2: Extrair revisões feitas em uma data específica

1. Primeiramente, clique na aba “Desenvolvedor” e depois no comando “Visual basic” para abrir o editor VBA. A forma alternativa é pressionar “Alt+F11”.
2. Em seguida, clique em “Normal” e depois em “Inserir”.
3. Em seguida, escolha “Módulo” para inserir um novo.
4. Clique duas vezes no novo módulo para ativar a área de edição.
5. Em seguida, cole os seguintes códigos:

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. A seguir, clique em “Executar”.
7. Agora há a caixa de diálogo. Insira a data em que todas as revisões que você deseja visualizar foram feitas. E clique em “OK”.
8. Consequentemente, haverá um novo documento. Nele está uma tabela incluindo todas as revisões daquele dia, conforme abaixo:

Método 3: extrair revisões antes de uma data

Caso você queira exportar todas as revisões criadas antes de uma data, aqui está a macro que você pode executar.

1. A princípio, repita as 4 primeiras etapas do método 2.
2. Em seguida, cole os seguintes códigos:

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. Clique no botão "Executar" também.
4. Da mesma forma, há uma caixa de diálogo aparecendo. Basta inserir a data antes da qual todas as revisões são necessárias para visualizar. Em seguida, clique em “OK”.

Aceitar revisões antes de uma data específica

1. Use as etapas acima para abrir o editor VBA e execute os seguintes códigos:

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. Na caixa de diálogo aberta, digite uma data e clique em "OK".

Um truque para recuperar arquivos do Word

O Word é sensível à corrupção, deixando milhões de arquivos em perigo. O colapso de palavras pode eliminar dados valiosos e confidenciais. Assim, você precisa de um Ferramenta de recuperação de problemas de arquivo do Word para liberar seus dados presos.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo ferramenta de correção de dados xls corrompidos e pdf reparar produtos de software. Para mais informações visite www.datanumen.com