Как создать текст гиперссылки в Word с синей призмой? - PullRequest
Новая
       31

Как создать текст гиперссылки в Word с синей призмой?

0 голосов
/ 25 апреля 2019

Мне нужно изменить текст на текст гиперссылки в 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

1 Ответ

2 голосов
/ 26 апреля 2019

Добавьте http:// к вашей гиперссылке, как в http://www.test.com, когда вам нужно сделать гиперссылку на веб-сайт.Без http:// или протокола любой текст рассматривается как якорь или закладка в вашем документе.

...