4 greiti būdai peržiūrėti ir priimti „Word“ dokumento pataisas pagal datą

Šiame straipsnyje planuojame parodyti 4 greitus būdus, kaip peržiūrėti ir priimti pataisas pagal datą „Word“ dokumente.

Dokumentas gali turėti kelis tikrintojus. Todėl šie pakeitimai turi būti atliekami skirtinga data arba laiku. Anksčiau kalbėjome apie tai, kaip peržiūrėti ir priimti konkretaus recenzento pataisas. Šiandien parodysime, kaip peržiūrėti ir priimti pataisas pagal datą.

3 būdai peržiūrėti versijas pagal datą

Pirmiausia pažvelkime į 3 būdus, kaip peržiūrėti versijas pagal datą.

1 būdas: suaktyvinkite „Peržiūros sritį“

1. Norėdami pradėti, spustelėkite skirtuką „Apžvalga“.
2. Tada spustelėkite apversto trikampio mygtuką, esantį už „Peržiūros srities“.
3. Tada išskleidžiamajame sąraše pasirinkite „Horizontalios srities peržiūra“.

Dabar „Word“ lango apačioje turi būti atidarytas langas. Lange yra pataisymai ir jų atlikimo datos.

2 metodas: Konkrečią datą atliktų pataisymų ištrauka

1. Pirmiausia spustelėkite skirtuką „Kūrėjas“, tada komandą „Visual basic“, kad atidarytumėte VBA rengyklę. Kitas būdas yra paspausti „Alt + F11“.
2. Tada spustelėkite „Įprastas“, tada „Įterpti“.
3. Tada pasirinkite „Modulis“, kad įterptumėte naują.
4. Dukart spustelėkite naują modulį, kad suaktyvintumėte redagavimo sritį.
5. Tada įklijuokite šiuos 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. Tada spustelėkite „Vykdyti“.
7. Dabar yra dialogo langas. Įveskite visų norimų peržiūrėti pataisymų atlikimo datą. Ir spustelėkite „Gerai“.
8. Vadinasi, bus naujas dokumentas. Ant jo yra lentelė su visais tos dienos pakeitimais, pvz., žemiau:

3 būdas: ištraukite peržiūras prieš datą

Jei galbūt norėsite eksportuoti visas versijas, sukurtas prieš datą, čia galite paleisti makrokomandą.

1. Iš pradžių pakartokite pirmuosius 4 2 metodo veiksmus.
2. Tada įklijuokite šiuos 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. Taip pat spustelėkite mygtuką „Vykdyti“.
4. Panašiai pasirodo dialogo langas. Tiesiog įveskite datą, iki kurios reikia peržiūrėti visus pakeitimus. Tada spustelėkite „Gerai“.

Priimkite pataisymus iki konkrečios datos

1. Atlikite aukščiau nurodytus veiksmus, kad atidarytumėte VBA redaktorių ir paleistumėte šiuos 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. Atsidariusiame dialogo lange įveskite datą ir spustelėkite „Gerai“.

„Word“ failų atkūrimo gudrybė

Word yra jautrus korupcijai, todėl milijonams failų kyla pavojus. Žodžio žlugimas gali sunaikinti vertingus ir konfidencialius duomenis. Taigi, jums reikia a Word failo problemų atkūrimo įrankis kad išlaisvintumėte įstrigusius duomenis.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas xls duomenų taisymo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com