Hur man accepterar eller avvisar alla ändringar i flera orddokument

I det här inlägget kommer vi att fokusera på att visa dig hur du gruppvis accepterar eller avvisar alla ändringar i flera Word-dokument samtidigt.

Det är enkelt att acceptera eller avvisa alla ändringar i ett Word-dokument. Du behöver bara klicka på fliken "Granska" och klicka sedan på listrutan på kommandot "Acceptera" eller "Avvisa". Välj sedan ”Acceptera alla ändringar i dokumentet” eller ”Avvisa alla ändringar i dokumentet”.

Vad händer om det finns flera dokument med ändringar som du vill acceptera eller avvisa i batch? För att utföra en sådan uppgift kommer vi att behöva följande makro.

Infoga ett användarformulär

1. Tryck först på “Alt + F11” för att öppna VBA-redigeraren i Word.
2. Klicka sedan på “Normal”.
3. Klicka sedan på "Infoga" i menyraden.
4. Välj "UserForm" på den menyn.
5. Klicka på handtagen runt formuläret för att ändra storlek på det ordentligt.
6. Tryck på "F4" för att ta fram "Egenskapsfönstret" i det nedre vänstra hörnet.
7. Namnge sedan formuläret som “frmAcceptOrRejectChanges” och ställ in dess bildtext som “Acceptera / avvisa ändringar”. Ställ dessutom “ShowModal” som “False”.
8. Klicka sedan på “Verktygslåda” i menyraden.
9. Använd kontrollerna i verktygslådan för att skapa tre kommandoknappar och en etikett och placera dem i en sådan ordning:
10. Klicka nu på etiketten för att aktivera dess egenskapsfönster. Ställ in texten som "Vill du:". Vi rekommenderar att du ställer in bakgrunden på etiketten som transparent. Dessutom kan du ställa in teckensnittsfärg och storlek som du vill.
11. Klicka sedan på kommandoknappen 1. Namnge den som “btnAccept”. Ställ in bildtexten som "Acceptera alla ändringar i flera dokument".
12. Dubbelklicka sedan på kommandoknappen 1 och ange följande 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å tillbaka till formuläret och klicka på kommandoknappen 2. Namnge det som “btnReject”. Och ställ in bildtexten som ”Avvisa alla ändringar i flera dokument”.
14. På samma sätt dubbelklickar du på kommandoknapp 2 och anger dessa 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. Klicka sedan på kommandoknappen 3. Namnge den som “btnClose” och ställ in texten som ”Close”.
16. Dubbelklicka på kommandoknapp 3 och skriv koder:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Spara alla koder.

Sätt i en modul

1. Till att börja med upprepar du steg 2 och 3 ovan.
2. Och den här gången väljer du "Modul".
3. Dubbelklicka för att gå in i den nya modulen och ange detta makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Spara makrot. Du kan välja att tilldela en knapp för detta makro. För detaljerade steg kan du följa den här länken som referens: Hur man tar bort formateringen av inklistrade texter med makro och VBA i ditt ord
5. Kör makrot för att rigga användarformuläret. Klicka antingen “Acceptera alla ändringar i flera dokument” eller “Avvisa alla ändringar i flera dokument”, så kommer du att utlösa fönstret “Bläddra”. Välj dokument och klicka på “OK”.

Här är resultatet:

Hantera dokumentkorruption

Dataförlust och läckage sker hela tiden. Vissa av dem kan förhindras, medan andra bara inträffar. Därför är det nödvändigt att få tag på ett verktyg för fixa docx i nödsituationer. Med ett sådant verktyg behöver du inte oroa dig för dataförlusten.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-fix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com