Word 文書内のブックマーク一覧を印刷するには、どうすればよいですか？

Word 文書内のブックマーク一覧を印刷しようとしたことはありますか？ここでは、その方法をご紹介します。

VBA で全ブックマークを抽出して印刷する

VBA で全ブックマークを直接印刷する

---

VBA で全ブックマークを抽出して印刷する

次の手順に従えば、以下の VBA コードを使って現在の文書からすべてのブックマークを抽出し、新しい文書にリスト表示できます。必要に応じて、抽出されたブックマークを手動で印刷してください。

1。印刷したいブックマーク付きの文書を開き、Alt+F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。Microsoft Visual Basic for Applicationsウィンドウで、挿入 > Moduleをクリックし、以下のコードをモジュールウィンドウにコピーしてください。

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ウィンドウで、挿入>Moduleをクリックし、下記のコードをモジュールウィンドウにコピーします。

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キーを押すだけで、ブックマークをそのまま印刷できます。