Byłbym wdzięczny, gdyby ktoś mógł mi pomóc i wskazać, co należy zmienić w poniższym kodzie (znalazłem go na www.extendoffice.com) ograniczyć to wydzieloną częścią tekstu (nie działa w całym dokumencie).
Kod pobiera hiperłącza z jednego dokumentu programu word do innego.
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