如何选择和复制Word文档中的所有超链接？
在某些情况下，您有一个包含多个超链接的长文档，您只需要一次从该文档中复制所有超链接，然后将它们粘贴到另一个文档中。 有什么方法可以快速地一次复制所有这些，而不是一个一个地复制吗？
使用VBA复制所有超链接
1.打开要复制超链接的Word文档，然后按 Alt + F11键 打开 Microsoft基于Visual的应用程序窗口.
2。 点击 插页 > 模块，然后将以下VBA复制到窗口中。
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
3。 点击 运行 按钮以运行VBA代码。 然后将所有超链接复制到新文档。 您可以稍后保存新文档。 您可以看到如下结果。
 |
 |
 |
请注意： 此 VBA 仅当所有超链接都与文本链接时才能运行，如果有带超链接的图片，则此 VBA 代码无法运行。
使用VBA提取所有超链接地址
1.打开要提取超链接的Word文档，然后按 Alt + F11键 打开 Microsoft基于Visual的应用程序窗口.
2。 点击 插页 > 模块，然后将以下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
3。 点击 运行 按钮以运行VBA代码。 然后，所有超链接地址都提取到一个新文档中，以后可以保存。
|
|
 |
请注意： 提取的超链接地址不是按原始顺序。
使用 Kutools for Word 将所有超链接或仅地址复制到剪贴板
如果您想轻松快速地将所有超链接或仅地址从Word文档复制到剪贴板，则 复制超链接 实用程序 Kutools for Word 可以帮你这个忙。
安装后 Kutools for Word，请执行以下操作：
1。 点击 Kutools 加 > 复制超链接.
2. 在弹出的“将所有超链接复制到剪贴板”对话框中，根据需要选择一个选项。
现在，选择一个要放置超链接的位置，按 按Ctrl + V 粘贴它们。
| 复制和粘贴超链接 |
 |
| 复制并粘贴超链接地址 |
 |
演示：复制 Word 文档中的所有超链接
通过 库工具 / Kutools 加 此视频中的标签来自 Kutools for Word. 享受 100 多种功能和永久免费的 AI 实用程序。 现在下载！
| 选项卡式浏览和编辑多个 Word 文档/Excel 工作簿，就像在 Chrome 和 Edge 中一样！ |
就像在 Chrome、Safari 和 Edge 中浏览多个网页一样，Office Tab 可让您在一个 Word 窗口或 Excel 窗口中打开和管理多个 Word 文档或 Excel 工作簿。现在只需单击其选项卡即可在文档或工作簿之间轻松切换！ |
相关文章：
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！
🤖 Kutools AI功能: 生成内容 / 重写文本 / 文档问答 / 快速获得答案 / 翻译文件 / 波兰文档（保留格式）...
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/HTML...） / 批量转换为PDF...
✏ 内容编辑: 跨多个文件批量查找和替换 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁：扫除 多余的空间 / 分节符 / 文本框 / 超链接 / 如需更多移除工具，请访问 删除 团体...
➕ 创意插入： 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 多张图片 / 了解更多 插页 团体...
🔍 精准选择：精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择 功能...
⭐ 星级增强: 导航到任何位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 转化 工具...
