- 精品下载 | 实用查询 | 词典查询 | 桌面壁纸 | 网址 | 笑话 | FLASH频道 | 天气文章资讯 | 站长工具 | 证件办理 | 闪字生成 | 广告代码 | 在线手册 | 有问必答
您现在的位置: 蓝派网 >> 文章中心 >> 电脑知识 >> 软件相关 >> 正文
站内文章搜索:           

一次删除Word和Excel中所有超链接的方法

作者:佚名    文章来源:网络    更新时间 :2007-11-10 22:00:06

删除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 及网络路径替换为超链接 前的对勾去掉。


发表评论】【打印此文】【关闭窗口】【点击数:
★好玩的休闲小游戏★
网友评论:
数据载入中,请稍后……