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

Question

我需要将文本更改为带有蓝色棱镜的MS Word中的超链接文本。我让它使用下面的代码，但它创建了错误的完整路径C:Usersme199urDesktoptestfolderwww.test.com

我只需要www.test.com

如果没有锚点

或非对象锚点(例如字符串(，它会抛出错误https://learn.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://www.test.com将http://添加到您的超链接中。如果没有http://或协议，任何文本都被视为文档中的锚点或书签。