iste o bendim
şimdi elimde bir belge var ve bunun içinden http yle başlayan linkleri almak istiyorum sadece.nasıl alabilirim bunları?
şimdi elimde bir belge var ve bunun içinden http yle başlayan linkleri almak istiyorum sadece.nasıl alabilirim bunları?
0
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.
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.
0
