Birdən çox Word Sənədindəki bütün dəyişiklikləri necə qəbul etmək və ya rədd etmək olar

Bu yazıda, eyni anda birdən çox Word sənədindəki bütün dəyişiklikləri toplu şəkildə qəbul etməyin və ya rədd etməyin yolunu göstərməyə diqqət yetirəcəyik.

Bir Word sənədindəki bütün dəyişiklikləri qəbul etmək və ya rədd etmək asandır. Siz sadəcə olaraq “Nəzərdən keçir” sekmesini vurmalı, sonra “Qəbul et” və ya “Rədd et” əmrində açılan düyməni sıxmalısınız. Sonra "Sənəddəki bütün dəyişiklikləri qəbul et" və ya "Sənəddəki bütün dəyişiklikləri rədd et" seçin.

Bəs əgər toplu olaraq qəbul etmək və ya rədd etmək istədiyiniz dəyişiklikləri olan bir neçə sənəd varsa? Belə bir tapşırığı yerinə yetirmək üçün bizə aşağıdakı makro lazımdır.

İstifadəçi Formasını daxil edin

1. Əvvəlcə Word-də VBA redaktorunu açmaq üçün "Alt + F11" düyməsini basın.
2. İkincisi, "Normal" düyməsini basın.
3. Sonra menyu çubuğunda "Daxil et" düyməsini basın.
4. Həmin menyuda “UserForm” seçin.
5. Formanın ölçüsünü düzgün dəyişmək üçün onun ətrafındakı tutacaqlara klikləyin.
6. Sol aşağı küncdəki "Xüsusiyyətlər Pəncərəsi"ni çıxarmaq üçün "F4" düyməsini basın.
7. Sonra formanı “frmAcceptOrRejectChanges” adlandırın və başlığını “Dəyişiklikləri Qəbul Et/Rədd et” olaraq təyin edin. Bundan əlavə, "ShowModal" parametrini "Yanlış" olaraq təyin edin.
8. Sonra menyu çubuğunda "Alətlər qutusu" düyməsini basın.
9. 3 əmr düyməsi və etiket yaratmaq üçün alətlər qutusundakı idarəetmələrdən istifadə edin və onları belə sıralayın:
10. İndi onun əmlak pəncərəsini aktivləşdirmək üçün etiketə klikləyin. Onun başlığını “İstəyirsinizmi:” olaraq təyin edin. Etiketin fonunu şəffaf kimi təyin etmək tövsiyə olunur. Bundan əlavə, şriftin rəngini və ölçüsünü istədiyiniz kimi təyin edə bilərsiniz.
11. Sonra əmr düyməsini 1 klikləyin. Onu “btnAccept” kimi adlandırın. Başlığı "Birdən çox Sənəddə Bütün Dəyişiklikləri Qəbul Et" olaraq təyin edin.
12. Sonra 1 əmr düyməsini iki dəfə vurun və aşağıdakı kodları daxil edin:

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. İndi formaya qayıdın və komanda düyməsini 2 üzərinə klikləyin. Onu “btnReject” adlandırın. Və başlıq mətnini "Birdən çox sənədlərdə bütün dəyişiklikləri rədd et" olaraq təyin edin.
14. Eynilə, əmr düyməsini 2 üzərinə iki dəfə vurun və bu kodları daxil edin:

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. Sonra əmr düyməsini 3 klikləyin. Onu “btnClose” adlandırın və başlığı “Close” olaraq təyin edin.
16. Eynilə, 3 əmr düyməsini iki dəfə vurun və kodları yazın:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Bütün kodları yadda saxlayın.

Modul daxil edin

1. Başlamaq üçün yuxarıdakı 2 və 3-cü addımları təkrarlayın.
2. Və bu dəfə "Modul" seçin.
3. Yeni modula daxil olmaq üçün iki dəfə klikləyin və bu makronu daxil edin:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Makronu yadda saxla. Siz bu makro üçün düymə təyin etməyi seçə bilərsiniz. Ətraflı addımlar üçün istinad üçün bu linki izləyə bilərsiniz: Word-də Makro və VBA ilə yapışdırılmış mətnlərin formatını necə çıxarmaq olar
5. İstifadəçi formasını düzəltmək üçün makronu işə salın. "Birdən çox Sənəddə Bütün Dəyişiklikləri Qəbul Et" və ya "Birdən çox Sənəddə Bütün Dəyişiklikləri Rədd Et" üzərinə klikləyin və "Gözdən keçir" pəncərəsini işə salacaqsınız. Sənədləri seçin və "OK" düyməsini basın.

Budur nəticə:

Sənəd Korrupsiyasını idarə edin

Məlumatların itirilməsi və sızması hər zaman baş verir. Onların bəzilərinin qarşısını almaq olar, digərləri isə sadəcə baş verir. Buna görə də, bir alət tutmaq lazımdır docx düzəldin fövqəladə hallarda. Belə bir alətlə məlumat itkisi ilə bağlı narahat olmağa ehtiyacınız olmayacaq.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel düzəlişi və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com