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

I dette innlegget vil vi fokusere på å vise deg hvordan du kan godta 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()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument

        objDocx.AcceptAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have accepted all revisions in selected documents.")
  Set objDocx = Nothing

End Sub

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()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)  
    
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument
              
        objDocx.RejectAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have rejected all revisions in selected documents.")
  Set objDocx = Nothing
End Sub

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