一次删除Word和Excel中所有超链接的方法
删除Word中所有超链接的方法如下:打开Word的菜单 工具->宏->Visual Basic 编辑器,或直接按快捷键 Alt+F11,打开Visual Basic 编辑器,在Visual Basic 编辑器中选择菜单 插入->模块,之后会出现一个模块1的编写窗口,把以下代码粘贴进去。
Sub RemoveHyperlinks()
Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing
End Sub
之后关闭Visual Basic 编辑器回到Word中,选择word菜单 工具->宏->宏,打开宏对话框,你会发现多了一个名字叫RemoveHyperlinks的宏,选中这个宏,点一下“运行”按钮,Wrod文档中所有的超级链接就都删除掉了。
另外:这个宏我们可能只用一次,若此时保存退出后以后打开这个word文件时会有安全警告,所以如果以后不用了的话我们要把这个宏删除掉。删的方法也很简单,打开Visual Basic 编辑器(Word的菜单 工具->宏->Visual Basic 编辑器)在左边的工程管理器中找到我们刚建立的模块1,在模块1上按鼠标右键,选择移除模块1,就好了。
删除Excle工作表中的所有超链接的方法也差不多,也是打开Visual Basic 编辑器,粘贴一段代码,然后运行宏,只是这段代码不同而已。代码如下:
Sub RemoveHyperlinks()
‘Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub
下面的代码也可以删除Excle工作表中的所有超链接:
Sub ZapHyperlinks()
Cells.Hyperlinks.Delete
End Sub
另外,如果讨厌Word和Excel的这个功能,可以直接将其取消word和excel自动加超链接的功能,方法如下:
Wrod和Excel是一样的:菜单 工具->自动更正选项->键入时自动套用格式 选项卡->把 Internet 及网络路径替换为超链接 前的对勾去掉。
【相关文章:】
Word超级链接全攻略
Word表格的空白单元格批量写入字符
在Word 2007中巧妙去掉修改标记
高速从DataSet导出到Excel的方案
导出数据到excel的三种方法
SQL导入EXCEL 限65536条以内数据
如何恢复一个已破坏的Word文档
怎样将PPT文件转换为Word文档
用Excel实现按姓氏笔画的排序
为Excel数据文件设置只读和修改密码
【发表评论】【打印此文】【关闭窗口】【点击数: 】
