Word belgesinde iki yer imi arasındaki metni nasıl seçersiniz veya silersiniz?
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.
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.
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:
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:
İki yer imi arasındaki metinleri silme.
Office Tab: Word, Excel, PowerPoint gibi programlara sekmeli arayüzler getirir...![]() |
İş akışınızı şimdi geliştirin. Office Tab hakkında daha fazla bilgi edinin Ücretsiz İndir |
En İyi Ofis Verimliliği Araçları
Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!
🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...
📘 Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...
✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır / Metin Kutularını Kaldır / Bağlantıları Kaldır / Diğer kaldırma araçları için Kaldır grubuna göz atın...
➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...
🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...
⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...
🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

✨ Kutools for Office – Tek kurulumda beş güçlü araç!
Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır
En İyi Ofis Verimliliği Araçları
Kutools for Word - 100+ Word için araçlar
- 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Süper Parlat / Süper Çeviri / AI Redaksiyon / Yapay Zeka Düzeltme
- 📘 Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Toplu PDF Dönüştürme
- ✏ Metin Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / QR Kodu Oluştur
- 🌍 40+ Dil Desteği: Kutools sizin dilinizde –40'tan fazla dil desteği!