Бірнеше сөздік құжаттардағы барлық өзгерістерді топтамамен қалай қабылдауға немесе қабылдамауға болады

Бұл жазбада біз сізге бірнеше Word құжаттарындағы барлық өзгерістерді бір уақытта топтық түрде қабылдау немесе қабылдамау жолын көрсетуге назар аударамыз.

Бір Word құжатындағы барлық өзгерістерді қабылдау немесе қабылдамау оңай. Сізге «Қарау» қойындысын басу керек, содан кейін «Қабылдау» немесе «Қабылдамау» пәрменіндегі ашылмалы батырманы басу керек. Әрі қарай «Құжаттағы барлық өзгерістерді қабылдау» немесе «Құжаттағы барлық өзгерістерді қабылдамау» тармағын таңдаңыз.

Егер сіз қабылдаған немесе топтамада қабылдамайтын өзгерістері бар бірнеше құжаттар болса ше? Мұндай тапсырманы орындау үшін бізге келесі макросты қажет етеді.

Пайдаланушы формасын салыңыз

1. Біріншіден, Word бағдарламасында VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
2. Екіншіден, «Қалыпты» батырмасын басыңыз.
3. Содан кейін мәзір жолағында «Кірістіру» батырмасын басыңыз.
4. Сол мәзірден “UserForm” таңдаңыз.
5. Өлшемді дұрыс өзгерту үшін пішіннің айналасындағы тұтқаларды басыңыз.
6. Сол жақтағы бұрыштағы «Сипаттар терезесін» шығару үшін «F4» батырмасын басыңыз.
7. Содан кейін пішінді «frmAcceptOrRejectChanges» деп атаңыз және оның тақырыбын «Өзгерістерді қабылдау / қабылдамау» деп орнатыңыз. Сонымен қатар, «ShowModal» -ді «Жалған» етіп орнатыңыз.
8. Әрі қарай мәзір жолағында «Құралдар жинағы» батырмасын басыңыз.
9. Құралдар терезесіндегі басқару элементтерін қолданып, 3 командалық батырма және белгі жасаңыз және оларға келесідей тәртіп орнатыңыз:
10. Енді оның қасиеттер терезесін белсендіру үшін белгіні басыңыз. Оның жазуын «Сіз қалайсыз ба:» етіп орнатыңыз. Жапсырманың фонын мөлдір етіп қою ұсынылады. Сонымен қатар, қаріптің түсін және өлшемін қалауыңыз бойынша қоюға болады.
11. Әрі қарай командалық батырманы нұқыңыз. Оны «btnAccept» деп атаңыз. Тақырыпты «Барлық құжаттардағы барлық өзгертулерді қабылдау» ретінде орнатыңыз.
12. Содан кейін 1-пәрмен батырмасын екі рет басыңыз және келесі кодтарды енгізіңіз:

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. Енді формаға оралып, 2-батырманы басыңыз. Оны «btnReject» деп атаңыз. Тақырып мәтінін «Бірнеше құжаттағы барлық өзгертулерден бас тарту» ретінде орнатыңыз.
14. Сол сияқты 2-пәрмен батырмасын екі рет шертіп, келесі кодтарды енгізіңіз:

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. Әрі қарай командалық батырманы 3 нұқыңыз. Оны «btnClose» деп атаңыз және тақырыпты «Жабу» етіп қойыңыз.
16. Сол сияқты, 3-пәрмен батырмасын екі рет шертіп, кодтарды теріңіз:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Барлық кодтарды сақтаңыз.

Модуль салыңыз

1. Бастау үшін жоғарыдағы 2 және 3 қадамдарды қайталаңыз.
2. Бұл жолы «Модульді» таңдаңыз.
3. Жаңа модульді енгізу үшін екі рет басыңыз және осы макросты енгізіңіз:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Макросты сақтаңыз. Сіз осы макростың батырмасын тағайындай аласыз. Толығырақ қадамдар үшін сілтеме бойынша мына сілтеме бойынша өтуге болады: Өзіңіздің сөзіңізде макро және VBA көмегімен жапсырылған мәтіндердің пішімін қалай алып тастауға болады
5. Қолданушы пішінін түзету үшін макросты іске қосыңыз. «Бірнеше құжаттардағы барлық өзгерістерді қабылдау» немесе «Бірнеше құжаттардағы барлық өзгерістерді қабылдамау» батырмасын басыңыз, сонда сіз «Шолу» терезесін қосасыз. Құжаттарды таңдап, «ОК» батырмасын басыңыз.

Міне нәтиже:

Құжаттардың бүлінуімен жұмыс істеу

Деректердің жоғалуы және ағып кетуі үнемі орын алады. Олардың кейбіреулерінің алдын алуға болады, ал басқалары жай пайда болады. Сондықтан, құралды ұстап алу керек docx файлын түзету төтенше жағдайларда. Мұндай құралдың көмегімен сіз деректердің жоғалуы туралы алаңдамайсыз.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com