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

Bir Word belgesinde iki yer imi arasındaki içeriği nasıl seçip sileceğinizi biliyor musunuz? Bu makale, bu işlemi gerçekleştirmeniz için size pratik yöntemler sunacak.

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; bu iki yer imi arasındaki tüm içeriği aşağıdaki VBA koduyla seçebilir veya silebilirsiniz.

1. Belgede Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

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

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

VBA kodu: Word’de belirtilen iki 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 belirtilen iki 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 olarak Kutools for Word iletişim kutusunda, Başlangıç Yer İmi Adı’nı metin kutusuna girin ve Tamam düğmesine tıklayın.

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

Not: Girdiğiniz yer imi adı belgede mevcut değilse, doğru olanı girmeniz için başka bir Kutools for Wordiletişim kutusu açılacaktır.

Daha sonra belirtilen yer imleri arasındaki tüm içerik anında seçilir veya silinir. Ekran görüntülerine göz atın.

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

İki yer imi arasındaki metinleri silme.