Skip to main content

Kutools for Office — 하나의 패키지. 다섯 가지 도구. 더 많은 일을 처리하세요.

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

Author Siluvia Last modified

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

5. 두 번째 Kutools for Word 대화 상자에서 끝 북마크를 입력하고 확인을 클릭합니다. 스크린샷 보기:

Dialog box for entering the end bookmark name

참고: 입력한 북마크 이름이 문서에 존재하지 않는 경우, 올바른 이름을 입력하도록 알려주는 다른 Kutools for Word 대화 상자가 나타납니다.

그러면 지정된 북마크 사이의 모든 내용이 즉시 선택되거나 삭제됩니다. 스크린샷 보기.

두 북마크 사이의 텍스트 선택:

Content between the specified bookmarks are selected

두 북마크 사이의 텍스트 삭제.

Content between the specified bookmarks are deleted

Office Tab: 워드, 엑셀, 파워포인트 등에 탭 인터페이스를 제공합니다.
Navigate through documents using Office Tab
지금 바로 작업 효율을 높이세요. Office Tab에 대해 더 알아보기 무료 다운로드

최고의 오피스 생산성 도구

Kutools for Word - 100가지의 뛰어난 기능으로 Word 경험을 한 단계 높여보세요!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (서식 유지) / Super Translate (서식 유지) / AI Redaction / AI Proofread...

📘 문서 마스터하기: 페이지 분할 / 문서 병합 / 다양한 형식(PDF/TXT/DOC/HTML 등)으로 선택 영역 솔루션 내보내기 / PDF로 일괄 변환...

텍스트 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...

🧹 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크를 깔끔하게 제거하세요. 더 많은 제거 도구는 '제거' 그룹에서 확인할 수 있습니다...

창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / 라디오 버튼 삽입 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 찾아보세요...

🔍 정밀 선택: 특정 페이지 / / 도형 / 제목 단락을 정확히 선택하세요. 더 다양한 선택 기능으로 탐색을 더욱 향상하세요...

특별 기능: 원하는 범위로 빠르게 탐색 / 반복 텍스트 자동 삽입 / 문서 창 간 토글 /11 가지 변환 도구...

🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 이러한 기능을 사용해보고 싶으신가요? 지금 Kutools for Word를 다운로드하세요! 🚀
 

✨ Kutools for Office – 한 번의 설치로5가지 강력한 도구 제공!

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint가 포함되어 있습니다

📦5가지 도구를 한 번에 이용 | 🔗 Microsoft Office와 무결점 통합 | ⚡ 즉시 저장 시간 절약 및 생산성 향상

최고의 오피스 생산성 도구

Kutools for Word - 100+ Word용 도구