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
- Først av, trykk "Alt + F11" for å åpne VBA-redigering i Word.
- For det andre, klikk på "Normal".
- Klikk deretter på "Sett inn" på menylinjen.
- Velg "UserForm" på den menyen.
- Klikk på håndtakene rundt skjemaet for å endre størrelsen på det riktig.
- Trykk "F4" for å få frem "Egenskapsvinduet" i venstre nede hjørne.
- Navngi deretter skjemaet som "frmAcceptOrRejectChanges", og sett dets bildetekst som "Accept/Reject Changes". Sett dessuten "ShowModal" som "False".
- Klikk deretter på "Verktøykasse" på menylinjen.
- Bruk kontrollene på verktøykassen til å lage 3 kommandoknapper og en etikett og sette dem i en slik rekkefølge:
- 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.
- Klikk deretter på kommandoknappen 1. Navngi den som "btnAccept". Sett bildeteksten som "Godta alle endringer i flere dokumenter".
- 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
- Gå tilbake til skjemaet og klikk på kommandoknapp 2. Gi det navnet "btnReject". Og sett bildeteksten som "Avvis alle endringer i flere dokumenter".
- 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
- Og klikk deretter på kommandoknapp 3. Navngi den som "btnClose" og angi bildeteksten som "Close".
- På samme måte dobbeltklikker du på kommandoknapp 3 og skriver inn koder:
Private Sub btnClose_Click() Unload Me End Sub
- Lagre alle koder.
Sett inn en modul
- Til å begynne med, gjenta trinn 2 og 3 ovenfor.
- Og denne gangen velger du "Modul".
- Dobbeltklikk for å gå inn i den nye modulen og angi denne makroen:
Sub ShowAcceptOrRejectForm() frmAcceptOrRejectRevisions.Show End Sub
- 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
- 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