vba - Word 宏将文本转换为超链接

Question

我的 word 文档的尾注部分有大约 400 个链接。但是，链接只是常规文本，并没有超链接到 URL。

这是我的尾注中的引文示例：

Odgerel Tseveen、Ganbold Battsetseg 和 Badmaarag Shagdarsuren。蒙古法律制度和法律：简要概述。纽约大学豪瑟全球法学院项目。2009 年 5 月。http://www.nyulawglobal.org/globalex/Mongolia1.htm

如果我将光标放在链接的末尾并按空格键，则链接将变为活动状态。

我想通过创建一个可以识别链接的宏来自动化该过程，而无需在每个链接之后创建一个空格。

有人有想法么？

Answer 1

Sub EndsToHLink()
    Dim eNote As Endnote
    Dim iFound As Integer
    Dim rLink As Range
    Dim iDot As Integer

    Application.ScreenUpdating = False
    For Each eNote In ActiveDocument.Endnotes
        'eNote.Range.Text = eNote.Range.Text & " "
        iFound = InStr(eNote.Range.Text, "http")
        iDot = 0
        If iFound > 0 Then
            If Right(eNote.Range.Text, 1) = "." Then iDot = 1
            Set rLink = eNote.Range
            rLink.SetRange Start:=eNote.Range.Start + iFound - 1, End:=eNote.Range.End - iDot
            rLink.Hyperlinks.Add rLink, rLink.Text
        End If

    Next eNote
    Application.ScreenUpdating = True
End Sub

您需要先对其进行测试！

Answer 2

添加空格并不能真正以编程方式工作。以下将尾注转换为超链接。

Sub EndsToHLink()
    Dim eNote As Endnote

    Application.ScreenUpdating = False
    For Each eNote In ActiveDocument.Endnotes
        'eNote.Range.Text = eNote.Range.Text & " "
        eNote.Range.Hyperlinks.Add eNote.Range, "http://" & eNote.Range.Text
    Next eNote
    Application.ScreenUpdating = True
End Sub