Conas liosta leabharmharcanna a phriontáil i ndoiciméad Word?

An ndearna tú iarracht riamh liosta leabharmharcanna a phriontáil i ndoiciméad Word? Anseo taispeánfaimid modhanna duit chun é a bhaint amach.

Sliocht gach leabharmharc agus priontáil le VBA

Priontáil go díreach gach leabharmharc le VBA

Sliocht gach leabharmharc agus priontáil le VBA

Cuideoidh an cód VBA thíos le gach leabharmharc a liostáil ón doiciméad reatha go ceann nua, agus is féidir leat na leabharmharcanna eastósctha a phriontáil de láimh de réir mar is gá duit. Déan mar a leanas le do thoil.

1. Oscail an doiciméad a phriontálfaidh tú na leabharmharcanna, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos an cód isteach i bhfuinneog an Mhodúil.

Cód VBA: Sliocht gach leabharmharc chuig doiciméad nua

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. Brúigh an F5 eochair chun an cód a rith.

Ansin cruthaítear doiciméad nua go huathoibríoch agus gach leabharmharc de liostú doiciméad sonraithe istigh ann.

4. Is féidir leat cliceáil Comhad > Print chun liosta na leabharmharcanna eastósctha a phriontáil de réir mar is gá duit.

Priontáil go díreach gach leabharmharc le VBA

Más mian leat gach leabharmharc a phriontáil go díreach sa doiciméad reatha, déan mar a leanas le do thoil.

1. Oscail an doiciméad a phriontálfaidh tú na leabharmharcanna, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúl, ansin cóipeáil thíos an cód isteach i bhfuinneog an Mhodúil.

Cód VBA: Priontáil gach leabharmharc i ndoiciméad

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. Brúigh an F5 eochair chun na leabharmharcanna a phriontáil go díreach.

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!

🤖 Gnéithe Kutools AI: Gin Ábhar / Athscríobh Téacs / Doiciméad C&A / Faigh Freagraí Tapa / Aistrigh doiciméid / Doiciméad Polainnis (Caomhnaigh Formáid)...

📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF...

✏ Eagarthóireacht na nÁbhar: Baisc Aimsigh agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...

🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Boscaí Téacs / Hipearnasc / Chun níos mó uirlisí a bhaint, ceann chuig an Bain grúpa...

➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Pictiúir Il / Faigh amach níos mó sa Ionsáigh grúpa...

🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha / Táblaí / cruthanna / Míreanna Ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh bailte fearainn...

⭐ Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith / Uath-Ionsáigh Téacs Athchleachtach / Scoránaigh Idir Windows Doiciméad / 11 Tiontú uirlisí...

???? Ar mhaith leat triail a bhaint as na gnéithe seo? Íoslódáil Kutools le haghaidh Word anois! 🚀

Free Download     Ceannaigh Anois     Tuilleadh eolais faoi Kutools le haghaidh Word

 

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Word - 100+ Uirlisí le haghaidh Word

• 🤖 Gnéithe Kutools AI: Gin, Athscríobh, Achoimre a dhéanamh ar, aistriú Doiciméid / Faigh Freagraí Tapa / Doiciméad Polainnis (Caomhnaigh Formáid)
• 📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Baisc a thiontú go PDF
• ✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh / Athraigh Méid Gach Pictiúr
• 🧹 Effortless Glan: Bain Spásanna Breise / Bain Sosanna Alt
• ➕ Ionsáigh Cruthaitheach: Cuir isteach na mílte deighilteoirí / Cuir Seiceálacha isteach / Cruthaigh Cóid QR

Free Download Ceannaigh Anois Tuilleadh eolais faoi Kutools