كيفية طباعة قائمة الإشارات المرجعية في مستند 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 مفتاح لطباعة الإشارات المرجعية مباشرة.
أفضل أدوات إنتاجية المكتب
Kutools for Word - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
تعمق في الميزات المميزة أدناه أو انقر هنا لاستكشاف القوة الكاملة ل Kutools for Word.
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/XLSX) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة الإزالة الخاصة بنا
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في مجموعة الإدراج الخاصة بنا
🔍 التحديدات الدقيقة: تحديد صفحات محددة / الجداول / الأشكال / فقرات العناوين / تنقل بسهولة باستخدام مجموعة Select الخاصة بنا
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل
قم بتحويل مهام Word الخاصة بك باستخدام Kutools. 👉 قم بالتنزيل مع نسخة تجريبية مدتها 30 يومًا الآن 🚀.
