Word sənədinizdə tarixə görə düzəlişlərə baxmaq və qəbul etməyin 4 sürətli yolu

Bu yazıda biz Word sənədinizdə tarixə görə düzəlişlərə baxmaq və qəbul etməyiniz üçün 4 sürətli yolu göstərməyi planlaşdırırıq.

Sənəddə bir neçə rəyçi ola bilər. Buna görə də, bu düzəlişlər fərqli tarix və ya vaxtda edilməlidir. Əvvəllər biz konkret rəyçinin düzəlişlərinə necə baxmaq və qəbul etmək barədə danışmışıq. Bu gün gəlin sizə tarixə görə düzəlişlərə necə baxmaq və qəbul etmək yollarını göstərək.

Reviziyaları Tarixə Görə Baxmağın 3 yolu

Əvvəlcə, tarixə görə düzəlişlərə baxmaq üçün 3 üsula nəzər salaq.

Metod 1: "İzləmə Bölməsi"ni işə salın

1. Başlamaq üçün "Rəy" sekmesini vurun.
2. Sonra “İzləmə Paneli”nin arxasındakı tərs üçbucaq düyməsini sıxın.
3. Sonra açılan siyahıda "Üfüqi Baxış Panosu"nu seçin.

İndi Word pəncərəsinin altında açıq bir pəncərə olacaq. Pəncərədə düzəlişlər və onların edildiyi tarixlər var.

Metod 2: Müəyyən bir tarixdə edilmiş düzəlişləri çıxarın

1. Əvvəlcə VBA redaktorunu açmaq üçün "Developer" sekmesini və sonra "Visual basic" əmrini basın. Alternativ yol "Alt + F11" düyməsini sıxmaqdır.
2. Sonra "Normal" və sonra "Daxil et" düyməsini basın.
3. Sonra yenisini daxil etmək üçün "Modul" seçin.
4. Redaktə sahəsini aktivləşdirmək üçün yeni modulun üzərinə iki dəfə klikləyin.
5. Sonra aşağıdakı kodları yapışdırın:

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. Sonra, "Çalış" düyməsini basın.
7. İndi dialoq qutusu var. Baxmaq istədiyiniz bütün düzəlişlərin edildiyi tarixi daxil edin. Və "OK" düyməsini basın.
8. Nəticədə, yeni sənəd olacaq. Bunun üzərində o günün bütün reviziyalarını özündə əks etdirən cədvəl var, məsələn:

Metod 3: Tarixdən əvvəl düzəlişləri çıxarın

Əgər tarixdən əvvəl yaradılmış bütün versiyaları ixrac etmək istəsəniz, işə sala biləcəyiniz makro budur.

1. Əvvəlcə 4-ci üsuldakı ilk 2 addımı təkrarlayın.
2. Sonra yerinə aşağıdakı kodları yapışdırın:

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. "Çalış" düyməsini də basın.
4. Eynilə, açılan bir dialoq qutusu var. Baxmaq üçün bütün düzəlişlərin lazım olduğu tarixi daxil edin. Sonra "OK" düyməsini basın.

Müəyyən bir tarixdən əvvəl düzəlişləri qəbul edin

1. VBA redaktorunu açmaq və aşağıdakı kodları işə salmaq üçün yuxarıdakı addımlardan istifadə edin:

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. Açılan dialoq qutusunda bir tarix yazın və "OK" düyməsini basın.

Word fayllarını bərpa etmək üçün bir hiylə

Word korrupsiyaya qarşı həssasdır, buna görə də milyonlarla faylı təhlükə altında qoyur. Sözün çökməsi qiymətli və məxfi məlumatları silə bilər. Beləliklə, sizə lazımdır Word faylı probleminin bərpası vasitəsi tutmuş məlumatlarınızı azad etmək üçün.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş xls məlumat düzəltmə aləti və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com