İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində bookmark siyahısını yazdırmaq üçün necə?

Word sənədində bookmark'ların siyahısını çap etməyə çalışdınızmı? Burada sizə nail olmaq üçün sizə üsulları göstərəcəyik.

Bütün əlfəcinləri çıxarın və VBA ilə çap edin

VBA ilə bütün əlfəcinləri birbaşa çap etdirin


Bütün əlfəcinləri çıxarın və VBA ilə çap edin

Aşağıdakı VBA kodu bütün sənədləri mövcud sənəddən yeni bir siyahıya salmağa kömək edəcək və siz çıxarılan əlfəcinləri lazım olduğunda əl ilə çap edə bilərsiniz. Xahiş edirik bunu edin.

1. Yer imlerini yazdıracağınız sənədləri açın, sonra basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra kodu kodu Modul penceresine kopyalayın.

VBA kodu: Bütün əlfəcinləri yeni bir sənədə çıxarın

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Sonra içərisində göstərilən sənədlərin siyahısının bütün əlamətləri ilə yeni bir sənəd avtomatik olaraq yaradılır.

4. Kliklə bilərsiniz fayl > çap ehtiyac duyduğunuz qədər çıxarılan əlfəcinlərin siyahısını yazdırmaq.


VBA ilə bütün əlfəcinləri birbaşa çap etdirin

Bütün sənədləri birbaşa sənəddə çap etmək istəyirsinizsə, xahiş edirəm.

1. Yer imlerini yazdıracağınız sənədləri açın, sonra basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modul, sonra Modul pəncərəsinə kodu kopyalayın.

VBA kodu: Bütün sənədləri bir sənəddə çap et

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. Basın F5 bookmarks birbaşa çap etmək üçün açar.



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.