Πώς να εκτυπώσετε λίστα σελιδοδεικτών στο έγγραφο του Word;

Έχετε προσπαθήσει ποτέ να εκτυπώσετε μια λίστα σελιδοδεικτών σε ένα έγγραφο του Word; Εδώ θα σας δείξουμε μεθόδους για να το πετύχετε.

Εξαγάγετε όλους τους σελιδοδείκτες και εκτυπώστε με VBA

Εκτυπώστε απευθείας όλους τους σελιδοδείκτες με το VBA

Εξαγάγετε όλους τους σελιδοδείκτες και εκτυπώστε με VBA

Ο παρακάτω κώδικας VBA θα σας βοηθήσει να απαριθμήσετε όλους τους σελιδοδείκτες από το τρέχον έγγραφο σε έναν νέο και μπορείτε να εκτυπώσετε με μη αυτόματο τρόπο τους εξαγόμενους σελιδοδείκτες όπως χρειάζεστε. Κάντε τα εξής.

1. Ανοίξτε το έγγραφο που θα εκτυπώσετε τους σελιδοδείκτες και πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα στο παράθυρο Module.

Κωδικός VBA: Εξαγωγή όλων των σελιδοδεικτών σε ένα νέο έγγραφο

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. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.

Στη συνέχεια, δημιουργείται αυτόματα ένα νέο έγγραφο με όλους τους σελιδοδείκτες καθορισμένης λίστας εγγράφων μέσα.

4. Μπορείτε να κάνετε κλικ Αρχεία > για να εκτυπώσετε τη λίστα των εξαγόμενων σελιδοδεικτών όπως χρειάζεστε.

Εκτυπώστε απευθείας όλους τους σελιδοδείκτες με το VBA

Εάν θέλετε να εκτυπώσετε απευθείας όλους τους σελιδοδείκτες στο τρέχον έγγραφο, κάντε τα εξής.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια αντιγράψτε τον παρακάτω κώδικα στο παράθυρο Module.

Κωδικός VBA: Εκτυπώστε όλους τους σελιδοδείκτες σε ένα έγγραφο

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. Πάτα το F5 για να εκτυπώσετε απευθείας τους σελιδοδείκτες.