วิธีพิมพ์รายการบุ๊กมาร์กในเอกสาร Word

คุณเคยพยายามพิมพ์รายการบุ๊กมาร์กในเอกสาร Word หรือไม่? ที่นี่เราจะแสดงวิธีการที่จะบรรลุมัน

แยกบุ๊กมาร์กทั้งหมดและพิมพ์ด้วย VBA

รหัส VBA ด้านล่างจะช่วยในการแสดงรายการบุ๊กมาร์กทั้งหมดจากเอกสารปัจจุบันไปยังรายการใหม่และคุณสามารถพิมพ์บุ๊กมาร์กที่แยกได้ด้วยตนเองตามที่คุณต้องการ กรุณาดำเนินการดังนี้

1. เปิดเอกสารที่คุณจะพิมพ์บุ๊กมาร์กกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ดด้านล่างลงในหน้าต่างโมดูล

รหัส 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 สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล, จากนั้นคัดลอกโค้ดด้านล่างลงในหน้าต่างโมดูล

รหัส 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 เพื่อพิมพ์บุ๊กมาร์กโดยตรง