Bir Word belgesindeki birden çok belirli sayfa nasıl silinir?

Bir Word belgesinde, geçerli sayfa içeriğini seçebilir ve ardından geçerli sayfayı kolayca silmek için Sil tuşuna basabilirsiniz. Ancak, büyük bir Word dosyasından birden çok sayfayı kaldırmanız gerekirse, bunu nasıl hızlı bir şekilde çözebilirsiniz?

Git özelliğiyle Word belgesindeki bir dizi sayfayı silin

VBA kodu ile Word belgesindeki birden çok belirli sayfayı silin

Git özelliğiyle Word belgesindeki bir dizi sayfayı silin

Bir Word belgesinden bir dizi ardışık sayfayı silmek isterseniz, Git özelliği size bir iyilik yapabilir.

1. Sayfaları silmek istediğiniz Word belgesini başlatın.

2. Daha sonra tuşuna basın. F5 tuşuna basarak Bul ve Değiştir iletişim kutusunun altında git sekmesini tıklayın Sayfa içinde Neye git liste kutusuna gidin ve ardından silmek istediğiniz başlangıç ​​sayfası numarasını girin ve Keşfet belirli sayfaya gitmek için anahtar, ekran görüntüsüne bakın:

2. Sonra kapat şunu Bul ve Değiştir iletişim kutusunu seçin ve F8 açmak için Genişletme modu.

3. Basmaya devam et F5 tuşuna basarak Bul ve Değiştir iletişim kutusunda bu sefer silmek istediğiniz bitiş sayfası numarasını girin ve ardından Keşfet anahtar. 15 ile 20 arasındaki tüm sayfalar aynı anda seçilmiştir. Ekran görüntüsüne bakın:

4. Sonunda, basın Sil Bu sayfaları bir defada silmek için doğrudan tuşuna basın.

VBA kodu ile Word belgesindeki birden çok belirli sayfayı silin

Bir Word dosyasındaki ardışık olmayan birden çok belirli sayfayı silmek için aşağıdaki VBA kodu size yardımcı olabilir.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Word dosyasında birden çok belirli sayfayı silin:

Sub DeletePagesInDoc()
    Dim xRange As Range
    Dim xPage As String
    Dim xDoc As Document
    Dim xArr
    Dim I, xSplitCount As Long
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "KuTools for Word", "")
    xArr = Split(xPage, ",")
    xPageCount = UBound(xArr)
    For I = xPageCount To 0 Step -1
        Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
        xDoc.Bookmarks("\Page").Range.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve silmek istediğiniz sayfa numaralarını girmenizi hatırlatmak için bir istem kutusu açılır, lütfen sayfa numaralarını virgülle ayırın, ekran görüntüsüne bakın:

4. Ve sonra tıklayın OK düğmesi, belirttiğiniz tüm sayfalar bir defada silindi.

---

Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

• Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
• Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
• Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
• Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
• Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...

Devamını Oku Hemen İndir Satın alma