Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Sun Last modified

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

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

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

  1. افتح مستند Word الذي يحتوي على الارتباطات التشعبية واضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  2. انقر فوق إدراج > وحدة، ثم انسخ والصق الكود التالي الخاص بـ 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
  3. انقر فوق الزر تشغيل لتنفيذ كود VBA. سيتم فتح مستند جديد يحتوي على جميع الارتباطات التشعبية من المستند الأصلي.
    Document with text with hyperlinks >>> New document with only text with hyperlinks

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

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

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

  1. افتح مستند Word واضغط على Alt + F11 لفتح محرر VBA.
  2. انقر فوق إدراج > وحدة، ثم انسخ والصق الكود التالي الخاص بـ 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
  3. انقر فوق الزر تشغيل سيتم إنشاء مستند جديد يحتوي فقط على عناوين الارتباطات التشعبية (نص عادي).
    Document with text with hyperlinks >>> New document with only hyperlink addresses

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

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

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

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزة عملية لتبسيط مهامك.
  1. انقر فوق Kutools Plus > نسخ الارتباط التشعبي.
    Copy Hyperlink button on the Kutools tab on the ribbon
  2. في مربع الحوار نسخ جميع الارتباطات التشعبية إلى الحافظة، حدد الخيار المطلوب.
    Copy all hyperlinks to clipboard dialog box
  3. الصق الارتباطات التشعبية التي تم نسخها حيثما تريد عن طريق الضغط على Ctrl + V.
  • إذا حددت الخيار الارتباطات التشعبية سيتم نسخ كل من نص العرض والارتباط التشعبي.
    Text with hyperlinks pasted
  • إذا حددت الخيار عناوين الارتباطات التشعبية سيتم نسخ عنوان الارتباط التشعبي فقط كنص عادي.
    Hyperlinks addresses pasted
Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

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

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

تصفح وتحرير بأزرار تبويب لمستندات وورد أو مصنفات إكسل المتعددة، تمامًا كما في كروم وإيدج!

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

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

مقالات ذات صلة:

أفضل أدوات زيادة الإنتاجية لمكتبك

Kutools لـ Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة رائعة!

🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (يحافظ على التنسيقات) / ترجمة فائقة (يحافظ على التنسيقات) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير النطاق إلى تنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...

✏ تحرير النص: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل صفوف وأعمدة الجدول / تحويل الجدول إلى نص...

🧹 تنظيف سهل: إزالة المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / للمزيد من أدوات الإزالة، انتقل إلى مجموعة إزالة...

➕ إدراجات مبتكرة: إدراج الفواصل بالألاف / مربعات اختيار / أزرار راديو / رمز QR / باركود / عدة صور / اكتشف المزيد ضمن مجموعة إدراج...

🔍 تحديدات دقيقة: تحديد صفحات محددة / جداول / أشكال / فقرات عنوان / عزز التنقل بالمزيد من ميزات تحديد النطاق...

⭐ تحسينات مميزة: التنقل إلى أي نطاق / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند / 11 أداة تحويل...

🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 هل ترغب في تجربة هذه الميزات؟ قم بتنزيل Kutools لـ Word الآن! 🚀
 

✨ Kutools لـ Office – تثبيت واحد، خمس أدوات قوية!

يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint

📦 احصل على جميع الأدوات الخمسة في مجموعة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وفر وقتك وزد إنتاجيتك فوراً

أفضل أدوات زيادة الإنتاجية لمكتبك

Kutools لـ Word - 100+ أدوات لـ Word

تحميل مجاني اشترِ الآن تعرف أكثر حول Kutools