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 productiviteitstools voor Office

Kutools voor Word - Til je Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Polish (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's splitsen / Documenten samenvoegen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen over meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolompositie van tabel transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Extra spaties wegwerken / Sectie-eindes / Tekstvakken / Hyperlinks / Voor meer verwijderfuncties, ga naar de Verwijderen-groep...

➕ Creatief invoegen: Duizendtalseparators invoegen / Selectievakjes / Keuzerondjes / QR-code / Streepjescode / Meerdere afbeeldingen / Ontdek meer in de Invoegen-groep...

🔍 Nauwkeurige selectie: Specifieke pagina's, tabellen, vormen, kopalinea's aanwijzen / Verbeter de navigatie met meer Selecteer -functies...

⭐ Sterverbeteringen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

🌍 Ondersteunt meer dan40 talen: Gebruik Kutools in jouw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

👉 Wil je deze functies uitproberen? Download nu Kutools voor Word! 🚀

Gratis downloaden     Nu kopen     Meer informatie over Kutools voor Word

 

Beste productiviteitstools voor Office

Kutools voor Word - 100+ Tools voor Word

• 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Polish / Super Vertalen / AI Redactie / AI Proeflezen
• 📘 Documentbeheer: Pagina's splitsen / Documenten samenvoegen / Batch converteren naar PDF
• ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
• 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
• ➕ Creatief invoegen: Duizendtalseparators invoegen / Selectievakjes invoegen / QR-codes maken
• 🌍 Ondersteunt meer dan40 talen: Kutools spreekt jouw taal – ondersteuning voor meer dan40 talen!

Gratis downloaden Nu kopen Meer informatie over Kutools