Word 문서에서 북마크 목록을 인쇄하는 방법은 무엇입니까?

Author Siluvia Last modified 2025-08-26

Word 문서에서 북마크 목록을 인쇄해 본 적이 있습니까? 여기에서는 이를 달성하기 위한 방법을 보여드리겠습니다.

VBA를 사용하여 모든 북마크 추출 및 인쇄

VBA를 사용하여 모든 북마크 직접 인쇄

VBA를 사용하여 모든 북마크 추출 및 인쇄

아래 VBA 코드는 현재 문서의 모든 북마크를 새 문서에 나열하는 데 도움이 되며, 필요에 따라 추출된 북마크를 수동으로 인쇄할 수 있습니다. 아래 단계를 따르세요.

1. 북마크를 인쇄할 문서를 열고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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

VBA 코드: 모든 북마크를 새 문서로 추출

Sub ExtractBookmarksInADoc()
'Updated by Extendoffice 20181123
    Dim xRow As Long
    Dim xTable As Table
    Dim xDoc As Document
    Dim xBookMark As Bookmark
    Dim xBookMarkDoc As Document
    Dim xParagraph As Paragraph
    Set xDoc = ActiveDocument
    If xDoc.Bookmarks.Count = 0 Then
        MsgBox "There is no bookmark in this document", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    Set xBookMarkDoc = Documents.Add
    xRow = 1
    Selection.TypeText "BookMarks in " & "'" & xDoc.Name & "'"
    Set xTable = Selection.Tables.Add(Selection.Range, 1, 3)
    xTable.Borders.Enable = True
    With xTable
        .Cell(xRow, 1).Range.Text = "Name"
        .Cell(xRow, 2).Range.Text = "Texts"
        .Cell(xRow, 3).Range.Text = "Page Number"
        For Each xBookMark In xDoc.Bookmarks
            xTable.Rows.Add
            xRow = xRow + 1
            .Cell(xRow, 1).Range.Text = xBookMark.Name
            .Cell(xRow, 2).Range.Text = xBookMark.Range.Text
            .Cell(xRow, 3).Range.Text = xBookMark.Range.Information(wdActiveEndAdjustedPageNumber)
            xDoc.Hyperlinks.Add Anchor:=.Cell(xRow, 3).Range, Address:=xDoc.Name, _
              SubAddress:=xBookMark.Name, TextToDisplay:=.Cell(xRow, 3).Range.Text
        Next
    End With
    xBookMarkDoc.SaveAs xDoc.Path & "\" & "Bookmarks in " & xDoc.Name
End Sub

3. 코드를 실행하려면 F5 키를 누릅니다.

그러면 지정된 문서의 모든 북마크가 포함된 새 문서가 자동으로 생성됩니다.

New document with all bookmarks of specified document listing inside

4. 파일 > 인쇄를 클릭하여 추출된 북마크 목록을 필요에 따라 인쇄할 수 있습니다.

Kutools for Word,AI 🤖가 탑재되어 있으며, 100개 이상의 유용한 기능을 제공하여 작업을 간소화합니다.

지금 다운로드

VBA를 사용하여 모든 북마크 직접 인쇄

현재 문서의 모든 북마크를 직접 인쇄하려면 아래 단계를 따르세요.

1. 북마크를 인쇄할 문서를 열고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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

VBA 코드: 문서의 모든 북마크 인쇄

Sub ExtractBookmarksInADoc()
'Updated by Extendoffice 20181123
    Dim xRow As Long
    Dim xTable As Table
    Dim xDoc As Document
    Dim xBookMark As Bookmark
    Dim xBookMarkDoc As Document
    Dim xParagraph As Paragraph
    On Error Resume Next
    Set xDoc = ActiveDocument
    If xDoc.Bookmarks.Count = 0 Then
        MsgBox "There is no bookmark in this document", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    Set xBookMarkDoc = Documents.Add
    xRow = 1
    Selection.TypeText "BookMarks in " & "'" & xDoc.Name & "'"
    Set xTable = Selection.Tables.Add(Selection.Range, 1, 3)
    xTable.Borders.Enable = True
    With xTable
        .Cell(xRow, 1).Range.Text = "Name"
        .Cell(xRow, 2).Range.Text = "Texts"
        .Cell(xRow, 3).Range.Text = "Page Number"
        For Each xBookMark In xDoc.Bookmarks
            xTable.Rows.Add
            xRow = xRow + 1
            .Cell(xRow, 1).Range.Text = xBookMark.Name
            .Cell(xRow, 2).Range.Text = xBookMark.Range.Text
            .Cell(xRow, 3).Range.Text = xBookMark.Range.Information(wdActiveEndAdjustedPageNumber)
            xDoc.Hyperlinks.Add Anchor:=.Cell(xRow, 3).Range, Address:=xDoc.Name, _
              SubAddress:=xBookMark.Name, TextToDisplay:=.Cell(xRow, 3).Range.Text
        Next
    End With
    xBookMarkDoc.SaveAs xDoc.Path & "\" & "Bookmarks in " & xDoc.Name
    xBookMarkDoc.PrintOut
    xBookMarkDoc.Close
    Kill xBookMarkDoc.Path
End Sub

3. 북마크를 직접 인쇄하려면 F5 키를 누릅니다.