Word 문서에서 두 북마크 사이의 텍스트를 선택하거나 삭제하는 방법은 무엇입니까?

Author: Siluvia Last Modified: 2025-08-06

Word 문서에서 두 북마크 사이의 내용을 선택하거나 삭제하는 방법을 알고 계십니까? 이 기사에서는 이를 처리하기 위한 방법을 보여드리겠습니다.

VBA를 사용하여 두 북마크 사이의 텍스트 선택/삭제

VBA를 사용하여 두 북마크 사이의 텍스트 선택/삭제

아래 스크린샷에 표시된 것처럼 문서에 두 개의 북마크가 있다고 가정하면, 다음 VBA 코드를 사용하여 두 북마크 사이의 모든 내용을 선택하거나 삭제할 수 있습니다.

Word diaplaying content between two bookmarks

1. 문서에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭한 다음 아래 코드를 모듈 창에 복사합니다.

두 북마크 사이의 텍스트를 선택하거나 삭제하려면 아래 코드를 사용하십시오:

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 for Word 대화 상자에서 시작 북마크 이름을 텍스트 상자에 입력하고 확인을 클릭합니다.

Dialog box for entering the start bookmark name