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

Question

我有一个三个worddokuments。第一个具有以下结构：

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

我的问题是，我不知道如何将打开文档的文本放在超链接所在的位置并删除此超链接。为了进一步的目的，文档 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