如何从word和excel中批量提取超链接
发布网友
发布时间：2022-04-23 10:20
共3个回答
热心网友
时间：2023-07-05 14:30
word和excel批量提取超链接的具体步骤是：工具>宏>宏>创建（excel为Visual Basic编辑器），打开编辑器，将如下代码插入模块：
word文档插入代码：
Sub 超级链接()
For Each aHyperlink In ActiveDocument.Hyperlinks
With Selection
.InsertAfter aHyperlink.Name
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
End With
Next aHyperlink
End Sub
excel文档插入代码：
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0‚ 1).Value = HL.Address
Next
End Sub
将代码插入后，点运行即可。word文档会将超链接的URL显示在光标所在处，excel会将URL显示在含超链接的单元格的右侧单元格内。
热心网友
时间：2023-07-05 14:30
如何从
Word
和
Excel
中批量提取、删除超链接
一、提取超链接
Word
批量提取超链接的具体步骤：
1
、
Word
菜单栏——工具——宏——
Visual Basic
编辑器
（或按
Alt+F11
调出
Visual
Basic
编辑器）
。
2
、
Visual Basic
编辑器菜单栏——插入——模块，复制粘贴以下代码插入：
Sub
提取
Word
超链接
()
For Each aHyperlink In ActiveDocument.Hyperlinks
With Selection
.InsertAfter aHyperlink.Name
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
End With
Next aHyperlink
End Sub
3
、
Visual Basic
编辑器菜单栏——运行——运行子过程
/
用户窗体。
此时，
Word
文档中光标所在的位置则会将提取出超链接的地址，复制即可。
Excel
批量提取超链接的具体步骤：
1
、
excel
菜单栏——工具——宏——
Visual Basic
编辑器
（或按
Alt+F11
调出
Visual
Basic
编辑器）
。
2
、
Visual Basic
编辑器菜单栏——插入——模块，复制粘贴以下代码插入：
Sub
提取
Excel
超链接
()
Dim
HL
As
Hyperlink
For
Each
HL
In
ActiveSheet.Hyperlinks
HL.Range.Offset(0,
1).Value
=
HL.Address
Next
End Sub
3
、
Visual Basic
编辑器菜单栏——运行——运行子过程
/
用户窗体。
此时，
Excel
表格内含有超链接的单元格右边的单元格则会出现超链接的地址，
复制即可。
二、删除超链接
Word
批量删除超链接的具体步骤：
1
、
Word
菜单栏——工具——宏——
Visual Basic
编辑器
（或按
Alt+F11
调出
Visual
Basic
编辑器）
。
2
、
Visual Basic
编辑器菜单栏——插入——模块，复制粘贴以下代码插入：
Sub
批量删除
Word
超链接
()
Dim i%
Application.ScreenUpdating
=
False
With
ThisDocument.Hyperlinks
For
i
=
.Count
To
1
Step
-1
.Item(i).Delete
Next
End With
Application.ScreenUpdating
=
True
End
Sub
3
、
Visual Basic
编辑器菜单栏——运行——运行子过程
/
用户窗体。
此时，
Word
文档中所有的超链接都已被清除。
Excel
批量删除超链接的具体步骤：
1
、
excel
菜单栏——工具——宏——
Visual Basic
编辑器
（或按
Alt+F11
调出
Visual
Basic
编辑器）
。
2
、
Visual Basic
编辑器菜单栏——插入——模块，复制粘贴以下代码粘贴插入：
Sub
批量删除
Excel
超链接
()
Cells.Hyperlinks.Delete
End
Sub
3
、
Visual Basic
编辑器菜单栏——运行——运行子过程
/
用户窗体。
此时，
Excel
表格内所有的超链接都已被清除。
PS
：
Excel
中，用以下代码也可以达到相同的删除效果。
Sub
批量删除
Excel
超链接
()
‘Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End
Sub
热心网友
时间：2023-07-05 14:30
正则表达式即可。
