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的VBA宏代码很简单就能实现的，请客的话，帮你编个宏命令就行了。追问

这个大师能否帮忙编一个宏啊？谢谢！

追答

如果你的文档中的待插入超链接的标签是类似0001,0012等这样的内容，首先得保证这些标签必须是唯一，如果不是唯一的，则必须将重复的或者会被误判为目标标签的这些内容删除掉
其次，你的文件夹中的源文档必须按照文档中的标签顺序一一对应排列好，这有满足这个两个条件下，方能实现自动化。

将Word宏代码编辑器的内容全部清空，将白渡知道达人(也就是我)提供的代码原样复制粘贴入代码窗口中，然后修改你的源文件所在的目录，以及待查找链接标签的通配符表达式，表达式不会编制的会，请我客，再告诉你，最后按F5运行即可。
有关文件批量处理的需求，也可以参考我开发的 文件批量处理百宝箱V8.0中的相关功能。

我试了一下，没找到方法，用excel自动填充也好，用查找替换功能也好，都无法实现。输入file:\\\f:\1\1.doc倒是可以自动转换成超链接，但是输入完成必须回车才能转换为超链接，即使批量录入了也还得挨个敲一次回车，省不了多少事。追问

谢谢，但是这样的话还是很麻烦，不知道还有哪位高手有好办法？？

追答

在word中输入“0001”，设置好0001的超链接，点文件、另存为，保存成网页html文件，用记事本打开这个html文件，找到0001那一行，以我这里为例，内容为【0001
】（不含方括号），复制到excel里面，这时候用填充柄不起作用，先要把这一行断开，.doc前面的部分放在A1单元格，.doc及其后面的部分放在B1单元格，这时候用填充柄就起作用了，使劲往下拖吧，直到你觉得够用了为止，比如你需要100个，你就把第一到一百行复制到word里面，这时候是个表格，选中表格，点菜单项：表格、转换、表格转换为文档，文字分隔符选择逗号，得到的文本中间有多余的逗号和一个空格，通过替换功能把逗号和那个空格替换掉，得到的文本就是我们需要的了。现在把这些文本复制回刚刚打开的那个记事本里边，保存关闭，用IE打开，页面上就是0001、0002、……，把他们复制到你的word文档里就行了。

追问

如果这个0001,0002等不适有顺序的，是0001,0012,0058,0124，就是说这些数字是没有规律的，那该怎么弄呢？？

追答

那没法用填充柄了，不过这个办法还是能省一点时间的。

请参照百度经验http://jingyan.baidu.com/article/5225f26b0b515fe6fa0908df.html本回答被网友采纳