Hvordan batch godta eller avvise alle endringer i flere Word-dokumenter

I denne sost, vil vi fokusere på å vise deg måten å batchgodta eller avvise alle endringer i flere Word-dokumenter samtidig.

Det er enkelt å godta eller avvise alle endringer i ett Word-dokument. Du trenger bare å klikke på "Gjennomgå"-fanen, og deretter klikke på rullegardinknappen på "Godta" eller "Avvis"-kommandoen. Velg deretter "Godta alle endringer i dokumentet" eller "Avvis alle endringer i dokumentet".

Hva så om det er flere dokumenter med endringer du vil godta eller avvise i batch? For å utføre en slik oppgave, trenger vi følgende makro.

Sett inn et brukerskjema

1. Først av, trykk "Alt + F11" for å åpne VBA-redigering i Word.
2. For det andre, klikk på "Normal".
3. Klikk deretter på "Sett inn" på menylinjen.
4. Velg "UserForm" på den menyen.
5. Klikk på håndtakene rundt skjemaet for å endre størrelsen på det riktig.
6. Trykk "F4" for å få frem "Egenskapsvinduet" i venstre nede hjørne.
7. Navngi deretter skjemaet som "frmAcceptOrRejectChanges", og sett dets bildetekst som "Accept/Reject Changes". Sett dessuten "ShowModal" som "False".
8. Klikk deretter på "Verktøykasse" på menylinjen.
9. Bruk kontrollene på verktøykassen til å lage 3 kommandoknapper og en etikett og sette dem i en slik rekkefølge:
10. Klikk nå på etiketten for å aktivere egenskapsvinduet. Sett bildeteksten som "Vil du:". Det anbefales å angi bakgrunnen til etiketten som gjennomsiktig. Dessuten kan du angi skriftfarge og størrelse som du vil.
11. Klikk deretter på kommandoknappen 1. Navngi den som "btnAccept". Sett bildeteksten som "Godta alle endringer i flere dokumenter".
12. Dobbeltklikk deretter på kommandoknapp 1 og skriv inn følgende koder:

Private Sub btnAccept_Click() Sett dlgFile = Application.FileDialog(msoFileDialogFilePicker) Med dlgFile dlgFile.AllowMultiSelect = True If .Show = -1 Then For nDocx = 1 To dlgFile.SelectedItems.CountItFile.Open dlgFileDocFile.Open ActiveDocument objDocx.AcceptAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox ("Du må velge dokumenter først!") Avslutt Sub End If End With MsgBox ("Du har godtatt alle revisjoner i valgte dokumenter.") Sett objDocx = Nothing End Under

13. Gå tilbake til skjemaet og klikk på kommandoknapp 2. Gi det navnet "btnReject". Og sett bildeteksten som "Avvis alle endringer i flere dokumenter".
14. Dobbeltklikk på kommandoknapp 2 og skriv inn disse kodene:

Private Sub btnReject_Click() Sett dlgFile = Application.FileDialog(msoFileDialogFilePicker) Med dlgFile dlgFile.AllowMultiSelect = True If .Show = -1 Then For nDocx = 1 Til dlgFile.SelectedItems.CountItFile.Open dlgDocFile.Open ActiveDocument objDocx.RejectAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox ("Du må velge dokumenter først!") Exit Sub End If End With MsgBox ("Du har avvist alle revisjoner i valgte dokumenter.") Sett objDocx = Nothing End Under

15. Og klikk deretter på kommandoknapp 3. Navngi den som "btnClose" og angi bildeteksten som "Close".
16. På samme måte dobbeltklikker du på kommandoknapp 3 og skriver inn koder:

Private Sub btnClose_Click() Unload Me End Sub

17. Lagre alle koder.

Sett inn en modul

1. Til å begynne med, gjenta trinn 2 og 3 ovenfor.
2. Og denne gangen velger du "Modul".
3. Dobbeltklikk for å gå inn i den nye modulen og angi denne makroen:

Sub ShowAcceptOrRejectForm() frmAcceptOrRejectRevisions.Show End Sub

4. Lagre makroen. Du kan velge å tilordne en knapp for denne makroen. For detaljerte trinn kan du følge denne lenken for referanse: Slik fjerner du formateringen av limte tekster med makro og VBA i Word
5. Kjør makroen for å rigge brukerskjemaet. Klikk enten "Godta alle endringer i flere dokumenter" eller "Avvis alle endringer i flere dokumenter", og du vil utløse "Bla gjennom"-vinduet. Velg dokumenter og klikk "OK".

Her er resultatet:

Håndter dokumentkorrupsjon

Datatap og lekkasje skjer hele tiden. Noen av dem kan forebygges, mens andre bare oppstår. Derfor er det nødvendig å få tak i et verktøy for å fikse docx i nødssituasjoner. Med et slikt verktøy trenger du ikke å bekymre deg for tap av data.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-fiks og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med