Как да изберете или изтриете текст между две отметки в документ на Word?

Автор: Силувия Последна промяна: 2018-11-23

Знаете ли как да изберете или изтриете съдържанието между два отметки в документ на Word? Тази статия ще ви покаже методи за справяне с него.

Изберете/изтрийте текст между два отметки с VBA

Изберете/изтрийте текст между два отметки с VBA

Да предположим, че във вашия документ има две отметки, както е показано на екранната снимка по-долу, можете да изберете или изтриете цялото съдържание между тези две отметки със следния VBA код.

1. В документа натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте кода по-долу в прозореца на модула.

За избиране или изтриване на текстове между два маркера, моля, използвайте този код:

VBA код: Изберете текст между две посочени отметки в Word:

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 код: Изтриване на текст между две посочени отметки в Word:

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. Натисни F5 ключ за изпълнение на кода.

4. В първия Kutools за Word диалогов прозорец, въведете името на началния маркер в текстовото поле и щракнете OK.

5. Във втория Kutools за Word диалогов прозорец, въведете крайната отметка и щракнете OK. Вижте екранна снимка:

Забележка: Ако името на отметката, което сте въвели, не съществува в документа, ще се появи друг диалогов прозорец Kutools за Word, за да ви напомни да въведете правилното.

След това цялото съдържание между посочените отметки се избира или изтрива незабавно. Вижте екранни снимки.

Изберете текстове между две отметки: