3 viisi, kuidas aktsepteerida konkreetseid jälgitud muudatusi ainult teie Wordi dokumendis

Selles artiklis tahame teiega jagada 3 võimalust, kuidas aktsepteerida konkreetseid jälgitavaid muudatusi ainult teie Wordi dokumendis.

Tavaliselt saate jälgitavate muudatustega dokumendis need kõik korraga või ükshaaval vastu võtta. Kuid mõnikord peate võib-olla nõustuma ainult konkreetsete muudatustega, näiteks kõigi vormindusmuudatustega. Selle lahendamiseks on vaja täiendavaid samme.

Järgnevalt on toodud 3 lähenemisviisi konkreetsete jälgitavate muudatuste aktsepteerimiseks ainult erinevatel juhtudel.

1. meetod: aktsepteerige kõik teatud tüüpi jälgitavad muudatused

Oletame, et peame aktsepteerima kõik dokumendi vormingumuudatused.

1. Esiteks klõpsake vahekaarti "Ülevaatus".
2. Seejärel klõpsake käsku "Näita märgistust".
3. Järgmisena märkige rippmenüüst ainult ruut "Vormindamine".
4. Nüüd näete, et dokumendis kuvatakse ainult vormingu muudatused. Klõpsake käsu "Nõustu" rippmenüü nuppu.
5. Ja valige suvand "Nõustu kõik kuvatud muudatused".

Samamoodi muude muudatuste aktsepteerimiseks kuvage dokumendis ainult seda tüüpi muudatused ja nõustuge nendega.

2. meetod: aktsepteerige ainult kustutamisi või lisamisi

Nagu esimesest ekraanipildist näha, on sisestused ja kustutamised kokku seotud. Seetõttu on ühe neist aktsepteerimiseks vaja makrot.

1. Kõigepealt vajutage Wordis VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
2. Järgmisena klõpsake "Tavaline" projekt ja klõpsake menüüribal "Insert".
3. Ja uue sisestamiseks valige selles menüüs "Moodul".
4. Seejärel topeltklõpsake moodulil selle avamiseks ja kleepige järgmised koodid:

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. Lõpuks klõpsake koodide käivitamiseks nuppu "Käivita" või lihtsalt "F5".

See makro aktsepteerib kõiki dokumendi kustutamisi. Kõigi sisestuste vastuvõtmiseks asendage lihtsalt selle makroga:

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. meetod: nõustuge kõigi valiku muudatustega

See meetod näitab, kuidas kiiresti aktsepteerida kõiki valiku eri tüüpi muudatusi.

1. Et start koos, tee valik üle tarsaada vahemikku.
2. Seejärel klõpsake lindil vahekaarti „Ülevaatamine”.
3. Järgmisena klõpsake käsul "Nõustu" rippmenüü nuppu.
4. Valige rippmenüüst "Nõustu muudatusega". Ja see ongi kõik.

Andmekadu tungib kõikjale

Digiteerimisega kaasa minnes, saamise tõenäosus korrumpeerunud dok kasvab. Arvestades teie andmete väärtust, on tungivalt soovitatav hankida piisav remonditööriist. Nii saate dokumente taastada võimalikult lühikese ajaga.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda xls ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom