如何在Excel和word中批量添加和删除超级链接

超链接删除，但不删除其内容：1.全选。2.ctrl+shift+F9。

超链接删除：1.全选。2. alt+F9。3.编辑菜单，替换，高级，特殊字符，查找内容中选择域。替换中什么都不选。（其它域可能也被删除）

VBA的方法：
Sub HyperlinksDel()  
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  



或 者：
此代码仅去掉超链接域，而不会删除其它的域：
Sub UnFieldHyperlink()
Dim a As Field
For Each a In ActiveDocument.Fields
If a.Type = wdFieldHyperlink Then
a.Unlink
End If
Next
End Sub

批量添加：

在编辑word文档时，如果需要添加很多超链接，这时把一个一个超链接手动添加上去，会耗费你很多时间

和精力，下面我们就一起来学习一种 简便的方法，在word中批量添加超链接。

首先，把你需要添加超链接的一个地方加上你需要的超链接，然后把该word文档另存为html 文件，用文本

编辑器打开这个html文件，通过查找与替换的方法，将需要添加超级链接的地方批量替换后保存，再用ie

浏 览器打开保存后的html文件，把打开后的文章复制到word里即可。


如何在excel中批量添加超链接
方 法一：

如果你的内容在A列，那么B1如果公式:
=hyperlink(A1)
向下填充公式就行了

当 然,你的内容应该是"http://.....html"
如果不是,那么公式这么写:
=hyperlink("http://"&A1)


方 法二：

可以在Excel中添加一个宏来完成，代码如下
Sub 宏1()
Dim i As Integer
For i = 1 To 5
ActiveSheet.Range("C" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "Sheet1!C6"
Next
End Sub


方法三：

首先在第一张工作表(Sheet1)中做好目录!然后,再到第二张(Sheet2)中做好第一 张表格,最后依次类推做

好N张工作表中的表格。
再次，光称移到第一张工作表中的文字中或者任意位置（比果你要连接到第二张工作 表中），单击插入菜

单中的‘插入超级链接’的按钮，出现一个对话框，单击左边对话框的‘本文档中的位置’然后再选择右

边 窗口中的第二张工作表（如Sheet2），再按确定。
其次，光标移到第二张工作表中的文字或者任意位置（你现在的操作的第二张工作表超链接到第 一张，就

是目录处），打开插入菜单中的‘插入超级链接 ’，出现对话框后再单击左边方框中的‘本文档中的位

置’，再到右 边窗格中选择（单击）第一张工作表（如Sheet1），再次按确定。
好，这样就做成了在EXCEL表格中的相互的超链接。