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

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. 첫 번째 Word 용 Kutools 대화 상자에서 시작 북마크 이름을 텍스트 상자에 입력하고 OK.