انتقل إلى المحتوى الرئيسي

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

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

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

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

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


السهم الأزرق الحق فقاعة انسخ جميع الارتباطات التشعبية باستخدام VBA

1. افتح مستند Word الذي تريد نسخ الارتباطات التشعبية فيه ، واضغط على ALT + F11 لفتح نافذة تطبيق Microsoft Visual Based.

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 فقط عندما تكون جميع الارتباطات التشعبية مرتبطة بكلمة ، إذا كانت هناك صور بها ارتباطات تشعبية ، فلن يعمل رمز VBA هذا.


السهم الأزرق الحق فقاعة استخراج كافة عناوين الارتباطات التشعبية باستخدام VBA

1. افتح مستند Word الذي تريد استخراج الارتباطات التشعبية ، واضغط على ALT + F11 لفتح نافذة تطبيق Microsoft Visual Based.

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. انقر فوق يجري زر لتشغيل رمز فبا. ثم يتم استخراج جميع عناوين الارتباطات التشعبية في مستند جديد ، ويمكنك حفظها لاحقًا.

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


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

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

كوتولس للكلمة, مع أكثر من  وظائف يدوية ، تجعل مهامك أسهل. 

بعد تثبيت Kutools for Word ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Word الآن!)

1. انقر كوتولس بلس > نسخ الارتباط التشعبي.
ارتباطات تشعبية لنسخ المستند 1

2. في مربع الحوار المنبثق ، حدد خيارًا واحدًا حسب حاجتك.
ارتباطات تشعبية لنسخ المستند 2

الآن ، حدد موقعًا واحدًا تريد وضع الارتباطات التشعبية فيه ، اضغط على CTRL + V للصقها.

نسخ ولصق الارتباطات التشعبية
ارتباطات تشعبية لنسخ المستند 3
انسخ والصق عنوان الارتباط التشعبي
ارتباطات تشعبية لنسخ المستند 4

الاستعراض المبوب وتحرير العديد من مستندات Word / مصنفات Excel مثل Firefox و Chrome و Internet Explore 10!

قد تكون مألوفًا لعرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها عن طريق النقر فوق علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab المعالجة المماثلة ، والتي تسمح لك باستعراض مستندات Word متعددة أو مصنفات Excel في نافذة Word واحدة أو نافذة Excel ، والتبديل بينها بسهولة عن طريق النقر فوق علامات التبويب الخاصة بها.
انقر للحصول على نسخة تجريبية مجانية من Office Tab!

تصفح مستندات متعددة الكلمات في نافذة واحدة مثل Firefox

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

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

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

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

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

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

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una formula que separa los links del texto.Un saludo y un millón de gracias!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
This is great stuff! Many thanks. What changes do I need to make to GetAllHyperlinks() for the following case? -- original document contains both normal text and links -- result wanted: same document but each link is followed by a space and the URL Thanks
This comment was minimized by the moderator on the site
Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used. [quote]SubGetAllHyperlinks() ' Updateby20160504 ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> 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.InsertAfter (oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Next docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations