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

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

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

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

---

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

سيساعد رمز VBA أدناه في سرد ​​جميع الإشارات المرجعية من المستند الحالي إلى مستند جديد ، ويمكنك طباعة الإشارات المرجعية المستخرجة يدويًا حسب حاجتك. الرجاء القيام بما يلي.

1. افتح المستند الذي ستقوم بطباعة الإشارات المرجعية ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود أدناه في نافذة الوحدة النمطية.

كود فبا: استخراج كل الإشارات المرجعية إلى وثيقة جديدة

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. افتح المستند الذي ستقوم بطباعة الإشارات المرجعية ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود أدناه في نافذة الوحدة.

كود فبا: طباعة كل الإشارات المرجعية في وثيقة

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 مفتاح لطباعة الإشارات المرجعية مباشرة.