Sådan batch-accepteres eller afvises alle ændringer i flere Word-dokumenter

I denne sost, vil vi fokusere på at vise dig, hvordan du batch-accepterer eller afviser alle ændringer i flere Word-dokumenter på samme tid.

Det er let at acceptere eller afvise alle ændringer i et Word-dokument. Du skal bare klikke på "Review" -fanen og derefter klikke på rullemenuen på "Accept" eller "Afvis" kommandoen. Vælg derefter "Accepter alle ændringer i dokumentet" eller "Afvis alle ændringer i dokumentet".

Hvad så hvis der er flere dokumenter med ændringer, du vil acceptere eller afvise i batch? For at udføre en sådan opgave har vi brug for følgende makro.

Indsæt en brugerformular

1. Først skal du trykke på "Alt + F11" for at åbne VBA-editor i Word.
2. Klik derefter på “Normal”.
3. Klik derefter på "Indsæt" på menulinjen.
4. Vælg "UserForm" i den menu.
5. Klik på håndtagene omkring formularen for at ændre størrelsen på den korrekt.
6. Tryk på "F4" for at fremhæve "Properties Window" i venstre hjørne.
7. Navngiv derefter formularen som “frmAcceptOrRejectChanges”, og sæt dens billedtekst som “Accept / Afvis ændringer”. Desuden skal du indstille "ShowModal" som "Falsk".
8. Klik derefter på "Værktøjskasse" på menulinjen.
9. Brug kontroller på værktøjskassen til at oprette 3 kommandoknapper og en etiket og sæt dem i en sådan rækkefølge:
10. Klik nu på etiketten for at aktivere ejendomsvinduet. Indstil billedteksten til "Vil du:". Det anbefales at indstille baggrunden for etiketten som gennemsigtig. Desuden kan du indstille skrifttypens farve og størrelse, som du vil.
11. Klik derefter på kommandoknappen 1. Navngiv den som “btnAccept”. Indstil billedteksten som "Accepter alle ændringer i flere dokumenter".
12. Dobbeltklik derefter på kommandoknap 1, og indtast 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å tilbage til formularen og klik på kommandoknappen 2. Navngiv den som “btnReject”. Og indstil billedteksten som "Afvis alle ændringer i flere dokumenter".
14. Dobbeltklik på kommandoknap 2 og indtast disse koder:

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. Klik derefter på kommandoknappen 3. Navngiv den som “btnClose”, og angiv billedteksten som “Luk”.
16. Dobbeltklik på kommandoknap 3 og skriv koder:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Gem alle koder.

Indsæt et modul

1. Til at begynde med skal du gentage trin 2 og 3 ovenfor.
2. Og denne gang skal du vælge “Modul”.
3. Dobbeltklik for at åbne det nye modul og indtaste denne makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Gem makroen. Du kan vælge at tildele en knap til denne makro. For detaljerede trin kan du følge dette link til reference: Sådan fjernes formateringen af ​​indsatte tekster med makro og VBA i dit ord
5. Kør makroen for at rigge brugerformularen. Klik enten på "Accepter alle ændringer i flere dokumenter" eller "Afvis alle ændringer i flere dokumenter", og du vil aktivere vinduet "Gennemse". Vælg dokumenter, og klik på “OK”.

Her er resultatet:

Håndter dokumentkorruption

Datatab og lækage sker hele tiden. Nogle af dem kan forhindres, mens andre bare forekommer. Derfor er det nødvendigt at få fat i et værktøj til rette docx i nødsituationer. Med et sådant værktøj behøver du ikke bekymre dig om datatab.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel-rettelse og pdf produkter til reparation af software. For mere information besøg www.datanumen.com