如何在word中批量插入word文本超链接

想把其他文件夹内的多个word文档，插入一个word中。

网上看了很多资料，都不对。求大神告知。
就是这种超链接。

其实 没有弄明白 你是要插入 超链接哪 还是 要插入 对象哪？

尝试 在 文件夹中 一次选中 要插入的的 文件 然后 在 word 文档中 选择性粘贴 链接 酌情考虑是否是以图标的形式显示……追问

要插入文件名，问题是不能把同一个文件内全部文件都建立超链接。

追答

按着我说的那个样子 不可以吗？以图标的形式 显示……

否则 你大概只能使用VBA来完成了……我想这样的操作不会是 经常性 的有规律的吧？！

追问

哎，还是不行。

追答

Sub 宏1()
'本宏 运行后 打开一个选择文件的窗口，你自己根据需要 选择路径和要做超链接的文件
'然后 点 打开 进行超链接的自动处理 放置在 word的当前光标之后 自动编号
Dim n
n = 1
Set dig = Application.FileDialog(msoFileDialogOpen)
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Add "所有文件", "*.*", 1
.InitialFileName = ThisDocument.Path
.InitialView = msoFileDialogViewDetails
.Title = "打开"
If .Show = 0 Then
Exit Sub
End If
End With
For Each f In dig.SelectedItems
Selection.TypeText Text:=n & "、"
Set fso = CreateObject("scripting.filesystemobject")
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
f, SubAddress:="", ScreenTip:="", _
TextToDisplay:=fso.GetbaseName(f)
Selection.TypeParagraph
n = n + 1
Next
End Sub

用这个 宏 来处理一下吧！具体 做宏的方法 是 点 工具 宏--创建 然后 将这个宏的代码 复制进去……然后 运行就可以了

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/psfs7s2qff7m88fp7s.html