İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində iki əlfəcin arasında mətni seçmək və ya silmək necə?

Bir Word sənədindəki iki bookmark arasında məzmunu seçmək və ya silmək üçün necə bilirsiniz? Bu yazıda bununla mübarizə üsulları göstərilir.

VBA ilə iki əlamət arasında mətni seçin / silin


VBA ilə iki əlamət arasında mətni seçin / silin

Belgenizdeki ekran görüntüsünün aşağıda göstərildiyi kimi iki əlamət var, ehtimal ki, bu iki əlavənin arasına aşağıdakı məzmunu seçə və ya silə bilərsiniz: VBA kodu.

1. Sənəddə, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra kodu kodu Modul penceresine kopyalayın.

Iki bookmark arasında mətnləri seçmək və ya silmək üçün, bu kodu istifadə edin:

VBA kodu: Word'də iki göstərilən bookmark arasında mətni seçin:

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'də iki göstərilən bookmark arasında mətni silin:

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. Birincisi Word üçün Kutools informasiya qutusuna, mətn qutusuna başlanğıc imza adını daxil edin və basın OK.

5. İkincisi Word üçün Kutools informasiya qutusuna, sonuncu yer imini daxil edin və vurun OK. Ekran görüntüsünə baxın:

Qeyd: Əgər yazdığınız yer iminin adı sənəddə mövcud deyilsə, Word üçün başqa Kutools qutusu açılacaq və bu, doğru olanı xatırlatmaq üçün açılır.

Sonra göstərilən bookmarks arasında bütün məzmunlar dərhal seçilir və ya silinir. Ekranlara baxın.

Iki bookmark arasında mətnləri seçin:

İki bookmark arasında mətnləri silin.



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.