4 cách nhanh chóng để xem và chấp nhận bản sửa đổi theo ngày trong tài liệu Word của bạn

Trong bài viết này, chúng tôi dự định hiển thị 4 cách nhanh chóng để bạn xem và chấp nhận các bản sửa đổi theo ngày trong tài liệu Word của mình.

Một tài liệu có thể có nhiều người đánh giá. Vì vậy, những sửa đổi này phải được thực hiện vào ngày hoặc giờ khác. Trước đó, chúng ta đã nói về cách xem và chấp nhận các bản sửa đổi từ một người đánh giá cụ thể. Hôm nay, hãy chỉ cho bạn cách xem và chấp nhận các bản sửa đổi theo ngày.

3 cách để xem các bản sửa đổi theo ngày

Trước tiên, chúng ta hãy xem 3 cách để xem các bản sửa đổi theo ngày.

Phương pháp 1: Kích hoạt “Reviewing Pane”

1. Trước tiên, hãy nhấp vào tab “Xem lại”.
2. Sau đó nhấp vào nút hình tam giác lộn ngược phía sau “Ngăn xem lại”.
3. Tiếp theo chọn “Xem lại ngăn ngang” trên danh sách thả xuống.

Bây giờ sẽ có một cửa sổ mở ở cuối cửa sổ Word. Trong cửa sổ có các bản sửa đổi và ngày thực hiện chúng.

Phương pháp 2: Trích xuất các bản sửa đổi được thực hiện vào một ngày cụ thể

1. Trước hết, hãy nhấp vào tab “Nhà phát triển” và sau đó nhấp vào lệnh “Visual basic” để mở trình soạn thảo VBA. Cách khác là nhấn “Alt+ F11”.
2. Sau đó nhấp vào “Bình thường” và sau đó “Chèn”.
3. Tiếp theo chọn “Module” để chèn một cái mới.
4. Nhấp đúp chuột vào mô-đun mới để kích hoạt khu vực chỉnh sửa.
5. Sau đó dán mã dưới đây:

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. Tiếp theo, nhấp vào “Chạy”.
7. Bây giờ có hộp thoại. Nhập ngày thực hiện tất cả các sửa đổi mà bạn muốn xem. Và nhấp vào “OK”.
8. Do đó, sẽ có một tài liệu mới. Trên đó là một bảng bao gồm tất cả các phiên bản của ngày hôm đó, chẳng hạn như bên dưới:

Phương pháp 3: Trích xuất các bản sửa đổi trước một ngày

Trong trường hợp bạn muốn xuất tất cả các bản sửa đổi được tạo trước một ngày, đây là macro bạn có thể chạy.

1. Lúc đầu, lặp lại 4 bước đầu tiên trong phương pháp 2.
2. Sau đó dán các mã sau vào thay thế:

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. Nhấp vào nút "Chạy".
4. Tương tự, có một hộp thoại hiện lên. Chỉ cần nhập ngày trước đó tất cả các bản sửa đổi cần được xem. Sau đó bấm vào “OK”.

Chấp nhận sửa đổi trước một ngày cụ thể

1. Sử dụng các bước trên để mở trình soạn thảo VBA và chạy các mã sau:

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. Trong hộp thoại mở ra, nhập ngày và nhấp vào “OK”.

Thủ thuật khôi phục tập tin Word

Word rất nhạy cảm với việc bị hỏng, do đó khiến hàng triệu tệp gặp nguy hiểm. Việc thu gọn từ có thể xóa sạch dữ liệu bí mật và có giá trị. Vì vậy, bạn cần một Công cụ khắc phục sự cố file Word để giải phóng dữ liệu bị mắc kẹt của bạn.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm công cụ sửa dữ liệu xls bị hỏng và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm