Birden Çok Word Belgesindeki Tüm Değişiklikleri Toplu Olarak Kabul Etme veya Reddetme

Bu yazımızda, birden fazla Word belgesindeki tüm değişiklikleri aynı anda toplu olarak kabul etme veya reddetme yöntemini göstermeye odaklanacağız.

Tüm değişiklikleri tek bir Word belgesinde kabul etmek veya reddetmek kolaydır. "Gözden Geçir" sekmesine tıklamanız ve ardından "Kabul Et" veya "Reddet" komutundaki açılır düğmeyi tıklamanız yeterlidir. Sonra "Belgedeki Tüm Değişiklikleri Kabul Et" veya "Belgedeki Tüm Değişiklikleri Reddet"i seçin.

Peki ya toplu olarak kabul etmek veya reddetmek istediğiniz değişiklik içeren birden çok belge varsa? Böyle bir görevi gerçekleştirmek için aşağıdaki makroya ihtiyacımız olacak.

Kullanıcı Formu Ekle

1. Öncelikle, Word'de VBA düzenleyicisini açmak için “Alt + F11” tuşlarına basın.
2. İkinci olarak, “Normal”e tıklayın.
3. Ardından, menü çubuğundaki "Ekle" düğmesini tıklayın.
4. Bu menüde "UserForm" u seçin.
5. Düzgün bir şekilde yeniden boyutlandırmak için formun etrafındaki tutamaçlara tıklayın.
6. Sol alt köşedeki "Özellikler Penceresini" ortaya çıkarmak için "F4" tuşuna basın.
7. Ardından formu "frmAcceptOrRejectChanges" olarak adlandırın ve başlığını "Değişiklikleri Kabul Et/ Reddet" olarak ayarlayın. Ayrıca “ShowModal” öğesini “False” olarak ayarlayın.
8. Daha sonra menü çubuğundaki “Araç Kutusu”na tıklayın.
9. 3 komut düğmesi ve bir etiket oluşturmak için araç kutusundaki kontrolleri kullanın ve bunları şu şekilde sıralayın:
10. Şimdi özellik penceresini etkinleştirmek için etikete tıklayın. Altyazısını “Yapmak ister misiniz:” olarak ayarlayın. Etiket arka planının şeffaf olarak ayarlanması önerilir. Ayrıca yazı tipi rengini ve boyutunu istediğiniz gibi ayarlayabilirsiniz.
11. Sonra komut düğmesi 1'e tıklayın. Bunu “btnAccept” olarak adlandırın. Başlığı "Birden Çok Belgedeki Tüm Değişiklikleri Kabul Et" olarak ayarlayın.
12. Daha sonra komut butonu 1'e çift tıklayın ve aşağıdaki kodları girin:

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. Şimdi forma geri dönün ve komut düğmesine tıklayın 2. Bunu “btnReject” olarak adlandırın. Ve başlık metnini "Birden Çok Belgedeki Tüm Değişiklikleri Reddet" olarak ayarlayın.
14. Benzer şekilde, komut düğmesi 2'ye çift tıklayın ve şu kodları girin:

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. Ardından komut düğmesi 3'e tıklayın. Bunu "btnClose" olarak adlandırın ve başlığı "Kapat" olarak ayarlayın.
16. Aynı şekilde, komut düğmesi 3'e çift tıklayın ve kodları yazın:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Tüm kodları kaydedin.

Bir Modül Ekle

1. Başlamak için yukarıdaki 2. ve 3. adımları tekrarlayın.
2. Ve bu sefer “Modül”ü seçin.
3. Yeni modüle girmek için çift tıklayın ve bu makroyu girin:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Makroyu kaydedin. Bu makro için bir düğme atamayı seçebilirsiniz. Ayrıntılı adımlar için, referans olarak bu bağlantıyı takip edebilirsiniz: Word'ünüzdeki Makro ve VBA ile Yapıştırılan Metinlerin Biçimlendirmesini Kaldırma
5. Kullanıcı formunu donatmak için makroyu çalıştırın. "Birden Çok Belgedeki Tüm Değişiklikleri Kabul Et" veya "Birden Çok Belgedeki Tüm Değişiklikleri Reddet" seçeneğine tıklayın ve "Gözat" penceresini tetikleyeceksiniz. Belgeleri seçin ve "Tamam" ı tıklayın.

İşte sonuç:

Belge Bozulmasını Yönetin

Veri kaybı ve sızıntısı her zaman olur. Bazıları önlenebilir, bazıları ise sadece meydana gelir. Bu nedenle, bir aracı ele geçirmek için gereklidir. docx'i düzelt acil durumlarda. Böyle bir araçla, veri kaybı konusunda endişelenmenize gerek kalmayacak.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel düzeltmesi hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com