Я был бы признателен, если бы кто-нибудь мог мне помочь и указать, что следует изменить в приведенном ниже коде (я нашел его на www.extendoffice.com) ограничить это выделенной частью текста (не работать по всему документу).
Код извлекает гиперссылки из одного документа word в другой.
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