如何从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 标签。享受 100+ 项功能以及永久免费的 AI 工具。立即下载！
| 多文档/工作簿的标签式浏览与编辑，就像在 Chrome 和 Edge 中一样！ |
就像在 Chrome、Safari 和 Edge 中浏览多个网页一样，Office Tab 让您可以在一个 Word 窗口或 Excel 窗口中打开和管理多个 Word 文档或 Excel 工作簿。现在只需点击标签即可轻松在文档或工作簿之间切换！ |
相关文章：
最佳Office办公效率工具
Kutools for Word -通过超过100项强大功能全面提升您的Word体验！
🤖 Kutools AI功能：AI助手 / 实时助手 / 超级润色（保留格式）/ 超级翻译（保留格式）/ AI遮挡 / AI校正……
📘 文档大师：翻页 / 文档合并 /选区多格式导出（PDF/TXT/DOC/HTML等）/ 批量转换为PDF……
✏ 内容编辑：跨多个文件批量查找与替换 / 全部图片大小调整 / 翻转表格行和列 / 表格转文本……
🧹轻松清理：一扫而空多余空格 / 分节符 / 文本框 / 超链接 / 更多清除工具请前往清除所有功能组……
➕ 创意插入：插入千位分隔符 /复选框 /选项按钮 / 二维码 / 条形码 / 多张图片 / 更多请探索插入功能组……
🔍 精准选取：精准锁定指定页码 / 表格 / 形状 / 标题段落 /通过更多 选取 功能提升导航体验……
⭐ 明星增强：一键定位任何位置 / 自动插入重复文本 / 在文档窗口间快速切换 /11 项转换工具……
🌍 支持40+种语言：Kutools支持您的本地语言 — 英语、西班牙语、德语、法语、中文等40多种语言均适用！
