批量删除word中的超链接（留着用）

2010-10-12  黄昕 
非本人原创

在已粘贴网页内容的word文档里按Alt F11，粘贴如下代码：

Sub 取消链接()

For a = 1 To ThisDocument.Hyperlinks.Count

ThisDocument.Hyperlinks(1).Delete
Next
End Sub

粘贴后按F5运行。然后删除这个宏回到word你会发现所有超链接都消失了。

165°/1642 人阅读/1 条评论 发表评论

胡军红  2010-10-13

经试验可行，

请 登录 后发表评论
黄昕
访客 2782
黄昕 的其他博文 更多