Jak wsadowo zaakceptować lub odrzucić wszystkie zmiany w wielu dokumentach programu Word

W tym post, skupimy się na pokazaniu sposobu grupowego akceptowania lub odrzucania wszystkich zmian w wielu dokumentach Worda jednocześnie.

Zaakceptowanie lub odrzucenie wszystkich zmian w jednym dokumencie programu Word jest łatwe. Wystarczy kliknąć kartę „Recenzja”, a następnie kliknąć przycisk rozwijany przy poleceniu „Akceptuj” lub „Odrzuć”. Następnie wybierz „Zaakceptuj wszystkie zmiany w dokumencie” lub „Odrzuć wszystkie zmiany w dokumencie”.

A co jeśli istnieje wiele dokumentów ze zmianami, które chcesz zaakceptować lub odrzucić zbiorczo? Aby wykonać takie zadanie, będziemy potrzebować następującego makra.

Wstaw formularz użytkownika

1. Najpierw naciśnij „Alt + F11”, aby otworzyć edytor VBA w programie Word.
2. Po drugie, kliknij „Normalny”.
3. Następnie kliknij „Wstaw” na pasku menu.
4. Wybierz „UserForm” w tym menu.
5. Kliknij uchwyty wokół formularza, aby odpowiednio zmienić jego rozmiar.
6. Naciśnij „F4”, aby wyświetlić „Okno właściwości” w lewym dolnym rogu.
7. Następnie nazwij formularz jako „frmAcceptOrRejectChanges” i ustaw jego podpis jako „Accept/Reject Changes”. Poza tym ustaw „ShowModal” na „False”.
8. Następnie kliknij „Zestaw narzędzi” na pasku menu.
9. Użyj kontrolek na skrzynce narzędziowej, aby utworzyć 3 przyciski poleceń i etykietę i ułóż je w następującej kolejności:
10. Teraz kliknij etykietę, aby aktywować okno jej właściwości. Ustaw jego podpis jako „Czy chcesz:”. Zaleca się ustawienie przezroczystego tła etykiety. Poza tym możesz ustawić kolor i rozmiar czcionki, jak chcesz.
11. Następnie kliknij przycisk polecenia 1. Nazwij go jako „btnAccept”. Ustaw podpis jako „Zaakceptuj wszystkie zmiany w wielu dokumentach”.
12. Następnie kliknij dwukrotnie przycisk polecenia 1 i wprowadź następujące kody:

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. Teraz wróć do formularza i kliknij przycisk polecenia 2. Nazwij go jako „btnReject”. I ustaw tekst podpisu jako „Odrzuć wszystkie zmiany w wielu dokumentach”.
14. Podobnie, kliknij dwukrotnie przycisk polecenia 2 i wprowadź te kody:

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. A następnie kliknij przycisk polecenia 3. Nazwij go jako „btnClose” i ustaw podpis jako „Zamknij”.
16. Podobnie, kliknij dwukrotnie przycisk polecenia 3 i wpisz kody:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Zapisz wszystkie kody.

Wstaw moduł

1. Na początek powtórz krok 2 i 3 powyżej.
2. I tym razem wybierz „Moduł”.
3. Kliknij dwukrotnie, aby wejść do nowego modułu i wprowadzić to makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Zapisz makro. Możesz przypisać przycisk do tego makra. Aby uzyskać szczegółowe instrukcje, możesz skorzystać z tego łącza w celach informacyjnych: Jak usunąć formatowanie wklejonych tekstów za pomocą makra i VBA w swoim słowie
5. Uruchom makro, aby zmodyfikować formularz użytkownika. Kliknij „Zaakceptuj wszystkie zmiany w wielu dokumentach” lub „Odrzuć wszystkie zmiany w wielu dokumentach”, a otworzy się okno „Przeglądaj”. Wybierz dokumenty i kliknij „OK”.

Oto wynik:

Zajmij się uszkodzeniem dokumentów

Utrata i wyciek danych zdarzają się cały czas. Niektórym z nich można zapobiec, inne po prostu się zdarzają. Dlatego konieczne jest, aby zdobyć narzędzie do napraw dokument w sytuacjach awaryjnych. Dzięki takiemu narzędziu nie będziesz musiał martwić się o utratę danych.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Poprawka programu Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com