Kuinka erän hyväksyä tai hylätä kaikki muutokset useissa Word-asiakirjoissa

Tässä viestissä keskitymme näyttämään, miten voit hyväksyä tai hylätä kaikki muutokset useissa Word-asiakirjoissa samanaikaisesti.

Yhden Word-asiakirjan kaikki muutokset on helppo hyväksyä tai hylätä. Sinun tarvitsee vain napsauttaa "Tarkista" -välilehteä ja napsauttaa sitten "Hyväksy" tai "Hylkää" -komennon avattavaa painiketta. Valitse seuraavaksi "Hyväksy kaikki muutokset asiakirjassa" tai "Hylkää kaikki muutokset asiakirjassa".

Entä jos on useita asiakirjoja, joissa on muutoksia, jotka haluat hyväksyä tai hylätä erissä? Tällaisen tehtävän suorittamiseksi tarvitsemme seuraavan makron.

Lisää käyttäjän lomake

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin Wordissa.
2. Napsauta sitten “Normaali”.
3. Napsauta sitten valikkorivillä “Lisää”.
4. Valitse kyseisestä valikosta “UserForm”.
5. Muuta sen kokoa napsauttamalla lomakkeen ympärillä olevia kahvoja.
6. Paina "F4" tuodaksesi esiin "Ominaisuudet-ikkunan" vasemmassa alakulmassa.
7. Nimeä sitten lomake nimellä “frmAcceptOrRejectChanges” ja aseta sen otsikoksi ”Hyväksy / hylkää muutokset”. Aseta lisäksi ”ShowModal” arvoksi ”False”.
8. Napsauta sitten valikkorivillä "Toolbox".
9. Luo 3 komentopainiketta ja tarra työkaluruudun säätimillä ja laita ne seuraavaan järjestykseen:
10. Napsauta nyt etikettiä aktivoidaksesi sen ominaisuusikkunan. Aseta sen tekstiksi "Haluatko:". On suositeltavaa asettaa tarran tausta läpinäkyväksi. Lisäksi voit asettaa fontin värin ja koon haluamallasi tavalla.
11. Napsauta seuraavaksi komentopainiketta 1. Nimeä se nimellä “btnAccept”. Määritä kuvatekstiksi ”Hyväksy kaikki muutokset useissa asiakirjoissa”.
12. Kaksoisnapsauta sitten komentopainiketta 1 ja kirjoita seuraavat koodit:

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. Palaa nyt takaisin lomakkeeseen ja napsauta komentopainiketta 2. Nimeä se nimellä “btnReject”. Aseta tekstitystekstiksi "Hylkää kaikki muutokset useissa asiakirjoissa".
14. Kaksoisnapsauta vastaavasti komentopainiketta 2 ja syötä nämä koodit:

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. Napsauta sitten komentopainiketta 3. Nimeä se nimellä “btnClose” ja aseta tekstitys ”Sulje”.
16. Samoin kaksoisnapsauta komentopainiketta 3 ja kirjoita koodit:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Tallenna kaikki koodit.

Aseta moduuli

1. Toista aluksi vaiheet 2 ja 3 yllä.
2. Ja tällä kertaa valitse "Moduuli".
3. Kaksoisnapsauta päästäksesi uuteen moduuliin ja kirjoita tämä makro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Tallenna makro. Voit määrittää painikkeen tälle makrolle. Yksityiskohtaiset vaiheet voit seurata tätä linkkiä viitteeksi: Kuinka poistaa liitettyjen tekstien muotoilu makrolla ja VBA: lla Wordissasi
5. Suorita makro käyttäjän lomakkeen kiinnittämiseksi. Napsauta joko "Hyväksy kaikki muutokset useissa asiakirjoissa" tai "Hylkää kaikki muutokset useissa asiakirjoissa" ja käynnistät "Selaa" -ikkunan. Valitse asiakirjat ja napsauta “OK”.

Tässä on tulos:

Käsittele asiakirjojen vioittumista

Tietojen menetys ja vuoto tapahtuu koko ajan. Jotkut niistä voidaan estää, kun taas toiset vain tapahtuvat. Siksi on välttämätöntä saada käsiinsä työkalu korjaa docx hätätilanteissa. Tällaisen työkalun avulla sinun ei tarvitse huolehtia tietojen menetyksestä.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com