用链接文档中的文本替换超链接

Question

我有一个三字文档。第一个具有以下结构：

Text
Hyperlink
Text
Hyperlink

我尝试完成以下宏：打开文档 1，遍历超链接。打开带有超链接的文档并将文本插入文档 1 中超链接所在的文档中。

我现在完成的是

Dim hLink As Hyperlink
Dim doc As Document
'Loop throu all hyperlinks
    For Each hLink In ThisDocument.Hyperlinks
        'Set objectref to document behind hyperlink
        Set doc = Documents.Open(hLink.Address)
        'AAAAnd Close it.
        doc.Close
    Next

我的问题是，我不知道如何将打开文档的文本放在超链接所在的位置并删除该超链接。对于进一步的 purprose，文档 1 必须是灵活的，以便用户可以插入超链接并且插入的功能仍然有效。

我想删除超链接并在同一位置放置一个书签，为书签命名，插入文本，然后删除书签，但我没有将超链接替换为书签。我找到了 hyperlink.Range.Bookmarks 属性但无法将其用于我的目的。谁能帮我完成这件事？

Answer 1

Dim i As Long

For i = ThisDocument.Hyperlinks.Count To 1 Step -1
  Dim link As Hyperlink, r As Range, addr As String

  Set link = ThisDocument.Hyperlinks(i)
  Set r = link.Range
  addr = link.Address

  link.Delete
  r.InsertFile addr
Next

用链接文档中的文本替换超链接

Replace hyperlink with text from linked document

vba

ms-word