Word 문서에서 북마크 목록을 인쇄하는 방법은 무엇인가요？

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키를 눌러 코드를 실행합니다。

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

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

---

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키를 눌러 북마크를 직접 인쇄합니다。