Hoe een lijst met bladwijzers in een Word-document af te drukken?

Heeft u ooit geprobeerd een lijst met bladwijzers in een Word-document af te drukken? Hier laten we u methoden zien om dit te bereiken.

Alle bladwijzers extraheren en afdrukken met VBA

Alle bladwijzers direct afdrukken met VBA

Alle bladwijzers extraheren en afdrukken met VBA

De onderstaande VBA-code helpt om alle bladwijzers uit het huidige document naar een nieuw document te verplaatsen, en u kunt de geëxtraheerde bladwijzers handmatig afdrukken zoals u nodig hebt. Volg de volgende stappen.

1. Open het document waarin u de bladwijzers wilt afdrukken, druk op de toetsen 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 kopieer vervolgens de onderstaande code in het Module-venster.

VBA-code: Alle bladwijzers extraheren naar een nieuw document

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

Er wordt automatisch een nieuw document gemaakt met daarin alle bladwijzers van het opgegeven document.

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

Alle bladwijzers direct afdrukken met VBA

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

1. Open het document waarin u de bladwijzers wilt afdrukken, druk op de toetsen 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 kopieer vervolgens de onderstaande code in het Module-venster.

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

Beste Office-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀

Gratis downloaden     Nu kopen     Lees meer over Kutools for Word

 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

⬇️ Nu downloaden 🎁 Koop de volledige suite 📖 Meer informatie

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

• 🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish / Super Vertalen / AI Redactie / AI Proeflezen
• 📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Batch converteren naar PDF
• ✏ Tekst bewerken: Batch Zoeken en Vervangen / Formaat Wijzigen van alle Afbeeldingen
• 🧹 Moeiteloos schoonmaken: Verwijder extra spaties / Verwijder sectie-einden
• ➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje invoegen / QR-codes maken
• 🌍 Ondersteunt meer dan40 Talen: Kutools spreekt uw taal – meer dan40 talen ondersteund!

Gratis downloaden Nu kopen Lees meer over Kutools