Skip to main content

Word belgesinde iki yer imi arasındaki metni nasıl seçersiniz veya silersiniz?

Author: Siluvia Last Modified: 2025-08-07

Bir Word belgesinde iki yer imi arasındaki içeriği seçme veya silme işlemini biliyor musunuz? Bu makale, bu işlemle başa çıkmak için yöntemler gösterecektir.

VBA ile iki yer imi arasındaki metni seçme/silme

VBA ile iki yer imi arasındaki metni seçme/silme

Aşağıdaki ekran görüntüsünde gösterildiği gibi belgenizde iki yer imi olduğunu varsayalım, aşağıdaki VBA kodunu kullanarak bu iki yer imi arasındaki tüm içerikleri seçebilir veya silebilirsiniz.

Word diaplaying content between two bookmarks

1. Belgede, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın, ardından aşağıdaki kodu Modül penceresine kopyalayın.

İki yer imi arasında metin seçmek veya silmek için lütfen aşağıdaki kodları kullanın:

VBA Kodu: Word'de iki belirli yer imi arasındaki metni seçme:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

VBA Kodu: Word'de iki belirli yer imi arasındaki metni silme:

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın.

4. İlk Kutools for Word iletişim kutusunda, başlangıç yer imi adını metin kutusuna girin ve Tamam'a tıklayın.

Dialog box for entering the start bookmark name

5. İkinci Kutools for Word iletişim kutusunda, bitiş yer imini girin ve Tamam'a tıklayın. Ekran görüntüsüne bakın:

Dialog box for entering the end bookmark name

Not: Girilen yer imi adı belgede mevcut değilse, başka bir Kutools for Word iletişim kutusu açılacak ve sizden doğru olanı girmenizi isteyecektir.

Belirtilen yer imleri arasındaki tüm içerikler hemen seçilecek veya silinecektir. Ekran görüntüleri için bakınız.

İki yer imi arasındaki metinleri seçme:

Content between the specified bookmarks are selected

İki yer imi arasındaki metinleri silme.

Content between the specified bookmarks are deleted

Office Tab: Word, Excel, PowerPoint gibi programlara sekmeli arayüzler getirir...
Navigate through documents using Office Tab

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Yükseltin!

🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu Olarak PDF'ye Dönüştür...

✏ İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...

➕ Yaratıcı Eklemler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Ekle / Barkod Ekle / Birden Fazla Resim Ekle / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...

⭐ Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...

🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u şimdi indirin! 🚀
 

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word için 100+ Araç

Ücretsiz İndir Şimdi Satın Al Kutools Hakkında Daha Fazla Bilgi Edinin