Wie druckt man eine Liste der Lesezeichen in einem Word-Dokument?
Haben Sie jemals versucht, eine Liste der Lesezeichen in einem Word-Dokument zu drucken? Hier zeigen wir Ihnen Methoden, um dies zu erreichen.
Alle Lesezeichen mit VBA extrahieren und drucken
Alle Lesezeichen direkt mit VBA drucken
Alle Lesezeichen mit VBA extrahieren und drucken
Der folgende VBA-Code hilft dabei, alle Lesezeichen aus dem aktuellen Dokument in ein neues zu übertragen, und Sie können die extrahierten Lesezeichen bei Bedarf manuell drucken. Bitte gehen Sie wie folgt vor.
1. Öffnen Sie das Dokument, in dem Sie die Lesezeichen drucken möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren Sie den folgenden Code in das Modulfenster.
VBA-Code: Alle Lesezeichen in ein neues Dokument extrahieren
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. Drücken Sie die Taste F5, um den Code auszuführen.
Dann wird automatisch ein neues Dokument erstellt, in dem alle Lesezeichen des angegebenen Dokuments aufgelistet sind.
4. Sie können auf Datei > Drucken klicken, um die Liste der extrahierten Lesezeichen bei Bedarf zu drucken.
Alle Lesezeichen direkt mit VBA drucken
Wenn Sie alle Lesezeichen im aktuellen Dokument direkt drucken möchten, gehen Sie bitte wie folgt vor.
1. Öffnen Sie das Dokument, in dem Sie die Lesezeichen drucken möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren Sie den folgenden Code in das Modulfenster.
VBA-Code: Alle Lesezeichen in einem Dokument drucken
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. Drücken Sie die Taste F5, um die Lesezeichen direkt zu drucken.
Die besten Produktivitätstools für das Büro
Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!
🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...
📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...
✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...
🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...
➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...
🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...
⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!
Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint
📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern
Die besten Produktivitätstools für das Büro
Kutools for Word – 100+ Tools für Word
- 🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Stapelweise Konvertierung zu PDF
- ✏ Text bearbeiten: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Code erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – unterstützt über40 Sprachen!