Question

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

Text
Hyperlink
Text
Hyperlink

我尝试完成以下marcro：打开文档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

<!--[if lt IE 9 ]>
     <script>
        $(document).ready(function(){
            $('a > button').click(function(){
                window.location.href = $(this).parent().attr('href');
            });
        });
    </script>
<![endif]-->

用链接文档

1 个答案: