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

Question

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

我只需要www.test.com

如果没有锚或非对象锚（例如字符串），它会引发错误 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

标签： vbams-wordblueprism

Answer 1

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