VBA ms word macro: преобразовать встроенную HTML-ссылку в обычный текст

Question

Я хочу добавить подпрограмму в мой макрос Word 2007, которая будет принимать текст и адрес для встроенной ссылки в документе и преобразовывать ее в тег href, который использует текст в качестве отображаемого текста и адресдля адреса HTML.

Таким образом, строка, которая отображается как «иди сюда, чтобы перейти в Google» с синим подчеркиванием, а при щелчке переходит на www.google.com, заменяется на:

<a target="_blank" href="http://www.google.com">go here to get to google</a>

Эта подпрограмма должна быть добавлена ​​к уже существующему макросу, который у меня уже есть, который выполняет какое-то незначительное форматирование, поэтому нет необходимости в заголовках и всяком другом.

Answer 1

При этом будут напечатаны теги HTML, указанные вами для всех ссылок в вашем документе.

Dim hlink As Hyperlink
Dim htmlLink As String

For Each hlink In ThisDocument.Hyperlinks
    With hlink
        htmlLink = "<a target=""_blank"" href=""" & .Address & """>" & _
            .TextToDisplay & "</a>"

        Debug.Print htmlLink
    End With
Next hlink

Конечно, вы захотите сделать с ними что-то более полезное, чем просто распечатать их в окне «Немедленно».

Кроме того, я предпочитаю использовать DuckDuckGo в моих примерах, потому что его политика конфиденциальности намного лучше, чем у Google ...