Több Word dokumentum összes módosításának kötegelt elfogadása vagy elutasítása

Ebben a bejegyzésben arra fogunk összpontosítani, hogy megmutassuk, hogyan fogadhatja el vagy utasíthatja el egyszerre több Word-dokumentumban az összes módosítást.

Könnyű elfogadni vagy elutasítani az összes módosítást egyetlen Word-dokumentumban. Csak kattintson az „Ellenőrzés” fülre, majd kattintson a legördülő gombra az „Elfogadás” vagy az „Elutasítás” parancsnál. Ezután válassza a „Dokumentum összes módosításának elfogadása” vagy „A dokumentum összes módosításának elutasítása” lehetőséget.

És mi van akkor, ha több olyan dokumentum van, amelyek módosításait kötegesen szeretné elfogadni vagy elutasítani? Egy ilyen feladat elvégzéséhez szükségünk lesz a következő makróra.

Felhasználói űrlap beszúrása

1. Először nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához a Wordben.
2. Másodszor kattintson a „Normál” gombra.
3. Ezután kattintson a „Beszúrás” gombra a menüsorban.
4. Válassza a „Felhasználói űrlap” lehetőséget a menüben.
5. Kattintson az űrlap körüli fogantyúkra az űrlap megfelelő átméretezéséhez.
6. Nyomja meg az „F4” gombot a „Tulajdonságok ablak” megjelenítéséhez a bal alsó sarokban.
7. Ezután nevezze el az űrlapot „frmAcceptOrRejectChanges”-nak, és állítsa be a feliratát „Accept/Reject Changes”-re. Ezenkívül állítsa a „ShowModal”-t „False”-ra.
8. Ezután kattintson az „Eszköztár” elemre a menüsorban.
9. Az eszköztár vezérlőivel hozzon létre 3 parancsgombot és egy címkét, és helyezze őket a következő sorrendbe:
10. Most kattintson a címkére a tulajdonság ablak aktiválásához. Állítsa be a feliratot a következőre: „Akarja:”. Javasoljuk, hogy a címke hátterét átlátszóra állítsa. Ezenkívül tetszés szerint beállíthatja a betűtípus színét és méretét.
11. Ezután kattintson az 1. parancsgombra. Nevezze el „btnAccept”-nek. Állítsa be a feliratot a következőre: „Minden módosítás elfogadása több dokumentumban”.
12. Ezután kattintson duplán az 1-es parancsgombra, és írja be a következő kódokat:

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. Most térjen vissza az űrlaphoz, és kattintson a 2. parancsgombra. Nevezze el "btnReject"-nek. A felirat szövegét pedig állítsa be a következőre: „Minden módosítás elutasítása több dokumentumban”.
14. Ehhez hasonlóan kattintson duplán a 2. parancsgombra, és írja be ezeket a kódokat:

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. Ezután kattintson a 3. parancsgombra. Nevezze el „btnClose”-nak, és állítsa be a feliratot „Close”-ra.
16. Hasonlóképpen kattintson duplán a 3-as parancsgombra, és írja be a kódokat:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Mentse el az összes kódot.

Helyezzen be egy modult

1. Kezdésként ismételje meg a fenti 2. és 3. lépést.
2. És ezúttal válassza a „Modul” lehetőséget.
3. Kattintson duplán az új modulba való belépéshez, és adja meg ezt a makrót:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Mentse el a makrót. Kiválaszthat egy gombot ehhez a makróhoz. A részletes lépésekért kövesse ezt a hivatkozást referenciaként: Hogyan lehet eltávolítani a beillesztett szövegek formázását makróval és VBA-val a Wordben
5. Futtassa a makrót a felhasználói űrlap kitöltéséhez. Kattintson az „Összes módosítás elfogadása több dokumentumban” vagy a „Több dokumentum összes módosításának elutasítása” lehetőségre, és megjelenik a „Tallózás” ablak. Válassza ki a dokumentumokat, és kattintson az „OK” gombra.

Itt van az eredmény:

Kezelje a dokumentumok korrupcióját

Adatvesztés és adatszivárgás folyamatosan történik. Ezek egy része megelőzhető, míg mások egyszerűen előfordulnak. Ezért szükség van egy szerszámra docx javítás vészhelyzetben. Egy ilyen eszközzel nem kell aggódnia az adatvesztés miatt.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve Excel javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com