Өөрийн үгийн баримт бичигт оруулсан огноогоор засварыг харах, хүлээн авах 4 хурдан арга

Энэ нийтлэлд бид Word документынхаа огноогоор засваруудыг үзэх, хүлээн авах 4 хурдан аргыг харуулахаар төлөвлөж байна.

Баримт бичиг нь олон тооны хянагчтай байж болно. Тиймээс эдгээр засварыг өөр огноо, цаг хугацаанд хийх ёстой. Өмнө нь бид тодорхой тоймчийн хянан засварласан хувилбарыг хэрхэн үзэх, хүлээн авах талаар ярилцсан. Өнөөдөр шинэчлэлтийг огноогоор хэрхэн харах, хүлээн авахыг үзүүлье.

Засваруудыг огноогоор үзэх 3 арга

Нэгдүгээрт, хувилбаруудыг огноогоор үзэх 3 аргыг авч үзье.

Арга 1: "Хяналтын хэсэг" -ийг идэвхжүүл

1. Эхлэхийн тулд "Шалгалт" таб дээр дарна уу.
2. Дараа нь “Тоймлох самбар” -ын ард доошоо харсан гурвалжин товчийг дарна уу.
3. Дараа нь унах жагсаалтаас "Хэвтээ харах цонх" -ыг сонгоно уу.

Одоо Word цонхны доод талд цонх нээгдэх болно. Цонхонд засвар хийсэн огноо байна.

Арга 2: Тодорхой өдөр хийсэн засварыг задлах

1. Юуны өмнө VBA редакторыг нээхийн тулд "Developer" таб, дараа нь "Visual basic" командыг дарна уу. Альтернатив арга бол “Alt + F11” товчийг дарах явдал юм.
2. Дараа нь "Normal" дээр дараад "Insert" дээр дарна уу.
3. Дараа нь шинээр оруулахын тулд “Модуль” -г сонгоно уу.
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 файлын асуудлыг сэргээх хэрэгсэл таны баригдсан өгөгдлийг чөлөөлөх.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигад автсан xls мэдээлэл засах хэрэгсэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com