【发布时间】:2019-04-26 17:29:07
【问题描述】:
我需要使用蓝色棱镜将文本更改为 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
【问题讨论】:
-
将
http://添加到您的超链接中,如http://www.test.com。 -
使用 "http://" 它已经在工作了。天哪,我不能相信这是导致问题的原因。谢谢!
-
@Arul 考虑添加您的评论作为答案,以便它可以帮助其他人解决同样的问题。