Word文档中带有很多不想要的超链接，一个个取消太低效，尤其是当我们有多个word文档都需要全部取消超链接时，手动处理费时费力，今天本文就给大家分享三种高效删除word文档中的超链接方法，不管时单个文件还是同时又大量的文件都可以一键搞定，总有一款方法适合你，赶紧来试试吧！
批量删除多个Word中的超链接效果预览
处理前，这些蓝色的字样都是带有超链接的文字。
处理后，所有超链接就已经全部删除了。
方法一：单个文件，直接用自带的查找替换功能
优势：
单个文件操作简单快捷，不用下载其他工具。
不足：
不适合处理多个文件，会清除所有“域”代码
操作步骤：
按住Ctrl+A键，全选整个文档，然后再按住 Ctrl+Shift+F9键，就可以一键删除word中的所有超链接。
方法二：借助【鹰迅批量处理工具】，批量删除多个Word超链接
优势：
大量word批量删除超链接速度非常快，操作简单。
软件功能齐全，以后遇到其他的文档处理需求都可以使用。
不足：
需要下载第三方工具。
操作步骤：
1、打开「鹰迅批量处理工具箱」，左侧选择「Word工具」，右侧在文件内容分类中选择「取消 Word 中的链接」的功能。
2、上传需要删除超链接的多个word文档。
3、批量删除多个 word 中的超链接处理完成。
方法三：借助VBA方案
优势：
不用下载工具，直接在word中就可以操作。
不足：
有一定专业门槛，处理速度较慢。
操作步骤：
在Word里按Alt+F11打开VBA编辑器，粘贴以下代码：
<VBA>
Sub BatchRemoveHyperlinks()
Dim folderPath As String
Dim fileName As String
Dim doc As Document
Dim hlink As Hyperlink
' 选择文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择包含Word文档的文件夹"
If .Show = -1 Then
folderPath = .SelectedItems(1) & "\"
Else
Exit Sub
End If
End With
fileName = Dir(folderPath & "*.docx")
Application.ScreenUpdating = False
Do While fileName <> ""
Set doc = Documents.Open(folderPath & fileName)
' 删除所有超链接（倒序删除）
For i = doc.Hyperlinks.Count To 1 Step -1
doc.Hyperlinks(i).Delete
Next i
doc.Save
doc.Close
Debug.Print "已处理: " & fileName
fileName = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "批量处理完成！", vbInformation
End Sub
