mallina Сообщение 30/11/2010 07:10 Копия темы
Помощь по Эксель Помогите, пожалуйста скопировать гиперссылку из текстовой строки.
Файл прикрепелен.  
Нужно из столбца А скопировать гиперссылку и вставить в столбец С.  
В столбце А гиперссылка в формате текста,  а нужна http:// ..... 

uslashka Сообщение 30/11/2010 07:20 Копия темы
наверное так)

toko Сообщение 30/11/2010 07:21 Копия темы
попробуйте вот этот вариант wordexpert.ru/page/kak-pr...

P.S. Лучше вот этот

Sub extractHyperlinks2()
Dim oHpl As Hyperlink
Dim sAd As String
Dim dAD As Document  'active document
Dim dDc As Document  'new document
Set dAD = ActiveDocument
Set dDc = Documents.Add(Visible:=False)
For Each oHpl In dAD.Hyperlinks
sAd = oHpl.Address
dDc.Activate
Selection.TypeText sAd & vbCr
Next
dDc.SaveAs "D:\__Data\hl2.doc" ' это путь где сохраняться все ссылки
dDc.Close
Set dAD = Nothing
Set dDc = Nothing
End Sub

Если много могу помочь.