Microsoft Office Word İçindeki Linkleri Dışarı Aktarmak

Tüm Linkleri Kopyalamak

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub HyperlinksExtract() 'Updateby20140214     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

---

Tüm Linkleri Yeni Belgeye Çıkarmak

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function GetAllHyperlinks() 'Updateby20140214     Dim docCurrent As Document     Dim docNew As Document     Dim oLink As Hyperlink     Dim rng As Range     Application.ScreenUpdating = False     Set docCurrent = ActiveDocument     Set docNew = Documents.Add     For Each oLink In docCurrent.Hyperlinks         Set rng = docNew.Range         rng.Collapse         rng.InsertParagraph         rng.InsertAfter (oLink.Address)     Next     docNew.Activate     Application.ScreenUpdating = True     Application.ScreenRefresh End Function

Kaynak: https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html#a1