Word құжатындағы бірнеше бетті VBA арқылы қалай тез жоюға болады

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

Құжат жобасын жасау үнемі түзетулерді қажет етеді. Ал мазмұн беттерін жою басқа өзгертулер сияқты қажет. Пайдасыз мәтіндерді жою оңай. Көптеген адамдар таңдау жасауды таңдайды, содан кейін «Жою» немесе «Backspace» пернелерін басу тапсырманы орындайды.

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

Ағымдағы бетті жою

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

1. Бастау үшін жойғыңыз келетін бетке курсорды қойыңыз.
2. Word бағдарламасында VBA редакторын «Жасақтаушы» қойындысын, содан кейін «Visual Basic» батырмасын басу арқылы ашыңыз. Егер таспада «Әзірлеуші» қойындысы әлі қол жетімді болмаса, оның орнына «Alt + F11» пернелерін басыңыз.
3. Екіншіден, «Қалыпты» батырмасын басыңыз.
4. Содан кейін «Кірістіру» батырмасын басыңыз және сол мәзірден «Модуль» таңдаңыз.
5. Жаңа модульді екі рет басу арқылы ашыңыз.
6. Келесі кодтарды сол жерге қойыңыз:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. Соңында «Іске қосу» батырмасын басыңыз немесе «F5» батырмасын басыңыз.

Бірнеше бетті жою

1. Макросты орнату және іске қосу үшін жоғарыдағы қадамдарды орындаңыз.
2. Макросты мынамен ауыстырыңыз:

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

3. Макросты іске қосу кіріс терезесін іске қосады. Жойылатын парақтардың парақ нөмірін енгізіп, оларды бөлу үшін үтірді қойыңыз. Үтірден кейін бос орын енгізбеңіз.
4. Одан әрі «OK» батырмасын басыңыз.

Әрине, сіз осы макросты қолданыстағы парақты жою үшін қолдана аласыз. Жай бет нөмірін енгізіңіз.

Сыбайлас жемқорлықтың тоқтауына жол бермеңіз

Деректер апаты болғаннан кейін, бұл сіздің күнделікті жұмысыңызды баяулатады және сіз қосымша шығындарды көтеруге мәжбүр боласыз. Деректеріңіздің қауіпсіздігі мен сенімділігіне көз жеткізу үшін сізге хабарласқан жөн doc зақымдануы жөндеу құралы.

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

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