一、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 Settingsmkw桌面源文档" '指定源文档所在的目录，可自行修改
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选项操作框；
操作框的左侧，点下“高级”
右边显示相关内容；拉动滚动条，在“显示文档内容”这里，找到“显示域代码而非域值”，然后，打上对勾。
然后，点击确定。
操作框自动关闭。文档上，已显示出如下图所示的内容。
在“开始”选项卡，右侧这里，点“查找”，再点“高级查找”
弹出操作框，在框内的“查找内容”这里，输入："https*"
要在英文状态下输入
再勾选“使用通配符”
然后，点“主文档”
8
文档中的链接即被选中。
然后，CTRL+C，复制，再粘贴到自己预定的位置。
三、如何批量打开word文档里面的链接
常规操作是不可能的！用宏可以吗？
打开你这个文档。
按下alt+F11
菜单，插入，模块
将下面的代码复制进去
'-------------------------------------------------------------------------------
Option Explicit
Sub 超链接()
Dim hlkTemp As Hyperlink
For Each hlkTemp In ActiveDocument.Hyperlinks
hlkTemp.Follow NewWindow:=False, AddHistory:=True
Next
End Sub
'-------------------------------------------------------------------------------------
然后菜单，工具，宏，安全性，设置为“中”。
存盘。退出这个文件，重新打开这个文件，打开时选择启用宏。
打开后。按下alt+F8
然后新窗口中你会看到有一个“超链接”的宏，执行，即可。
