How to select and copy all hyperlinks from a Word document?
In some cases, you have a long document with multiple hyperlinks existing in, and you only need to copy all the hyperlinks at once from this document and then paste them to another one. Is there any way can quickly copy all of them at once instead of copying them one by one?
Extract all hyperlinks addresses with VBA
Copy all hyperlinks or only addresses to clipboard with Kutools for Word
Copy all hyperlinks with VBA
1. Open the Word document which you want to copy the hyperlinks, and press Alt + F11 to open the Microsoft Visual Based Application Window.
2. Click Insert > Module, and copy the following VBA into the Window.
VBA: Copy all hyperlinks
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. Click the Run button to run the VBA code. Then all the hyperlinks are copied to a new document. You can save the new document later. You can see the result as follows.
 |
 |
 |
Note: This VBA only can run when all the hyperlinks are linked with word, if there are pictures with hyperlinks, this VBA code cannot work.
Extract all hyperlinks addressesith VBA
1. Open the Word document which you want to extract the hyperlinks, and press Alt + F11 to open the Microsoft Visual Based Application Window.
2. Click Insert > Module, and copy the following VBA into the Window.
VBA: Extract all hyperlinks addresses
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. Click the Run button to run the VBA code. Then all the hyperlinks addresses are extracted in a new document, you can save it later.
|
|
 |
Note: The extract hyperlinks address are not in the original order.
Copy all hyperlinks or only addresses to clipboard with Kutools for Word
If you want to copy all hyperlinks or only addresses to clipboard from Word document easily and quickly, the Copy Hyperlink utility of Kutools for Word can do you this favor.
| Kutools for Word, with more than handy functions, makes your jobs easier. | ||
After installing Kutools for Word, please do as below:（Free Download Kutools for Word Now!)
1. Click Kutools Plus > Copy Hyperlink.
2. In the popping dialog, choose one option as you need.
Now, select one location you want to place the hyperlinks, press Ctrl + V to paste them.
| Copy and paste hyperlinks |
 |
| Copy and paste hyperlink address |
 |
Demo : Copy Hyperlink
Tabbed browsing & editing multiple Word documents/Excel workbooks as Firefox, Chrome, Internet Explore 10! |
|
You may be familiar to view multiple webpages in Firefox/Chrome/IE, and switch between them by clicking corresponding tabs easily. Here, Office Tab supports similar processing, which allow you to browse multiple Word documents or Excel workbooks in one Word window or Excel window, and easily switch between them by clicking their tabs. |
 |
Relative Articles:
- Insert, remove and list all hyperlinks of current document in Word
- Insert multiple hyperlinks to a document in Word
- Remove all hyperlinks in Word
Best Office Productivity Tools
Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!
🤖 Kutools AI Assistant: Transform your writing with AI - Generate Content / Rewrite Text / Summarize Documents / Inquire for Information based on Document, all within Word
📘 Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/HTML...) / Batch Convert to PDF / Export Pages as Images / Print Multiple Files at once...
✏ Contents Editing: Batch Find and Replace across Multiple Files / Resize All Pictures / Transpose Table Rows and Columns / Convert Table to Text...
🧹 Effortless Clean: Sweap away Extra Spaces / Section Breaks / All Headers / Text Boxes / Hyperlinks / For more removing tools, head to our Remove Group...
➕ Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Diagonal Line Table / Equation Caption / Image Caption / Table Caption / Multiple Pictures / Discover more in the Insert Group...
🔍 Precision Selections: Pinpoint specific pages / tables / shapes / heading paragraphs / Enhance navigation with more Select features...
⭐ Star Enhancements: Navigate swiftly to any location / auto-insert repetitive text / seamlessly toggle between document windows / 11 Conversion Tools...
