eğer linklerin hepsi hyperlink şeklindeyse aşağıdakileri yap;
alt + f11 'e basınca "Microsoft Visual Based Application Window" açılacak.
Insert'den Module'e tıkla.
Çıkan pencereye aşağıdaki kodları kopyala:
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
Run'a bastığında (play tuşu gibi olan şey) linkleri yeni bir sayfaya aktaracak.
