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