4 Γρήγοροι τρόποι προβολής και αποδοχής αναθεωρήσεων ανά ημερομηνία στο έγγραφο του Word

Σε αυτό το άρθρο, σχεδιάζουμε να εμφανίσουμε 4 γρήγορους τρόπους για να βλέπετε και να αποδέχεστε αναθεωρήσεις κατά ημερομηνία στο έγγραφό σας στο Word.

Ένα έγγραφο μπορεί να έχει πολλούς αναθεωρητές. Επομένως, αυτές οι αναθεωρήσεις πρέπει να γίνονται σε διαφορετική ημερομηνία ή ώρα. Νωρίτερα, έχουμε μιλήσει για τον τρόπο προβολής και αποδοχής αναθεωρήσεων από έναν συγκεκριμένο αναθεωρητή. Σήμερα, ας σας δείξουμε πώς να προβάλλετε και να αποδέχεστε αναθεωρήσεις κατά ημερομηνία.

3 τρόποι για να δείτε τις αναθεωρήσεις κατά ημερομηνία

Αρχικά, ας ρίξουμε μια ματιά στους 3 τρόπους προβολής αναθεωρήσεων κατά ημερομηνία.

Μέθοδος 1: Ενεργοποιήστε το "Παράθυρο αναθεώρησης"

1. Για να ξεκινήσετε, κάντε κλικ στην καρτέλα "Αναθεώρηση".
2. Στη συνέχεια, κάντε κλικ στο κουμπί ανάποδα τριγώνου πίσω από το «Παράθυρο αναθεώρησης».
3. Στη συνέχεια, επιλέξτε "Ανασκόπηση οριζόντιου παραθύρου" στην αναπτυσσόμενη λίστα.

Τώρα θα υπάρχει ένα παράθυρο ανοιχτό στο κάτω μέρος του παραθύρου του Word. Στο παράθυρο υπάρχουν αναθεωρήσεις και ημερομηνίες κατά τις οποίες έγιναν.

Μέθοδος 2: Εξαγωγή αναθεωρήσεων που έγιναν σε συγκεκριμένη ημερομηνία

1. Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Προγραμματιστής" και στη συνέχεια στην εντολή "Visual basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA. Ο εναλλακτικός τρόπος είναι να πατήσετε "Alt+ F11".
2. Στη συνέχεια, κάντε κλικ στο "Normal" και μετά στο "Insert".
3. Στη συνέχεια, επιλέξτε "Module" για να εισαγάγετε μια νέα.
4. Κάντε διπλό κλικ στη νέα μονάδα για να ενεργοποιήσετε την περιοχή επεξεργασίας.
5. Στη συνέχεια, επικολλήστε τους παρακάτω κωδικούς:

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. Στη συνέχεια, κάντε κλικ στο "Εκτέλεση".
7. Τώρα υπάρχει το πλαίσιο διαλόγου. Εισαγάγετε την ημερομηνία κατά την οποία έγιναν όλες οι αναθεωρήσεις που θέλετε να προβάλετε. Και κάντε κλικ στο "OK".
8. Κατά συνέπεια, θα υπάρξει νέο έγγραφο. Σε αυτό υπάρχει ένας πίνακας που περιλαμβάνει όλες τις αναθεωρήσεις εκείνης της ημέρας, όπως παρακάτω:

Μέθοδος 3: Εξαγωγή αναθεωρήσεων πριν από μια ημερομηνία

Σε περίπτωση που θέλετε να εξαγάγετε όλες τις αναθεωρήσεις που δημιουργήθηκαν πριν από μια ημερομηνία, εδώ είναι η μακροεντολή που μπορείτε να εκτελέσετε.

1. Αρχικά, επαναλάβετε τα πρώτα 4 βήματα στη μέθοδο 2.
2. Στη συνέχεια, επικολλήστε τους ακόλουθους κωδικούς:

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. Κάντε επίσης κλικ στο κουμπί "Εκτέλεση".
4. Ομοίως, εμφανίζεται ένα παράθυρο διαλόγου. Απλώς εισάγετε την ημερομηνία πριν από την οποία απαιτούνται όλες οι αναθεωρήσεις για προβολή. Στη συνέχεια, κάντε κλικ στο "OK".

Αποδοχή αναθεωρήσεων πριν από μια συγκεκριμένη ημερομηνία

1. Ακολουθήστε τα παραπάνω βήματα για να ανοίξετε το πρόγραμμα επεξεργασίας VBA και να εκτελέσετε τους ακόλουθους κωδικούς:

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. Στο παράθυρο διαλόγου που ανοίγει, πληκτρολογήστε μια ημερομηνία και κάντε κλικ στο "OK".

Ένα τέχνασμα για την ανάκτηση αρχείων Word

Το Word είναι ευαίσθητο στη διαφθορά, αφήνοντας εκατομμύρια αρχεία σε κίνδυνο. Η σύμπτυξη λέξης μπορεί να εξαλείψει πολύτιμα και εμπιστευτικά δεδομένα. Έτσι, χρειάζεστε ένα Εργαλείο αποκατάστασης προβλημάτων αρχείων Word για να ελευθερώσετε τα παγιδευμένα δεδομένα σας.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διεφθαρμένο εργαλείο επιδιόρθωσης δεδομένων xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com