Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để chọn và sao chép tất cả các siêu liên kết từ tài liệu Word?

Trong một số trường hợp, bạn có một tài liệu dài với nhiều siêu liên kết tồn tại và bạn chỉ cần sao chép tất cả các siêu liên kết cùng một lúc từ tài liệu này rồi dán chúng vào một tài liệu khác. Có cách nào có thể nhanh chóng sao chép tất cả chúng cùng một lúc thay vì sao chép từng cái một không?

Sao chép tất cả các siêu liên kết với VBA

Trích xuất tất cả các địa chỉ siêu liên kết bằng VBA

Sao chép tất cả các siêu liên kết hoặc chỉ địa chỉ vào khay nhớ tạm với Kutools cho Wordý kiến ​​hay3


mũi tên màu xanh bong bóng bên phải Sao chép tất cả các siêu liên kết với VBA

1. Mở tài liệu Word mà bạn muốn sao chép các siêu liên kết và nhấn Alt + F11 để mở Cửa sổ ứng dụng dựa trên trực quan của Microsoft.

2. nhấp chuột Chèn > Mô-đunvà sao chép VBA sau vào Window.

VBA: Sao chép tất cả các siêu liên kết

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. Nhấp vào chạy để chạy mã VBA. Sau đó, tất cả các siêu liên kết được sao chép sang một tài liệu mới. Bạn có thể lưu tài liệu mới sau. Bạn có thể xem kết quả như sau.

Lưu ý: VBA này chỉ có thể chạy khi tất cả các siêu liên kết được liên kết với word, nếu có hình ảnh với siêu liên kết, mã VBA này không thể hoạt động.


mũi tên màu xanh bong bóng bên phải Trích xuất tất cả các địa chỉ siêu liên kết với VBA

1. Mở tài liệu Word mà bạn muốn trích xuất các siêu liên kết và nhấn Alt + F11 để mở Cửa sổ ứng dụng dựa trên trực quan của Microsoft.

2. nhấp chuột Chèn > Mô-đunvà sao chép VBA sau vào Window.

VBA: Trích xuất tất cả các địa chỉ siêu liên kết

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. Nhấp vào chạy để chạy mã VBA. Sau đó, tất cả các địa chỉ siêu liên kết được trích xuất trong một tài liệu mới, bạn có thể lưu nó sau.

Lưu ý: Địa chỉ siêu liên kết trích xuất không theo thứ tự ban đầu.


mũi tên màu xanh bong bóng bên phải Sao chép tất cả các siêu liên kết hoặc chỉ địa chỉ vào khay nhớ tạm với Kutools cho Word

Nếu bạn muốn sao chép tất cả các siêu liên kết hoặc chỉ địa chỉ vào khay nhớ tạm từ tài liệu Word một cách dễ dàng và nhanh chóng, Sao chép siêu liên kết tiện ích của Kutools cho Word có thể làm cho bạn ưu ái này.

Kutools cho Word, với hơn 100 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

Sau khi cài đặt Kutools cho Word, vui lòng làm như dưới đây:(Tải xuống miễn phí Kutools cho Word ngay!)

1. nhấp chuột Kutools Plus > Sao chép siêu liên kết.
doc sao chép siêu liên kết 1

2. Trong hộp thoại bật lên, hãy chọn một tùy chọn khi bạn cần.
doc sao chép siêu liên kết 2

Bây giờ, chọn một vị trí bạn muốn đặt các siêu liên kết, nhấn Ctrl + V để dán chúng.

Sao chép và dán siêu liên kết
doc sao chép siêu liên kết 3
Sao chép và dán địa chỉ siêu kết nối
doc sao chép siêu liên kết 4

Duyệt theo tab & chỉnh sửa nhiều tài liệu Word / sổ làm việc Excel dưới dạng Firefox, Chrome, Internet Explore 10!

Có thể bạn đã quen với việc xem nhiều trang web trong Firefox / Chrome / IE và chuyển đổi giữa chúng bằng cách nhấp vào các tab tương ứng một cách dễ dàng. Ở đây, Tab Office hỗ trợ xử lý tương tự, cho phép bạn duyệt nhiều tài liệu Word hoặc sổ làm việc Excel trong một cửa sổ Word hoặc cửa sổ Excel và dễ dàng chuyển đổi giữa chúng bằng cách nhấp vào tab của chúng.
Nhấp để dùng thử Office Tab miễn phí!

Duyệt nhiều tài liệu từ trong một cửa sổ dưới dạng Firefox

Các bài báo tương đối:


Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Say something here...
symbols left.
You are guest
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.
    Gon · 5 months ago
    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!!!

  • To post as a guest, your comment is unpublished.
    Fabian · 3 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 · 4 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 · 4 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 5 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 5 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. · 5 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 · 4 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 · 5 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 · 5 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 6 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 · 6 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 · 7 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 7 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)