I denne artikkelen ønsker vi å dele med deg 3 måter å godta spesifikke sporede endringer kun i Word-dokumentet ditt.
Normalt, i et dokument med sporede endringer, kan du godta dem alle samtidig eller hver for en. Men noen ganger må du kanskje bare godta spesifikke endringer, for eksempel alle formateringsendringer. For å løse dette krever det ekstra trinn.
Følgende er 3 tilnærminger for å akseptere spesifikke sporede endringer bare i forskjellige tilfeller.
Metode 1: Godta alle sporede endringer av spesifikk type
Her, la oss si at vi må godta alle formateringsendringer i dokumentet.
- Først klikker du på "Gjennomgå"-fanen.
- Klikk deretter på "Vis markering"-kommandoen.
- Deretter merker du bare av for "Formattering" i rullegardinmenyen.
- Nå kan du se at bare formateringsendringer vises i dokumentet. Klikk på rullegardinknappen på "Godta"-kommandoen.
- Og velg alternativet "Godta alle viste endringer".
På samme måte, for å godta andre endringer, bare vis bare den typen endringer i dokumentet og godta dem.
Metode 2: Godta bare slettinger eller innsettinger
Som du kan se fra det første skjermbildet, er innsettinger og slettinger bundet sammen. Derfor, for å godta en av dem, trenger du en makro.
- Først av alt, trykk "Alt + F11" for å utløse VBA-redigering i Word.
- Klikk deretter på "Normal" prosjekt og klikk på "Sett inn" på menylinjen.
- Og velg "Modul" på den menyen for å sette inn en ny.
- Dobbeltklikk deretter på modulen for å åpne den og lim inn følgende koder:
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
- Til slutt klikker du på "Kjør"-knappen eller bare trykker på "F5" for å utføre koder.
Denne makroen godtar alle slettinger i dokumentet. For å godta alle innsettinger, erstatter du bare med denne makroen:
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
Metode 3: Godta alle endringer i et utvalg
Denne metoden viser deg hvordan du raskt godtar alle endringer i ulike typer i et utvalg.
- Til start med, gjør et valg over tarfå rekkevidde.
- Klikk deretter på "Gjennomgå"-fanen i båndet.
- Klikk deretter på rullegardinknappen på "Godta"-kommandoen.
- På rullegardinmenyen velger du "Godta endring". Og det er det.
Datatap penetrerer overalt
Går med strømmen av digitalisering, sannsynligheten for å få korrupt dok øker. Med tanke på verdien av dataene dine, anbefales det sterkt å få tak i et tilstrekkelig reparasjonsverktøy. Så du kan gjenopprette dokumenter med minst mulig tid.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med




