كيف يمكن طباعة قائمة تحتوي على جميع الإشارات المرجعية في مستند Word؟

هل سبق أن حاولت طباعة قائمة بالإشارات المرجعية في مستند Word؟ سنعرض لك هنا الطرق التي يمكنك من خلالها تحقيق ذلك.

استخراج جميع الإشارات المرجعية وطباعتها باستخدام VBA

طباعة جميع الإشارات المرجعية مباشرةً باستخدام VBA

---

استخراج جميع الإشارات المرجعية وطباعتها باستخدام 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 لطباعة الإشارات المرجعية مباشرةً.