如何在Word文檔中打印書籤列表?
您是否曾經嘗試過在Word文檔中打印書籤列表?這裡我們將向您展示實現這一目標的方法。
使用VBA提取所有書籤並打印
以下VBA代碼將幫助您將當前文檔中的所有書籤列到一個新文檔中,您可以根據需要手動打印提取的書籤。請按照以下步驟操作。
1. 打開要打印書籤的文檔,按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。
2. 在 Microsoft Visual Basic for Applications 窗口中,點擊 插入 > 模組,然後將以下代碼複製到模組窗口中。
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直接打印所有書籤
如果您想直接打印當前文檔中的所有書籤,請按照以下步驟操作。
1. 打開要打印書籤的文檔,按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。
2. 在 Microsoft Visual Basic for Applications 窗口中,點擊 插入 > 模組,然後將以下代碼複製到模組窗口中。
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 鍵直接打印書籤。
最佳辦公效率工具
Kutools for Word -透過超過 100 項卓越功能,提升您的 Word 使用體驗!
🤖 Kutools AI Features:AI Assistant/Real-Time Assistant/Super Polish(保留格式)/Super Translate(保留格式)/AI Redaction/AI Proofread...
📘 文件掌握:分割頁面/文檔合併/區域導出成各種格式(PDF/TXT/DOC/HTML...)/批量轉換為 PDF...
✏ 正文編輯:批量查找與替換多個文件/批量調整所有圖片大小/翻轉表格的行與列/表格轉文本...
🧹 輕鬆清理:快速清除多餘空格/分節符/文字框/超連結/更多清除工具請前往刪除工具組...
➕ 創意插入:插入千位分隔符/複選框/選項按鈕/二維碼/條形碼/批量插入圖片/還有更多精彩功能在插入工具組...
🔍 精確選擇:精確定位特定頁面/表格/形狀/標題段落/使用更多 選擇 功能提升導航效率...
⭐ 亮點增強:導航至任何區域/自動插入重複文字/切換文檔窗口/11 項轉換工具...
🌍 支援40+種語言:可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言!

✨ Kutools for Office——一次安裝,五大強力工具!
包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率
最佳辦公效率工具
Kutools for Word - 100+ 款 Word 工具
- 🤖 Kutools AI Features:AI Assistant/Real-Time Assistant/Super Polish/Super Translate/AI Redaction/AI Proofread
- 📘 文件掌握:分割頁面/文檔合併/批量轉換為 PDF
- ✏ 正文編輯:批量查找與替換/批量調整所有圖片大小
- 🧹 輕鬆清理:清除多餘空格/清除分節符
- ➕ 創意插入:插入千位分隔符/插入複選框/創建二維碼
- 🌍 支援40+種語言:Kutools 支援您的語言——可使用超過40種語言!