免费下载

批量删除Word中的超链接,3种高效方法分享!

Word文档中带有很多不想要的超链接,一个个取消太低效,尤其是当我们有多个word文档都需要全部取消超链接时,手动处理费时费力,今天本文就给大家分享三种高效删除word文档中的超链接方法,不管时单个文件还是同时又大量的文件都可以一键搞定,总有一款方法适合你,赶紧来试试吧!

批量删除多个Word中的超链接效果预览

处理前,这些蓝色的字样都是带有超链接的文字。

批量删除多个Word中的超链接处理前

处理后,所有超链接就已经全部删除了。

批量删除多个Word中的超链接处理后

方法一:单个文件,直接用自带的查找替换功能

优势:

单个文件操作简单快捷,不用下载其他工具。

不足:

不适合处理多个文件,会清除所有“域”代码

操作步骤:

按住Ctrl+A键,全选整个文档,然后再按住 Ctrl+Shift+F9键,就可以一键删除word中的所有超链接。

方法二:借助【鹰迅批量处理工具】,批量删除多个Word超链接

优势:

大量word批量删除超链接速度非常快,操作简单。

软件功能齐全,以后遇到其他的文档处理需求都可以使用。

不足:

需要下载第三方工具。

操作步骤:

1、打开「鹰迅批量处理工具箱」,左侧选择「Word工具」,右侧在文件内容分类中选择取消 Word 中的链接」的功能。

批量删除多个Word中的超链接功能选择

2、上传需要删除超链接的多个word文档。

批量删除多个Word中的超链接文件选择

3、批量删除多个 word 中的超链接处理完成。

批量删除多个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

正文到此结束