如何与单词中的选定范围建立链接?

时间:2012-10-19 03:35:32

标签: vba ms-word word-vba

我正在使用word2003文档在我的文档中处理我必须与两个字符串变量建立链接(不是在意义上脚注和尾注)

{Page 1} David Brinkley最佳引述[1]

{Page 6} [1]一个成功的人可以用其他人扔给他的砖块奠定坚实的基础

我想使用脚注/尾注来链接值[1],但在编辑脚注/尾注时会引起一些变化。有没有其他方法可以在所选字符串之间建立链接?

1 个答案:

答案 0 :(得分:0)

可能有很多方法可以执行此操作,但您可以在第6页上为文本添加书签,然后在第1页上添加指向书签的超链接。这可以在没有VBA代码的情况下完成:

  1. 第6页的选择书签文字。

  2. 插入/书签

  3. 为书签命名并添加

  4. 在第1页上选择书签的文字。

  5. 插入/超链接

  6. 单击书签按钮,然后在列表中选择书签

  7. VBA中的等价物:

    Option Explicit
    
    Sub AddHyperlinkToBookmark()
        Dim oBookmark As Bookmark
        Dim oHyperlink As Hyperlink
    
        '***** Add code to select text for bookmark
    
        Set oBookmark = ThisDocument.Bookmarks.Add("BookmarkName", Selection.Range)
    
        '***** Add code to select text for link
    
        Set oHyperlink = ThisDocument.Hyperlinks.Add(Selection.Range, "", "BookmarkName")
    
        Set oBookmark = Nothing
        Set oHyperlink = Nothing
    End Sub