4 ātrie veidi, kā skatīt un pieņemt pārskatījumus pēc datuma jūsu Word dokumentā

Šajā rakstā mēs plānojam parādīt 4 ātrus veidus, kā Word dokumentā skatīt un pieņemt pārskatījumus pēc datuma.

Dokumentam var būt vairāki recenzenti. Tāpēc šie labojumi jāveic citā datumā vai laikā. Iepriekš mēs runājām par to, kā skatīt un pieņemt konkrēta recenzenta pārskatījumus. Šodien parādīsim, kā apskatīt un pieņemt pārskatījumus pēc datuma.

3 veidi, kā apskatīt pārskatījumus pēc datuma

Vispirms apskatīsim trīs veidus, kā apskatīt pārskatījumus pēc datuma.

1. metode: aktivizējiet pārskatīšanas rūti

1. Lai sāktu, noklikšķiniet uz cilnes “Pārskats”.
2. Pēc tam noklikšķiniet uz apgrieztā trīsstūra pogas aiz “Pārskatīšanas rūts”.
3. Pēc tam nolaižamajā sarakstā izvēlieties “Pārskata rūts horizontālā”.

Tagad Word loga apakšā būs atvērts logs. Logā ir pārskatījumi un datumi, kad tie tika veikti.

2. metode. Izvilkt labojumus, kas veikti noteiktā datumā

1. Pirmkārt, noklikšķiniet uz cilnes “Izstrādātājs” un pēc tam uz “Visual basic”, lai atvērtu VBA redaktoru. Alternatīvs veids ir nospiest Alt+ F11.
2. Pēc tam noklikšķiniet uz “Normal” un pēc tam uz “Insert”.
3. Pēc tam izvēlieties “Modulis”, lai ievietotu jaunu.
4. Veiciet dubultklikšķi uz jaunā moduļa, lai aktivizētu rediģēšanas apgabalu.
5. Pēc tam ielīmējiet tālāk norādītos kodus:

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. Tālāk noklikšķiniet uz “Palaist”.
7. Tagad ir dialoglodziņš. Ievadiet datumu, kurā tika veikti visi labojumi, kurus vēlaties skatīt. Un noklikšķiniet uz "Labi".
8. Līdz ar to būs jauns dokuments. Uz tā ir tabula, kurā iekļauti visi šīs dienas labojumi, piemēram, zemāk:

3. metode. Izņemiet pārskatījumus pirms datuma

Ja vēlaties eksportēt visus pārskatījumus, kas izveidoti pirms datuma, šeit ir makro, kuru varat palaist.

1. Sākumā atkārtojiet pirmās 4 darbības 2. metodē.
2. Pēc tam ielīmējiet šādus kodus:

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. Noklikšķiniet arī uz pogas “Palaist”.
4. Līdzīgi tiek parādīts dialoglodziņš. Vienkārši ievadiet datumu, pirms kura ir nepieciešami visi labojumi, lai to apskatītu. Pēc tam noklikšķiniet uz “Labi”.

Pieņemt pārskatījumus pirms noteikta datuma

1. Veiciet iepriekš minētās darbības, lai atvērtu VBA redaktoru un palaistu šādus kodus:

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. Atvērtajā dialoglodziņā ierakstiet datumu un noklikšķiniet uz “Labi”.

Triks vārdu failu atkopšanai

Word ir jutīgs pret korupciju, tādējādi apdraudot miljoniem failu. Vārda sakļaušana var iznīcināt vērtīgus un konfidenciālus datus. Tādējādi jums ir nepieciešams a Word failu problēmu atkopšanas rīks lai atbrīvotu iesprostotos datus.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts xls datu labošanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar