word中批量加入超链接。

发布网友 发布时间：2022-04-23 20:02

我来回答

共6个回答

好二三四 时间：2022-06-14 03:25

使用Word有时需要设置超链接，那么Word怎么设置超链接呢？一起来看看吧。

打开需要设置超链接的Word文档，为了方便观看，我们把文档窗口最大化；

方法一

进入Word文档主页面后，点击需要插入超链接的地方，在菜单栏中选择【插入】，点击下方的【链接】，在弹出的页面中，选择想要插入的地址，再点击【确认】即超链接已设置完成了；

方法二

在需要插入超链接的地方点击鼠标右键，在弹出的页面中，选择【链接】，在弹出的页面中，选择想要插入的地址，选择【确认】即可看到我们的超链接已经设置完成啦。

热心网友 时间：2022-06-14 00:33

方法1：通过word书签制作超链接。
方法2：直接拖动选定文本。
方法3：通过菜单中"粘贴为超链接"
大学生毕业论文，洋洋洒洒几万字，指导老师审阅量很大，为减轻教授负担，同时又要让教授更快速地了解你的论文思想大意，希望你会用这种方法。
1、
通过word书签制作超链接。
step1:制作书签。在word文档选定指定的文本【它就是你将要链接到的对象】。
step2:从菜单“插入→书签”，来创建书签，
并把书签命名，命名后单击“添加”按钮。
step3:把光标移到需要添加超级链接的位置【它就是你链接的标题】，选择“插入→超级链接”，在“编辑超链接”对话框中单击“书
签”按钮，并在“在文档中选择位置”对话框中选择特定的书签，单击“确定”按钮即可。
2、直接拖动选定文本。
就是在word文档中直接拖动鼠标选定的文本或图片作为超级链接的目标，然后点击鼠标右键，把选定的目标拖到需要链接到的位置，放开右键，在弹出的菜单中选择“在此创建超级链接”选项就可以把链接目标定位。（本段就是把“直接拖动选定文本”右键
－拖动到“方法2”后）
如果觉得点击右键拖动不方便,
可以先把整个word文档缩小到能够看到目标位置。
3、通过菜单中"粘贴为超链接"
。
上面的拖放法创建超链接的确方便，但是我们知道拖动是一种很不方便的操作,
如果和目标距离太远,
操作起来就太困难了。
这里还可以使用"粘贴为超链接"的方法.
首先选择超级链接的目标，按下ctrl+c复制选定内容，把光标移动到需要加入链接的位置，然后执行菜单“编辑→粘贴为超链接”。

热心网友 时间：2022-06-14 01:51

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达人提供。

热心网友 时间：2022-06-14 03:26

要找大师级别的人才能帮得到你的忙。如果你的链接源和文档的标签是唯一一一对应的，用Word的VBA宏代码很简单就能实现的，请客的话，帮你编个宏命令就行了。追问这个大师能否帮忙编一个宏啊？谢谢！

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

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

热心网友 时间：2022-06-14 05:17

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

热心网友 时间：2022-06-14 07:25

请参照百度经验http://jingyan.baidu.com/article/5225f26b0b515fe6fa0908df.html