VBA orqali Word hujjatingizdagi bir nechta sahifalarni qanday tezda o'chirish mumkin

Ushbu maqolada biz sizga Word hujjatidagi bir nechta sahifalarni VBA orqali qanday o'chirishni ko'rsatishga qaratamiz.

Hujjatni tuzish doimo tuzatishlarni talab qiladi. Va tarkib sahifalarini o'chirish boshqa o'zgartirishlar kabi zarur. Keraksiz matnlarni olib tashlash oson. Ko'pchilik tanlov qilishni tanlaydi va keyin "O'chirish" yoki "Backspace" tugmalarini bosish vazifani bajaradi.

Bu, albatta, sizga xohlagan narsangizni beradi. Ammo buni amalga oshirishning tezroq usuli bor. Bundan tashqari, siz tanlov bosqichini o'tkazib yuborasiz va bir vaqtning o'zida bir nechta sahifalarni o'chirasiz. Jozibador yondashuv Word makrosini ishga tushirishdir.

Joriy sahifani o'chirish

Bir qator matnlarni tanlashni yoqtirmaydiganlar uchun bu sizning barakangiz bo'lishi mumkin. Avval VBA orqali joriy sahifani qanday o'chirishni ko'rsatamiz.

1. Boshlash uchun kursorni o'chirmoqchi bo'lgan sahifaga qo'ying.
2. "Tuzuvchi" yorlig'ini va keyin "Visual Basic" ni bosish orqali Word-da VBA muharririni oching. Agar tasmada "Tuzuvchi" yorlig'i hali mavjud bo'lmasa, uning o'rniga "Alt + F11" tugmasini bosing.
3. Ikkinchidan, "Oddiy" tugmasini bosing.
4. Keyin "Qo'shish" tugmasini bosing va ushbu menyuda "Module" ni tanlang.
5. Ikki marta bosish orqali yangi modulni oching.
6. Va u erga quyidagi kodlarni joylashtiring:

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

7. Nihoyat, "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.

Bir nechta sahifalarni o'chirish

1. Makrosni o'rnatish va ishga tushirish uchun yuqoridagi amallarni bajaring.
2. Makrosni shu bilan almashtiring:

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. Makroni ishga tushirish kirish maydonini ishga tushiradi. O'chiriladigan sahifalarning sahifa raqamini kiriting va ularni ajratish uchun verguldan foydalaning. Verguldan keyin boʻsh joy qoldirmang.
4. Keyin davom etish uchun "OK" tugmasini bosing.

Albatta, joriy sahifani o'chirish uchun ushbu makrosdan foydalanishingiz mumkin. Shunchaki sahifa raqamini kiriting.

Korruptsiya sizni to'xtatishiga yo'l qo'ymang

Ma'lumotlar falokati yuz berganda, bu sizning kundalik ishingizni sekinlashtirishi aniq va siz qo'shimcha xarajatlarni ham o'z zimmangizga olishingiz kerak bo'ladi. Ma'lumotlaringiz xavfsiz va ishonchli ekanligiga ishonch hosil qilish uchun siz ... ga murojaat qilganingiz ma'qul. dok zarar ta'mirlash vositasi.

Muallif kirish:

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