Hoe drukt u een lijst met bladwijzers af uit een Word-document?

Heeft u ooit geprobeerd een lijst met bladwijzers af te drukken in een Word-document? Wij laten u hoe dat werkt.

Alle bladwijzers extraheren en afdrukken met VBA

Direct alle bladwijzers afdrukken met VBA

---

Alle bladwijzers extraheren en afdrukken met VBA

De onderstaande VBA-code helpt u om alle bladwijzers uit het huidige document naar een nieuw document te verplaatsen, zodat u de geëxtraheerde bladwijzers handmatig kunt afdrukken zoals u dat wilt. Volg deze stappen.

1. Open het document waarvan u de bladwijzers wilt afdrukken en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en plak de onderstaande code in het modulevenster.

VBA-code: Alle bladwijzers naar een nieuw document extraheren

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. Druk op de toets F5 om de code uit te voeren.

Er wordt dan automatisch een nieuw document aangemaakt dat alle bladwijzers uit het opgegeven document bevat.

4. U kunt op Bestand > Afdrukken klikken om de lijst met geëxtraheerde bladwijzers af te drukken zoals u dat wilt.

---

Direct alle bladwijzers afdrukken met VBA

Als u direct alle bladwijzers in het huidige document wilt afdrukken, volgt u deze stappen.

1. Open het document waarvan u de bladwijzers wilt afdrukken en druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module en plak de onderstaande code in het modulevenster.

VBA-code: Alle bladwijzers in een document afdrukken

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. Druk op de toets F5 om de bladwijzers direct af te drukken.