كيفية طباعة قائمة الإشارات المرجعية في مستند 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 مفتاح لطباعة الإشارات المرجعية مباشرة.
أدوات إنتاجية Word الموصى بها
Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪
- يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
- أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
- دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
- قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
- قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...