Word 문서에서 두 개의 책갈피 사이의 텍스트를 선택하거나 삭제하는 방법은？

Word 문서에서 두 책갈피 사이의 내용을 선택하거나 삭제하는 방법을 알고 계신가요？ 이 글에서는 이를 처리하는 방법을 안내해 드립니다。

VBA 로 두 책갈피 사이의 텍스트 선택/삭제하기

---

VBA 로 두 책갈피 사이의 텍스트 선택/삭제하기

아래 스크린샷과 같이 문서에 두 개의 책갈피가 있다고 가정할 때， 다음 VBA 코드를 사용하여 이 두 책갈피 사이의 모든 내용을 선택하거나 삭제할 수 있습니다。

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대화 상자에서 시작 책갈피 이름을 텍스트 상자에 입력하고확인을 클릭합니다。

5. 두 번째Kutools for Word대화 상자에서 끝 책갈피를 입력하고확인을 클릭합니다。 스크린샷 참조：

참고： 입력한 책갈피 이름이 문서에 존재하지 않으면 또 다른 Kutools for Word 대화 상자가 열려 올바른 값을 입력하라는 메시지를 표시합니다。

그러면 지정된 책갈피 사이의 모든 내용이 즉시 선택되거나 삭제됩니다。 스크린샷 참조。

두 책갈피 사이의 텍스트 선택하기：

두 책갈피 사이의 텍스트 삭제하기。