Word құжатындағы күні бойынша түзетулерді көру және қабылдаудың 4 жылдам жолы

Бұл мақалада біз Word құжатында күні бойынша түзетулерді көру және қабылдаудың 4 жылдам әдісін көрсетуді жоспарлап отырмыз.

Құжаттың бірнеше шолушысы болуы мүмкін. Сондықтан бұл түзетулер әр түрлі күнде немесе уақытта жасалуы керек. Бұған дейін біз нақты шолушының түзетулерін қалай қарау және қабылдау керектігі туралы айтқан болатынбыз. Бүгін сізге түзетулерді күні бойынша көру және қабылдау жолын көрсетейік.

Түзетулерді күні бойынша көрудің 3 жолы

Алдымен түзетулерді күні бойынша қараудың 3 әдісін қарастырайық.

1-әдіс: «Шолу тақтасын» іске қосыңыз

1. Бастау үшін «Шолу» қойындысын басыңыз.
2. Содан кейін «Шолу тақтасының» артындағы төңкерілген үшбұрыш түймесін басыңыз.
3. Содан кейін ашылмалы тізімнен «Шолу тақтасының көлденеңін» таңдаңыз.

Енді Word терезесінің төменгі жағында терезе ашылады. Терезеде түзетулер мен олар жасалған күндер бар.

2-әдіс: Белгілі бір күнде жасалған түзетулерді шығарып алыңыз

1. Ең алдымен, VBA редакторын ашу үшін «Әзірлеуші» қойындысын, содан кейін «Visual basic» пәрменін басыңыз. Балама әдіс - «Alt+ F11» пернесін басу.
2. Содан кейін «Қалыпты», содан кейін «Кірістіру» батырмасын басыңыз.
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 сыбайлас жемқорлыққа сезімтал, сондықтан миллиондаған файлдарды қауіп төндіреді. Сөзді бұзу құнды және құпия деректерді жоя алады. Осылайша, сізге қажет Word файлындағы ақауларды қалпына келтіру құралы қамауға алынған деректерді босату үшін.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген xls деректерін түзету құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com