word中如何批量加入超链接？

Public Declare Function GetShortPathName Lib "kernel32" Alias _

"GetShortPathNameA" (ByVal lpszLongPath As String, _

ByVal lpszShortPath As String, ByVal cchBuffer As _

Long) As Long

Public Function ShortPath(ByVal Path As String) As String

Dim Tmp As String

Dim L As Long

Tmp = String(256, 0)

L = GetShortPathName(Path, Tmp, Len(Tmp))

ShortPath = Replace(Left(Tmp, L), Chr(0), "")

End Function

Sub BatHyper()

Selection.HomeKey Unit:=wdStory '光标移到文档首

MyStart = -1

MyHyperDir = "C:\Documents and Settings\mkw\桌面\源文档\" '指定源文档所在的目录，可自行修改

If Dir(MyHyperDir, vbDirectory) = "" Then '判断源目录是否存在

MsgBox "你指定的源文件目录不存在，请修正后重试。", vbCritical, "消息"

Exit Sub

End If

Shell "cmd.exe /c dir /b " + ShortPath(MyHyperDir) + "*.doc >" + ShortPath(MyHyperDir) + "SHyper.txt" '获取该目录下doc类型的文件名，如果是docx类型，则自行修改即可

Do Until FileLen(MyHyperDir + "SHyper.txt") >2 '等待提取文件名结束

DoEvents

Loop

Open MyHyperDir + "SHyper.txt" For Input As #11

Do Until EOF(11)

Line Input #11, MyHyperAdd

If Selection.Start = MyStart Then Exit Do

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[0-9]{4}" '查找待插入超链接的标签通配符表达式，可自行修改

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

On Error Resume Next

If Selection.Range.Hyperlinks(1).Target <>"" Then DoEvents

If Err.Number = 0 Then Exit Do '文档中的目标标签已设置完毕，提前结束 *** 作

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _

MyHyperDir + MyHyperAdd, SubAddress:="", _

ScreenTip:="", TextToDisplay:="" '插入超链接关键代码

MyStart = Selection.Start

Selection.Find.Execute

Selection.MoveLeft , 1 '查找下一个标签的关键代码

Loop

Close (11)

MsgBox "处理完毕！"

End Sub

'本宏代码由mkw007达人提供。

在编辑word文档时，如果需要添加很多超链接，这时把一个一个超链接手动添加上去，会耗费你很多时间

和精力，下面我们就一起来学习一种

简便的方法，在word中批量添加超链接。

首先，把你需要添加超链接的一个地方加上你需要的超链接，然后把该word文档另存为html

文件，用文本

编辑器打开这个html文件，通过查找与替换的方法，将需要添加超级链接的地方批量替换后保存，再用ie

浏

览器打开保存后的html文件，把打开后的文章复制到word里即可。

---