VBA ile Word Belgenizdeki Birden Çok Sayfayı Hızlıca Silme

Bu yazıda, Word belgenizdeki birden çok sayfayı VBA aracılığıyla nasıl sileceğinizi göstermeye odaklanacağız.

Bir belge taslağı hazırlamak sürekli olarak düzenlemeler gerektirir. Ve içerik sayfalarını silmek de diğer değişiklikler kadar gereklidir. Gereksiz metinleri kaldırmak kolaydır. Çoğu kişi bir seçim yapıp ardından "Sil" veya "Geri Tuşu"na basmayı tercih eder ve bu işlem yeterli olur.

Bu kesinlikle size istediğinizi verecektir. Ama bunu yapmanın daha hızlı bir yolu var. Dahası, seçim adımını atlar ve aynı anda birden çok sayfayı silersiniz. Çekici yaklaşım, bir Word makrosu çalıştırmaktır.

Geçerli Sayfayı Sil

Bir dizi metin arasından seçim yapmaktan nefret edenler için bu sizin için bir nimet olabilir. Öncelikle mevcut sayfayı VBA ile nasıl sileceğinizi gösterelim.

1. Başlamak için, imleci silmek istediğiniz sayfanın üzerine getirin.
2. "Geliştirici" sekmesine ve ardından "Visual Basic"e tıklayarak Word'de VBA düzenleyicisini açın. "Geliştirici" sekmesi Şeritte henüz mevcut değilse, bunun yerine "Alt + F11" tuşlarına basın.
3. İkinci olarak, “Normal”e tıklayın.
4. Ardından “Ekle”ye tıklayın ve o menüden “Modül”ü seçin.
5. Yeni modülü çift tıklayarak açın.
6. Ve oraya aşağıdaki kodları yapıştırın:

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

7. Son olarak, "Çalıştır" düğmesine tıklayın veya "F5" tuşuna basın.

Birden Çok Sayfayı Sil

1. Makro yüklemek ve çalıştırmak için yukarıdaki adımları izleyin.
2. Makroyu bununla değiştirin:

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. Çalışan makro bir giriş kutusunu tetikler. Silinecek sayfaların sayfa numarasını girin ve ayırmak için virgül kullanın. Virgülden sonra boşluk bırakmayınız.
4. Ardından devam etmek için “Tamam”a tıklayın.

Elbette, mevcut sayfayı silmek için bu makroyu kullanabilirsiniz. Sayfa numarasını girmeniz yeterlidir.

Yolsuzluğun Sizi Durdurmasına İzin Vermeyin

Bir veri felaketi yaşandığında, günlük işleriniz kesinlikle yavaşlayacak ve ek maliyetlere de katlanmak zorunda kalacaksınız. Verilerinizin güvenli ve sağlam olduğundan emin olmak için, bir çözüm bulmanızda fayda var. doktor hasarı tamir aracı.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel'i düzelt hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com