نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

نسخ كافة الارتباطات التشعبية مع فبا

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

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


السهم الأزرق الفقاعة اليمنى نسخ كافة الارتباطات التشعبية مع فبا

1. افتح مستند ورد الذي تريد نسخ الارتباطات التشعبية، ثم اضغط ALT + F11 لفتح نافذة تطبيق ميكروسوفت مرئية.

2. انقر إدراج > وحدة، ونسخ فبا التالي في النافذة.

فبا: انسخ كل الارتباطات التشعبية

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

يمكن تشغيل هذا فبا فقط عند ربط كافة الارتباطات التشعبية مع كلمة، إذا كان هناك صور مع ارتباطات تشعبية، لا يمكن أن تعمل هذه التعليمات البرمجية فبا.


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

1. افتح مستند ورد الذي تريد استخراج الارتباطات التشعبية، ثم اضغط ALT + F11 لفتح نافذة تطبيق ميكروسوفت مرئية.

2. انقر إدراج > وحدة، ونسخ فبا التالي في النافذة.

فبا: استخراج كافة عناوين الارتباطات التشعبية

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 لـ Word

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

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

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

1. انقر كوتولس بلاس > نسخة الارتباط التشعبي.
doc copy hyperlinks 1

2. في مربع حوار popping ، اختر خيارًا واحدًا حسب احتياجك.
doc copy hyperlinks 2

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

نسخ ولصق الارتباطات التشعبية
doc copy hyperlinks 3
نسخ ولصق عنوان الارتباط التشعبي
doc copy hyperlinks 4

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

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

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

المواد النسبية:



أوصت كلمة أدوات الإنتاجية

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fabian · 1 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 3 years ago
    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
    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]
    • To post as a guest, your comment is unpublished.
      Pompeia · 2 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 3 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 3 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 3 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 4 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 5 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 5 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)