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运行，就可以得到你想要的结果了。

来自：同行网http://www.txw100.com

转载于:https://www.cnblogs.com/wj-wangjun/archive/2012/11/15/2772204.html