Ben size minnettar olacak birisi yardımcı olabilir bana gösterir ne olmalıdır değişti kod aşağıda (ben buldum bunu www.extendoffice.com) kısıtlamak için bu bölümü Seçili metni (değil çalışma boyunca bütün belge).
Kod, bir word belgesinden diğerine köprüler ayıklıyor.
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