Bir nechta Word hujjatlaridagi barcha o'zgarishlarni qanday qabul qilish yoki rad etish kerak

Word yechimlari Sentyabr 28, 2025
Hozir ulashing:

Ushbu postda biz sizga bir vaqtning o'zida bir nechta Word hujjatlaridagi barcha o'zgarishlarni ommaviy ravishda qabul qilish yoki rad etish usulini ko'rsatishga e'tibor qaratamiz.

Bitta Word hujjatidagi barcha o'zgarishlarni qabul qilish yoki rad etish oson. Siz shunchaki "Ko'rib chiqish" yorlig'ini bosishingiz kerak, keyin "Qabul qilish" yoki "Rad etish" buyrug'idagi ochiladigan tugmani bosing. Keyin "Hujjatdagi barcha o'zgarishlarni qabul qilish" yoki "Hujjatdagi barcha o'zgarishlarni rad etish" -ni tanlang.

Agar to'plamda qabul qilmoqchi yoki rad etmoqchi bo'lgan o'zgarishlar bilan bir nechta hujjatlar mavjud bo'lsa-chi? Bunday vazifani bajarish uchun bizga quyidagi makro kerak bo'ladi.To'plam bir nechta Word hujjatlaridagi barcha o'zgarishlarni qabul qilish yoki rad etish

Foydalanuvchi formasini kiriting

  1. Avval Word-da VBA muharririni ochish uchun “Alt+ F11” tugmasini bosing.
  2. Ikkinchidan, "Oddiy" tugmasini bosing.
  3. Keyin menyu satrida "Qo'shish" tugmasini bosing.
  4. Ushbu menyuda "UserForm" ni tanlang."Oddiy"-ni bosing->"Qo'shish"-ni bosing->"UserForm"-ni tanlang.
  5. Shaklning o'lchamini to'g'ri o'zgartirish uchun uning atrofidagi tutqichlarni bosing.
  6. Chap-past burchakdagi “Xususiyatlar oynasi”ni chiqarish uchun “F4” tugmasini bosing.
  7. Keyin shaklni "frmAcceptOrRejectChanges" deb nomlang va uning sarlavhasini "O'zgarishlarni qabul qilish/rad etish" deb belgilang. Bundan tashqari, "ShowModal" ni "False" deb belgilang.Formaning xususiyatlarini o'rnating
  8. Keyin menyu satrida "Asboblar qutisi" ni bosing.
  9. 3 ta buyruq tugmasi va yorliq yaratish uchun asboblar panelidagi boshqaruv elementlaridan foydalaning va ularni shunday tartibda joylashtiring:3 ta buyruq tugmasi va 1 ta yorliq
  10. Endi uning xususiyat oynasini faollashtirish uchun yorliqni bosing. Uning sarlavhasini "Siz xohlaysizmi:" deb o'rnating. Yorliq fonini shaffof qilib belgilash tavsiya etiladi. Bundan tashqari, shrift rangi va hajmini o'zingiz xohlagan tarzda o'rnatishingiz mumkin.
  11. Keyin buyruq tugmasini bosing 1. Uni “btnAccept” deb nomlang. Sarlavhani "Bir nechta hujjatlardagi barcha o'zgarishlarni qabul qilish" deb o'rnating.
  12. Keyin 1-buyruq tugmachasini ikki marta bosing va quyidagi kodlarni kiriting:
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
  1. Endi formaga qayting va buyruq tugmasini bosing 2. Uni “btnReject” deb nomlang. Va sarlavha matnini "Bir nechta hujjatlardagi barcha o'zgarishlarni rad etish" deb o'rnating.
  2. Xuddi shunday, 2-buyruq tugmachasini ikki marta bosing va quyidagi kodlarni kiriting:
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
  1. Keyin buyruq tugmachasini bosing 3. Uni “btnClose” deb nomlang va sarlavhani “Yopish” deb belgilang.
  2. Xuddi shunday, 3-buyruq tugmachasini ikki marta bosing va kodlarni kiriting:
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. Barcha kodlarni saqlang.Kodlarni joylashtirish -> "Saqlash" tugmasini bosing

Modulni kiriting

  1. Boshlash uchun yuqoridagi 2 va 3-bosqichlarni takrorlang.
  2. Va bu safar "Modul" ni tanlang.
  3. Yangi modulga kirish uchun ikki marta bosing va ushbu makroni kiriting:
Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub
  1. Makrosni saqlang. Siz ushbu makrosga tugma belgilashni tanlashingiz mumkin. Batafsil qadamlar uchun ma'lumot uchun ushbu havolaga o'tishingiz mumkin: Word-da makro va VBA yordamida qo'yilgan matnlarni formatlashni qanday olib tashlash mumkin
  2. Foydalanuvchi formasini o'rnatish uchun makrosni ishga tushiring. "Bir nechta hujjatlardagi barcha o'zgarishlarni qabul qilish" yoki "Bir nechta hujjatlardagi barcha o'zgarishlarni rad etish" tugmasini bosing va siz "Ko'rib chiqish" oynasini ishga tushirasiz. Hujjatlarni tanlang va "OK" tugmasini bosing.Hujjatlar-ni tanlang-> "OK" tugmasini bosing.

Mana natija:Natijalar qutisi

Hujjatlarning buzilishi bilan shug'ullaning

Ma'lumotlarning yo'qolishi va oqishi har doim sodir bo'ladi. Ulardan ba'zilari oldini olish mumkin, boshqalari esa faqat paydo bo'ladi. Shuning uchun, vositani qo'lga olish kerak docx ni tuzatish favqulodda vaziyatlarda. Bunday vosita yordamida ma'lumotlar yo'qolishi haqida tashvishlanishingiz shart emas.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excel tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com

Hozir ulashing:

Comments are closed.