如何在 Word 文档中选中并复制所有超链接？
如果您的 Word 文档较长且包含多个超链接，需要一次性复制所有超链接，逐个手动选择确实非常耗时。幸运的是，有一些高效的方法可以帮助您批量提取并复制所有超链接，或仅复制其地址。本文将为您介绍几种实现这一目标的快捷方法。
使用 VBA 将所有超链接复制到新文档
通过 VBA，您可以轻松提取文档中的所有超链接，并将其复制到一个新文档中。
- 在打开包含超链接的 Word 文档后，按下 Alt + F11 即可打开 Microsoft Visual Basic for Applications 窗口。
- 单击“插入”>“模块”，然后将以下 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 - 点击“运行”按钮即可执行 VBA 代码。系统将新建一个包含原文档所有超链接的文档。
>>> 
注意：此 VBA 方法仅适用于文本型超链接，无法提取嵌入图片中的超链接。
使用 VBA 仅提取超链接地址（纯文本）到新文档
此 VBA 方法仅会从文档中提取超链接地址，并将其粘贴到新文档中。
- 打开 Word 文档后，按下 Alt + F11 即可打开 VBA 编辑器。
- 单击“插入”>“模块”，然后复制以下 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 - 点击“运行”按钮。系统将创建一个仅包含超链接地址（纯文本格式）的新文档。
>>> 
注意：提取的超链接地址顺序可能与原文档不一致。
使用 Kutools for Word 将拷贝超链接或地址复制到剪贴板
Kutools for Word 只需几次点击，即可轻松将所有超链接或其地址复制到剪贴板。
- 单击 KUTOOLS PLUS 中的拷贝超链接。
- 在拷贝所有超链接至剪贴板对话框中，选择您需要的选项。
- 按下 Ctrl + V 即可将已复制的超链接粘贴到任意位置。
- 选择“超链接”选项时，将同时复制显示文本和超链接。
- 如果您选择超链接地址选项，则只会将超链接地址以纯文本形式复制。
演示：复制 Word 文档中的所有超链接
通过本视频，全面了解 Kutools for Word 中的 Kutools / Kutools Plus Kutools Plus 选项卡。畅享 100 多项强大功能及永久免费 AI 工具。立即下载！
| Word 多文档/Excel 工作表支持标签式浏览与编辑，体验如同使用 Chrome、Edge 一样便捷！ |
就像在 Chrome、Safari 和 Edge 中浏览多个网页一样，Office Tab 让您能够在同一个 Word 或 Excel 窗口中同时打开和管理多个文档或工作簿。只需点击标签，即可轻松切换不同的文档或工作簿！ |
相关文章：
最佳办公效率工具
Kutools for Word——集成超过 100 项卓越功能，全面提升您的 Word 体验！
🤖KUTOOLS AI 功能：AI 助手/实时助手/超级润色（保留格式）/超级翻译（保留格式）/AI 遮挡/AI 校正……
📘 文档精通：分割页面/文档合并/批量选择导出为多种格式（PDF/TXT/DOC/HTML……）/批量转换为 PDF……
✏ 内容编辑：批量查找与替换跨多个文件/统一调整所有图片大小/调整翻转表格行列/表格转文本……
🧹 轻松清理：一键清除多余空格/分节符/文本框/超链接/ 想要更多清理工具，请前往移除分组……
➕ 创意插入：插入千位分隔符/复选框/选项按钮/二维码/条形码/多图插入/ 更多插入选项请查看插入分组……
🔍 精准选择：快速定位特定页面/表格/形状/标题段落/ 利用更多选择功能提升导航效率……
⭐ 明星增强功能：跳转到任意位置/自动插入重复文本/在多个文档 Windows 间切换/11 转换工具……
🌍 支持 40+ 种语言：无论您身处何地，Kutools 均支持英语、西班牙语、德语、法语、中文等 40 多种语言！
Office Tab- 为 Office 带来标签式界面，让您的工作更轻松高效
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中，轻松启用标签式编辑与阅读功能。
- 在同一窗口中打开和创建多个文档标签，而非在新窗口中分别打开。
- 让您的工作效率提升 50%，每天为您减少数百次鼠标点击！
✨ Kutools for Office —— 一次安装，畅享五大强力工具！
包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 一套打包 5 个工具 | 🔗 与 Microsoft Office 无缝集成 | ⚡ 保存时间，立即提升效率