如何使用蓝色棱镜在Word中创建超链接文本？

Question

我需要使用蓝色棱镜将文本更改为MS Word中的超链接文本。我得到它使用下面的代码，但它创建了错误的完整路径C:\Users\me199ur\Desktop\testfolder\www.test.com

我只需要www.test.com

如果没有Anchor或者没有对象Anchor（例如String），它会抛出错误https://docs.microsoft.com/en-us/office/vba/api/word.hyperlinks.add

Dim document As Object = GetDocument(handle,document_name)

Dim range As Object = document.Range
Dim i As Integer 

range.Find.Forward = True

Do While range.Find.Execute(current_text)

    If True Then
        range.Text = new_text
        range.Bold = new_bold
        range.Hyperlinks.Add (range, "www.test.com")
    End If
    i = range.End
    range.Start = i
Loop

Answer 1

当您需要超链接网站时，像http://一样将http://www.test.com添加到您的超链接。如果没有http://或协议，任何文本都会被视为文档中的锚点或书签。