4 kiiret viisi, kuidas vaadata ja aktsepteerida Wordi dokumendi redaktsioone kuupäeva järgi

Selles artiklis kavatseme kuvada 4 kiiret viisi, kuidas saate oma Wordi dokumendis kuupäeva järgi muudatusi vaadata ja vastu võtta.

Dokumendil võib olla mitu ülevaatajat. Seetõttu tuleb need parandused teha erineval kuupäeval või kellaajal. Varem oleme rääkinud, kuidas konkreetse arvustaja muudatusi vaadata ja vastu võtta. Täna näitame teile, kuidas muudatusi kuupäeva järgi vaadata ja vastu võtta.

3 võimalust redaktsioonide vaatamiseks kuupäeva järgi

Kõigepealt vaatame 3 võimalust redaktsioonide vaatamiseks kuupäeva järgi.

1. meetod: käivitage ülevaatamispaan

1. Alustamiseks klõpsake vahekaarti „Ülevaade”.
2. Seejärel klõpsake ülevaatuspaani taga olevat tagurpidi kolmnurga nuppu.
3. Järgmisena valige ripploendist "Paani horisontaalne ülevaatamine".

Nüüd peab Wordi akna allservas olema avatud aken. Aknas on parandused ja nende tegemise kuupäevad.

2. meetod: Väljavõte konkreetsel kuupäeval tehtud parandused

1. Kõigepealt klõpsake VBA redaktori avamiseks vahekaarti "Arendaja" ja seejärel käsku "Visual basic". Teine võimalus on vajutada "Alt + F11".
2. Seejärel klõpsake "Tavaline" ja seejärel "Insert".
3. Järgmisena valige uue lisamiseks "Moodul".
4. Redigeerimisala aktiveerimiseks topeltklõpsake uuel moodulil.
5. Seejärel kleepige järgmised koodid:

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. Järgmisena klõpsake nuppu "Käivita".
7. Nüüd on dialoogiboks. Sisestage kuupäev, millal kõik redaktsioonid, mida soovite vaadata, tehti. Ja klõpsake nuppu "OK".
8. Järelikult tuleb uus dokument. Sellel on tabel, mis sisaldab kõiki selle päeva redaktsioone, näiteks allpool:

3. meetod: redaktsioonide väljavõte enne kuupäeva

Kui soovite eksportida kõik enne kuupäeva loodud versioonid, saate käivitada siin makro.

1. Kõigepealt korrake meetodi 4 2 esimest sammu.
2. Seejärel kleepige selle asemel järgmised koodid:

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. Klõpsake ka nuppu "Käivita".
4. Samamoodi avaneb dialoogiboks. Sisestage lihtsalt kuupäev, enne mida on vaja kõiki muudatusi vaadata. Seejärel klõpsake nuppu "OK".

Nõustuge muudatustega enne kindlat kuupäeva

1. Kasutage ülaltoodud samme, et avada VBA redaktor ja käivitada järgmised koodid:

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. Avanevas dialoogiboksis tippige kuupäev ja klõpsake "OK".

Nipp Wordi failide taastamiseks

Word on korruptsioonitundlik, jättes seega ohtu miljonid failid. Wordi kokkuvarisemine võib väärtuslikud ja konfidentsiaalsed andmed kustutada. Seega on teil vaja a Wordi failiprobleemide taastamise tööriist oma kinnijäänud andmete vabastamiseks.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud xls-i andmete parandamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom