超链接删除,但不删除其内容:1。全选。2。ctrl+shift+F9。
超链接删除:1。全选。 t+F9。3。编辑菜单,替换,高级,特殊字符,查找内容中选择域。替换中什么都不选。
(其它域可能也被删除)
VBA的方法:
Sub HyperlinksDel()
Dim i%
Application。 ScreenUpdating = False
With ThisDocument。
Hyperlinks
For i = 。Count To 1 Step -1
。Item(i)。Delete
Next
End With
Application。 ScreenUpdating = True
End Sub
或 者:
此代码仅去掉超链接域,而不会删除其它的域:
Sub UnFieldHyperlink()
Dim a As Field
For Each a In ActiveDocument。
Fields
If a。Type = wdFieldHyperlink Then
a。Unlink
End If
Next
End Sub
批量添加:
在编辑word文档时,如果需要添加很多超链接,这时把一个一个超链接手动添加上去,会耗费你很多时间
和精力,下面我们就一起来学习一种 简便的方法,在word中批量添加超链接。
首先,把你需要添加超链接的一个地方加上你需要的超链接,然后把该word文档另存为html 文件,用文本
编辑器打开这个html文件,通过查找与替换的方法,将需要添加超级链接的地方批量替换后保存,再用ie
浏 览器打开保存后的html文件,把打开后的文章复制到word里即可。
如何在excel中批量添加超链接
方 法一:
如果你的内容在A列,那么B1如果公式:
=hyperlink(A1)
向下填充公式就行了
当 然,你的内容应该是"http://。
。。。。html"
如果不是,那么公式这么写:
=hyperlink("http://"&A1)
方 法二:
可以在Excel中添加一个宏来完成,代码如下
Sub 宏1()
Dim i As Integer
For i = 1 To 5
ActiveSheet。
Range("C" & i)。Select
ActiveSheet。Hyperlinks。Add Anchor:=Selection, Address:="", SubAddress:= "Sheet1!C6"
Next
End Sub
方法三:
首先在第一张工作表(Sheet1)中做好目录!然后,再到第二张(Sheet2)中做好第一 张表格,最后依次类推做
好N张工作表中的表格。
再次,光称移到第一张工作表中的文字中或者任意位置(比果你要连接到第二张工作 表中),单击插入菜
单中的‘插入超级链接’的按钮,出现一个对话框,单击左边对话框的‘本文档中的位置’然后再选择右
边 窗口中的第二张工作表(如Sheet2),再按确定。
其次,光标移到第二张工作表中的文字或者任意位置(你现在的操作的第二张工作表超链接到第 一张,就
是目录处),打开插入菜单中的‘插入超级链接 ’,出现对话框后再单击左边方框中的‘本文档中的位
置’,再到右 边窗格中选择(单击)第一张工作表(如Sheet1),再次按确定。
好,这样就做成了在EXCEL表格中的相互的超链接。 。