Wie druckt man eine Liste der Lesezeichen in einem Word-Dokument?

Haben Sie schon einmal versucht, eine Liste der Lesezeichen in einem Word-Dokument zu drucken? Im Folgenden zeigen wir Ihnen, wie das gelingt.

Alle Lesezeichen mit VBA extrahieren und drucken

Alle Lesezeichen direkt mit VBA drucken

---

Alle Lesezeichen mit VBA extrahieren und drucken

Der folgende VBA-Code überträgt alle Lesezeichen aus dem aktuellen Dokument in ein neues Dokument. Anschließend können Sie die extrahierten Lesezeichen ganz nach Bedarf manuell drucken. Gehen Sie dazu wie folgt vor:

1. Öffnen Sie das Dokument, dessen Lesezeichen Sie 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 fügen Sie anschließend den unten stehenden Code in das Modulfenster ein.

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.

Anschließend wird automatisch ein neues Dokument erstellt, das alle Lesezeichen des angegebenen Dokuments enthält.

4. Klicken Sie auf Datei > Drucken, um die Liste der extrahierten Lesezeichen bei Bedarf auszudrucken.

---

Alle Lesezeichen direkt mit VBA drucken

Wenn Sie alle Lesezeichen in Aktuelles Dokument direkt drucken möchten, gehen Sie bitte wie folgt vor:

1. Öffnen Sie das Dokument, dessen Lesezeichen Sie drucken möchten, und drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren Sie anschließend den unten stehenden 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.