Ссылки в Word 2010 - макрос

[Bocul]

Добрый вечер,
помогите с макросом на Word 2010, задача выдернуть из гиперссылки текст и url страницы и преобразовать в html код...

Пример: ссылка
Сделать: <a href="http://www.programmersforum.ru/">ссылка</a>

есть, только макрос который заменяет гиперссылку на исходный URL

PHP код:

Sub changeHLink()
Dim oHpl As Hyperlink
For Each oHpl In ActiveDocument.Hyperlinks
oHpl.TextToDisplay = oHpl.Address
Next
End Sub 


[shanemac51]

МАКЕТ МАКРОСА---ВОЗМОЖНО НУЖНЫ УТОЧНЕНИЯ
----------

Sub changeHLink_131219()
'''
'''ПРОБУЙТЕ НА ДУБЛЕ
'''
Dim oHpl As Hyperlink, J1, S1, S2, S3
J1 = ActiveDocument.Hyperlinks.Count + 1
Do While J1 > 1
J1 = J1 - 1
Set oHpl = ActiveDocument.Hyperlinks(J1)
'oHpl.TextToDisplay = oHpl.Address

S2 = oHpl.TextToDisplay

S1 = oHpl.Address
S1 = S1 & oHpl.SubAddress
oHpl.Range.Select
S3 = "<A href=""" & S1 & """>" & S2 & "</A>"
Debug.Print S3
Selection.Range.Text = S3
Loop

''<a href="http://www.programmersforum.ru/test1/">идеи</a>
End Sub

[Bocul]

Спасибо Вам, все работает, как нужно!