Note: The other languages of the website are Google-translated. Back to English

كيفية تحديد ونسخ جميع الارتباطات التشعبية من مستند 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 بسهولة وسرعة ، فإن ملف نسخ الارتباط التشعبي فائدة كوتولس للكلمة يمكن أن تفعل لك هذه الخدمة.

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

بعد تثبيت 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

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


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (16)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا إلهي هذه أشياء أسطورية. مفيدة جدا. شكرًا جزيلاً! :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع انها عظيمة. شكرا جزيلا لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يطالب "خطأ في الترجمة: خطأ في بناء الجملة" الرجاء مساعدتي ، أحتاج إلى القيام بالكثير من العمل باستخدام هذا. قم بالرد في أسرع وقت ممكن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالفعل! بعد عام واحد ، أواجه مشكلات مماثلة وتصدمت تمامًا لمساعدتكم الرائعة !! ربنا يحميك!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك. فقط ما احتاجه لتحليل مستند.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ممتاز! لقد ساعدني ذلك في استخراج بعض الروابط من ملف html الذي فتحته باستخدام Word (كان Excel يتجاهل بعض الروابط). هذا هو الكود المعدل بحيث يمكن بناء ملف csv الذي يمكن استخدامه بشكل أكبر. [اقتباس] 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 (docNew.Range rng.InsertAfter ( oLink.TextToDisplay) rng.InsertAfter ("،") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub [/ quote]
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على هذا السيناريو لك. ساعدني هذا في استخراج روابط 5K. شكراً جزيلاً.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز يعمل بشكل جيد بالنسبة لي. الاثنان في الأمثلة في وصف المقالة لا. شكرا جزيلا مع أطيب تحياتي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه أشياء عظيمة! شكرا جزيلا. ما التغييرات التي يجب إجراؤها على GetAllHyperlinks () للحالة التالية؟ - يحتوي المستند الأصلي على نص عادي وروابط - النتيجة المطلوبة: نفس المستند ولكن كل رابط يتبعه مسافة وعنوان URL شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني الحصول على نفس البرنامج النصي ليتم تشغيله في Outlook؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ارتفاع الأسطوري ، بفضل مليون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انني مندهش. هذا ذهب. لقد وفرت لي الكثير من العمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك! كان هذا بالضبط ما كنت أبحث عنه!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع! Millón de gracias.Me لديه acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería Impresionante. كلمات بمعنى: على غرار صيغة منفصلة ، لوس وصلات ديل texto.Un saludo y un millón de gracias !!!

تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكننا تصدير الارتباطات التشعبية لملف Word وعرض النص إلى ملف Excel؟ 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
معلومات جيدة! لقد ساعدني في استخراج الروابط من ملف html فتحته في Word. الرجوع إلى ملف تعريف الارتباط هو فكرة جديدة.
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL