As fi recunoscator daca cineva m-ar putea ajuta și indică ceea ce ar trebui să fie schimbat în codul de mai jos (l-am găsit pe www.extendoffice.com) pentru a restricționa acest lucru a selectat o parte din text (să nu lucreze de-a lungul întregului document).
Codul este extragerea hyperlink-uri de la un doc word la altul.
Sub HyperlinksExtract()
Dim oLink As Hyperlink
Dim docCurrent As Document 'current document
Dim docNew As Document 'new document
Dim rngStory As StoryRanges
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
oLink.range.Copy
docNew.Activate
Selection.Paste
Selection.TypeParagraph
Next
Set docNew = Nothing
Set docCurrent = Nothing
End Sub