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

Author: Sun Last Modified: 2025-08-06

إذا كان لديك مستند Word طويل يحتوي على العديد من الارتباطات التشعبية وتحتاج إلى نسخها جميعًا مرة واحدة، فإن تحديد كل ارتباط يدويًا قد يستغرق وقتًا طويلاً. لحسن الحظ، هناك طرق فعالة لاستخراج ونسخ جميع الارتباطات التشعبية أو عناوينها فقط. سيقدم هذا الدليل طرقًا مختلفة لتحقيق ذلك بسرعة.

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

استخراج عناوين الارتباطات التشعبية فقط (نص عادي) إلى مستند جديد باستخدام VBA

نسخ الارتباطات التشعبية أو العناوين إلى الحافظة باستخدام Kutools for Word

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

باستخدام VBA، يمكنك استخراج جميع الارتباطات التشعبية من المستند ونسخها إلى مستند جديد.

افتح مستند Word الذي يحتوي على الارتباطات التشعبية واضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

انقر فوق إدراج > وحدة، ثم انسخ والصق الكود التالي الخاص بـ VBA في نافذة الوحدة:

Sub HyperlinksExtract()
'Updateby20140214
    Dim oLink As Hyperlink
    Dim docCurrent As Document 'current document
    Dim docNew As Document 'new document
    Dim rngStory As StoryRanges
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        oLink.Range.Copy
        docNew.Activate
        Selection.Paste
        Selection.TypeParagraph
    Next
    
    Set docNew = Nothing
    Set docCurrent = Nothing
End Sub

انقر فوق الزر تشغيل لتنفيذ كود VBA. سيتم فتح مستند جديد يحتوي على جميع الارتباطات التشعبية من المستند الأصلي.

>>>

ملاحظة: تعمل هذه الطريقة باستخدام VBA فقط مع الارتباطات التشعبية النصية. لا يتم استخراج الارتباطات التشعبية المضمنة في الصور.

استخراج عناوين الارتباطات التشعبية فقط (نص عادي) إلى مستند جديد باستخدام VBA

تستخرج هذه الطريقة باستخدام VBA عناوين الارتباطات التشعبية فقط من المستند وتقوم بلصقها في مستند جديد.

افتح مستند Word واضغط على Alt + F11 لفتح محرر VBA.

انقر فوق إدراج > وحدة، ثم انسخ والصق الكود التالي الخاص بـ VBA:

Function GetAllHyperlinks()
'Updateby20140214
    Dim docCurrent As Document
    Dim docNew As Document
    Dim oLink As Hyperlink
    Dim rng As Range
    Application.ScreenUpdating = False
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        Set rng = docNew.Range
        rng.Collapse
        rng.InsertParagraph
        rng.InsertAfter (oLink.Address)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Function

انقر فوق الزر تشغيل سيتم إنشاء مستند جديد يحتوي فقط على عناوين الارتباطات التشعبية (نص عادي).

>>>

ملاحظة: قد لا تظهر عناوين الارتباطات التشعبية المستخرجة بنفس الترتيب كما هو الحال في المستند الأصلي.

نسخ الارتباطات التشعبية أو العناوين إلى الحافظة باستخدام Kutools for Word

يقدم Kutools for Word طريقة بسيطة لنسخ جميع الارتباطات التشعبية أو عناوينها فقط إلى الحافظة بنقرات قليلة.

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزات عملية لتبسيط مهامك.

تحميل الآن

انقر فوق Kutools Plus > نسخ الارتباط التشعبي.
في مربع الحوار نسخ جميع الارتباطات التشعبية إلى الحافظة، حدد الخيار المطلوب.
الصق الارتباطات التشعبية التي تم نسخها حيثما تريد عن طريق الضغط على Ctrl + V.

إذا حددت الخيار الارتباطات التشعبية سيتم نسخ كل من نص العرض والارتباط التشعبي.
إذا حددت الخيار عناوين الارتباطات التشعبية سيتم نسخ عنوان الارتباط التشعبي فقط كنص عادي.

Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

عرض توضيحي: نسخ جميع الارتباطات التشعبية في مستند Word

اكتشف علامة التبويب Kutools / Kutools Plus في هذا الفيديو من Kutools for Word. استمتع بـ 100+ ميزات وأدوات ذكاء اصطناعي مجانية بشكل دائم. قم بالتنزيل الآن!

تمامًا مثل تصفح عدة صفحات ويب في كروم وسفاري وإيدج، يتيح لك Office Tab فتح وإدارة مستندات وورد أو مصنفات إكسل متعددة في نافذة وورد واحدة أو نافذة إكسل واحدة. أصبح التبديل بين المستندات أو المصنفات الآن بسيطًا بنقرة على أزرار التبويب الخاصة بها!

جرّب Office Tab مجانًا الآن!