Word和Excel中批量删除超链接的两种方法

Excel中某列单元格均含有超链接，用手工删除超链接的方法必须一个个进行：右击该列中任何一个含有超链接的单元格，选择“取消超链接”(图1)。由于数量巨大，因此只能考虑采用批量删除法。 .

一、宏代码去除法

打开该Excel文件，切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：RemoveHyperlinks，点击“确定”退出;

再点击“宏”→“查看宏”，选择“宏名”下的“RemoveHyperlinks”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码(图3)，然后保存关闭VBA编辑器： .

Sub RemoveHyperlinks()
‘Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub

再点击“宏”→“查看宏”，选择“宏名”下的“RemoveHyperlinks”并点击“执行”即可去除该工作表的链接。

用以下代码也可以达到相同的目的： .

Sub ZapHyperlinks()
Cells.Hyperlinks.Delete
End Sub 。

删除Word中所有超链接的方法：打开Word的菜单工具->宏->Visual Basic 编辑器，或直接按快捷键 Alt+F11，打开Visual Basic 编辑器，在Visual Basic 编辑器中选择菜单插入->模块，之后会出现一个模块1的编写窗口，把以下代码粘贴进去。

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

之后关闭Visual Basic 编辑器回到Word中，选择word菜单工具->宏->宏，打开宏对话框，你会发现多了一个名字叫HyperlinksDel的宏，选中这个宏，点一下“运行”按钮，Wrod 文档中所有的超级链接就都删除掉了。

二、选择性粘贴法

右击含有超链接的列并选择“复制”，接着在该列(左)右边插入一空白列，然后右击该空白列，选择“选择性粘贴”.
在随后出现的“选择性粘贴”窗口中，点选“数值”选项(细心的人会发现，当选择“数值”等选项时，“粘贴链接”按钮就变成灰色不可用状态，自然也就不会进行超链接的粘贴)，最后保留该列，再删除原先含有超链接的列即可。