使用宏进行提取或删除Word和Excel中的超链接。

如何从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 http://

.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和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批量删除超链接的具体步骤：

（或按Alt+F11调出Visual 1、excel菜单栏——工具——宏——Visual Basic编辑器

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