Тек сіздің Word құжатыңызда қадағаланатын нақты өзгерістерді қабылдаудың 3 тәсілі

Бұл мақалада біз сізбен тек Word құжатында қадағаланатын нақты өзгерістерді қабылдаудың 3 тәсілімен бөліскіміз келеді.

Әдетте, бақыланатын өзгертулер бар құжатта сіз оларды барлығын бірден немесе әрқайсысын бір-бірден қабылдауға болады. Кейде сізге форматтаудың барлық өзгерістері сияқты нақты өзгерістерді ғана қабылдау қажет болуы мүмкін. Мұны шешу үшін қосымша қадамдар қажет.

Төменде әр түрлі жағдайда ғана нақты қадағаланатын өзгерістерді қабылдаудың 3 тәсілі келтірілген.

1-әдіс: нақты түрдегі барлық бақыланатын өзгерістерді қабылдау

Мұнда құжаттағы барлық форматтау өзгертулерін қабылдау қажет деп есептейік.

1. Біріншіден, «Қарау» қойындысын нұқыңыз.
2. Содан кейін «Көрсеткіштерді көрсету» пәрменін басыңыз.
3. Әрі қарай ашылмалы мәзірден тек «Пішімдеу» құсбелгісін қойыңыз.
4. Енді құжатта форматтау өзгерістері көрсетілгенін ғана көруге болады. «Қабылдау» пәрменіндегі ашылмалы батырманы басыңыз.
5. «Көрсетілген барлық өзгерістерді қабылдау» опциясын таңдаңыз.

Сол сияқты, басқа өзгертулерді қабылдау үшін тек құжаттағы осы түрдегі өзгерістерді көрсетіп, оларды қабылдаңыз.

2-әдіс: Тек жою немесе кірістіруді қабылдау

Бірінші скриншоттан көріп отырғаныңыздай, кірістіру мен жою бір-бірімен байланысты. Сондықтан оның біреуін қабылдау үшін макросты қажет етеді.

1. Word бағдарламасындағы VBA редакторын қосу үшін, ең алдымен «Alt + F11» пернелерін басыңыз.
2. Келесіде «Қалыпты» жобасын басыңыз және мәзір жолағында «Кірістіру» батырмасын басыңыз.
3. Жаңасын енгізу үшін сол мәзірден «Модульді» таңдаңыз.
4. Одан кейін модульді екі рет нұқып ашыңыз да, келесі кодтарды қойыңыз:

Sub AcceptOnlyDeletionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionDelete Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Соңында, кодтарды орындау үшін «Іске қосу» батырмасын басыңыз немесе жай ғана «F5» батырмасын басыңыз.

Бұл макро құжаттағы барлық жоюларды қабылдайды. Барлық кірістірулерді қабылдау үшін сіз жай осы макросты ауыстырасыз:

Sub AcceptOnlyInsertionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionInsert Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

3-әдіс: Барлық өзгертулерді таңдау бойынша қабылдау

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

1. Кімгеtart көмегімен, таңдау жасаңыз tarауқымды алу.
2. Содан кейін таспадағы «Қарау» қойындысын нұқыңыз.
3. Әрі қарай «Қабылдау» командасының ашылмалы батырмасын басыңыз.
4. Ашылмалы мәзірден «Өзгерісті қабылдау» тармағын таңдаңыз. Міне, солай.

Деректерді жоғалту барлық жерде еніп жатыр

Цифрландыру толқынымен жүру, алу ықтималдығы сыбайлас құжат ұлғаюда. Деректеріңіздің құндылығын ескере отырып, жеткілікті мөлшерде жөндеу құралын алу ұсынылады. Осылайша сіз құжаттарды ең аз уақыт ішінде қалпына келтіре аласыз.

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

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