Word dosyasından tüm bağlantıları hızlıca toplama

Bir Word belgesindeki tüm köprülerin listesini almak için en kolay yol, yerleşik alan aramasını kullanmaktır: Alt + F9 tuşlarına basın, ardından Ctrl + F yapın, ^d hyperlink yazın ve bulunan tüm öğeleri seçin — bunları yeni bir .dosyaya kopyalayabilirsiniz. Otomasyon ve metin formatına dışa aktarma için, bağlantı adreslerini satır satır listeleyen bir VBA makrosu uygundur.

Yöntem 1: Köprü alanlarını arama (kod gerektirmez)

Bu yöntem, bağlantıların varlığını hızlıca kontrol etmek veya görsel olarak kopyalamak istediğinizde idealdir.

1. Belgeyi açın ve Alt + F9 tuşlarına basın — bağlantı metni yerine alan kodları görüntülenir .
2. Ctrl + F tuşlarına basın, arama kutusuna şunu yazın: ^d hyperlink.
3. Arama seçeneklerinde "Bulunan tüm öğeleri vurgula" işaretleyin.
4. "Tümünü Bul" düğmesine tıklayın — tüm köprüler belgede vurgulanacaktır.
5. Arama penceresini kapatın, vurgulanan herhangi bir parçayı seçin ve Ctrl + C tuşlarına basın — yalnızca seçili köprüler kopyalanır.
6. Görüntülemek veya düzenlemek için yeni bir belgeye yapıştırın (Ctrl + V).

Yöntem 2: VBA Makrosu — bağlantı listesini yeni belgede oluşturma

Çok sayıda bağlantınız varsa veya otomasyona ihtiyacınız varsa, makro kullanın. Bu makro, tüm aktif köprüleri (metin + adres) içeren yeni bir dosya oluşturur.

1. Belgeyi açın, VBA düzenleyicisine girmek için Alt + F11 tuşlarına basın .
2. Menüden Insert → Module seçeneğini belirleyin.
3. Kodu yapıştırın:

Sub GetLinksInNewDoc()
    Dim doc As Document, newDoc As Document, hlink As Hyperlink
    Set doc = ActiveDocument
    Set newDoc = Documents.Add
    With doc
        For Each hlink In .Hyperlinks
            newDoc.Activate
            With Selection
                .InsertAfter hlink.TextToDisplay & " → " & hlink.Address
                .InsertAfter vbNewLine
            End With
        Next hlink
    End With
    Set doc = Nothing: Set newDoc = Nothing
End Sub

4. F5 tuşuna veya "Run" düğmesine basın — yeni belge otomatik olarak şu listede açılacaktır: bağlantı metni → URL.

Yöntem 3: Bağlantı adreslerini metin dosyasına dışa aktarma

Yalnızca URL'lere ihtiyacınız olduğunda (örneğin denetim veya veritabanına aktarma için), bu seçeneği kullanın:

Sub ExportLinksToTxt()
    Dim doc As Document, hlink As Hyperlink
    Set doc = ActiveDocument
    Open doc.Path & "\extracted_links.txt" For Output As #1
    With doc
        For Each hlink In .Hyperlinks
            Print #1, hlink.Address
        Next hlink
    End With
    Close #1
    Set doc = Nothing
    MsgBox "Bağlantılar kaydedildi: " & doc.Path & "\extracted_links.txt"
End Sub

Çalıştırdıktan sonra, kaynak dosyanın bulunduğu klasörde her satırda bir adres olacak şekilde extracted_links.txt dosyası oluşur .

Yöntemlerin karşılaştırılması

Sık yapılan hatalar

• "Geliştirici" sekmesi etkin değil — bunun olmadan VBA düzenleyicisi açılamaz. Etkinleştirme: Dosya → Seçenekler → Şeridi Özelleştir → "Geliştirici" işaretleyin.
• ^d hyperlink araması bağlantıları bulamıyor — bağlantıların "Ekle" → "Köprü" yoluyla oluşturulduğundan, sadece altı çizili metin olmadığından emin olun.
• Makro 91 hatası veriyor — belge etkin değil veya düzenlemeye karşı korumalı. Korumayı kaldırın ve gerekli dosyanın açık ve odakta olduğundan emin olun.
• Tablolardaki bağlantılar atlanıyor — bazı makrolar iç içe geçmiş aralıkları işlemez. Kritikse, StoryRanges üzerinden tam yineleme kullanın.

SSS

Korumalı bir belgeden bağlantılar çıkarılabilir mi?
Hayır — dosya "Salt Okunur" modunda açılmışsa veya düzenleme kısıtlaması varsa, makrolar ve alan araması çalışmaz. Önce korumayı kaldırın.

Mac için Word'de çalışır mı?
Evet, ancak VBA'yı açmak için kısayol: Opt + Fn + F11. Alan araması (Alt + F9) benzer şekilde çalışır .

Bağlantıların bozuk olup olmadığını nasıl kontrol edebilirim?
Adresleri çıkardıktan sonra çevrimiçi bağlantı kontrol araçlarını veya Word eklentilerini (örneğin Kutools'taki "Bağlantı Kontrolü") kullanın, ancak kritik belgeler için tarayıcı aracılığıyla manuel kontrol daha güvenilirdir.

Yalnızca URL'yi değil, bağlantı etrafındaki metni de alabilir miyim?
Standart araçlarla — hayır. Bağlamı çıkarmak için, hlink.Range.StoryText erişimi ve komşu paragrafların analizi ile makronun geliştirilmesi gerekir.