word2007中批量添加超链接的方法

在word文档如何批量添加超链接。在发一篇长文章,里面有很多超链接要打,如果一个一个的加就会效率很低, 我们可以利用word的宏VBA来实现批量添加超链接。

当我们做好一个word文档的时候,我们可能希望给每次出现的某个词(如:同行网)都做上超链接,那么,我们在word文档中如何批量添加超链接呢?手动一个一个的添加是一种方法,但如果文档内容很长时(如几十页,几百页内容),这种方法明显很难执行,这种方法不是我们提倡的,我们需要更有效率的方法。

现在教大家用宏来实现word文档中批量添加超链接。

步骤如下:

1、打开需要编辑的word文档。

2、Alt+F11 打开宏编辑器。

3、在编辑器(按F7)中加入以下代码:

Sub AddHyperlink()
'
' AddHyperlink 宏
' 批量添加超链接
'
Selection.Find.ClearFormatting
Dim i
For i = 1 To 500
With Selection.Find
.Text = "同行网"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
ChangeFileOpenDirectory _
"C:\Documents and Settings\jason\My Documents\"
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"http://www.txw100.com", SubAddress:="", ScreenTip:="", TextToDisplay:= _
"同行网", Target:="_blank"
Next i
End Sub

说明:

1)将黄底文字“同行网”改成你要添加链接的词。

2)将红底文字C:\Documents and Settings\jason\My Documents\ 改成你打开的word文档所在的位置。

3)将蓝底文字http://www.txw100.com 换成你要添加的超链接。

4)按F5运行,就可以得到你想要的结果了。

posted @ 2012-11-15 20:32  wj-conquer  阅读(2022)  评论(0编辑  收藏  举报