如何在Word文檔中打印書(shū)簽列表？

您是否曾經(jīng)嘗試在Word文檔中打印書(shū)簽列表？ 在這里，我們將向您展示實(shí)現(xiàn)該目標(biāo)的方法。

提取所有書(shū)簽并使用VBA打印

使用VBA直接打印所有書(shū)簽

提取所有書(shū)簽并使用VBA打印

下面的VBA代碼將幫助列出從當(dāng)前文檔到新文檔的所有書(shū)簽，并且您可以根據(jù)需要手動(dòng)打印提取的書(shū)簽。 請(qǐng)執(zhí)行以下操作。

1.打開(kāi)您要打印書(shū)簽的文檔，然后按 其他 + F11 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁(yè) > 模塊，然后將以下代碼復(fù)制到“模塊”窗口中。

VBA代碼：將所有書(shū)簽提取到新文檔

Sub ExtractBookmarksInADoc()Updated by Extendoffice 20181123Dim xRow As LongDim xTable As TableDim xDoc As documentDim xBookMark As BookmarkDim xBookMarkDoc As documentDim xParagraph As ParagraphSet xDoc = ActivedocumentIf xDoc.Bookmarks.Count = 0 ThenMsgBox "There is no bookmark in this document", vbInformation, "KuTools for Word"Exit SubEnd IfSet xBookMarkDoc = documents.AddxRow = 1Selection.TypeText "BookMarks in " & "" & xDoc.Name & ""Set xTable = Selection.Tables.Add(Selection.Range, 1, 3)xTable.Borders.Enable = TrueWith 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.BookmarksxTable.Rows.AddxRow = 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.TextNextEnd WithxBookMarkDoc.SaveAs xDoc.Path & "" & "Bookmarks in " & xDoc.NameEnd Sub

3。 按 F5 鍵來(lái)運(yùn)行代碼。

然后會(huì)自動(dòng)創(chuàng)建一個(gè)新文檔，并在其中列出指定文檔的所有書(shū)簽。

4。 你可以點(diǎn)擊 文件 > 打印 根據(jù)需要打印提取的書(shū)簽列表。

使用VBA直接打印所有書(shū)簽

如果要直接打印當(dāng)前文檔中的所有書(shū)簽，請(qǐng)執(zhí)行以下操作。

1.打開(kāi)您要打印書(shū)簽的文檔，然后按 其他 + F11 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁(yè) > 模塊 然后將以下代碼復(fù)制到“模塊”窗口中。

VBA代碼：打印文檔中的所有書(shū)簽

Sub ExtractBookmarksInADoc()Updated by Extendoffice 20181123Dim xRow As LongDim xTable As TableDim xDoc As documentDim xBookMark As BookmarkDim xBookMarkDoc As documentDim xParagraph As ParagraphOn Error Resume NextSet xDoc = ActivedocumentIf xDoc.Bookmarks.Count = 0 ThenMsgBox "There is no bookmark in this document", vbInformation, "KuTools for Word"Exit SubEnd IfSet xBookMarkDoc = documents.AddxRow = 1Selection.TypeText "BookMarks in " & "" & xDoc.Name & ""Set xTable = Selection.Tables.Add(Selection.Range, 1, 3)xTable.Borders.Enable = TrueWith 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.BookmarksxTable.Rows.AddxRow = 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.TextNextEnd WithxBookMarkDoc.SaveAs xDoc.Path & "" & "Bookmarks in " & xDoc.NamexBookMarkDoc.PrintOutxBookMarkDoc.CloseKill xBookMarkDoc.PathEnd SubCopy

3。 按 F5 鍵直接打印書(shū)簽。

最佳辦公生產(chǎn)力工具

Kutools for Word- 通過(guò) Over 提升您的文字體驗(yàn) 100 顯著特點(diǎn)！

深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.