Ana içeriğe atla

Bir Word belgesindeki tüm köprüler nasıl seçilir ve kopyalanır?

Bazı durumlarda, içinde birden çok köprü bulunan uzun bir belgeniz vardır ve tüm köprüleri bu belgeden bir kerede kopyalayıp sonra başka birine yapıştırmanız yeterlidir. Hepsini tek tek kopyalamak yerine hızlı bir şekilde kopyalamanın bir yolu var mı?

Tüm köprüleri VBA ile kopyalayın

VBA ile tüm köprü adreslerini ayıklayın

Kutools for Word ile tüm köprüleri veya yalnızca adresleri panoya kopyalayıniyi fikir3


ok mavi sağ balon Tüm köprüleri VBA ile kopyalayın

1. Köprüleri kopyalamak istediğiniz Word belgesini açın ve Alt + F11 açmak için Microsoft Görsel Tabanlı Uygulama Penceresi.

2. tık Ekle > modülve aşağıdaki VBA'yı Pencereye kopyalayın.

VBA: Tüm köprüleri kopyala

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

3. Tıklayın koşmak VBA kodunu çalıştırmak için düğmeye basın. Ardından tüm köprüler yeni bir belgeye kopyalanır. Yeni belgeyi daha sonra kaydedebilirsiniz. Sonucu aşağıdaki gibi görebilirsiniz.

Not: Bu VBA yalnızca tüm köprüler sözcükle bağlantılı olduğunda çalışabilir, köprülü resimler varsa bu VBA kodu çalışamaz.


ok mavi sağ balon Tüm köprüleri adresleme VBA'sını ayıklayın

1. Köprüleri çıkarmak istediğiniz Word belgesini açın ve Alt + F11 açmak için Microsoft Görsel Tabanlı Uygulama Penceresi.

2. tık Ekle > modülve aşağıdaki VBA'yı Pencereye kopyalayın.

VBA: Tüm köprü adreslerini çıkarın

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

3. Tıklayın koşmak VBA kodunu çalıştırmak için düğmeye basın. Daha sonra tüm köprü adresleri yeni bir belgede çıkarılır, daha sonra kaydedebilirsiniz.

Not: Çıkarılan köprü adresleri orijinal sırada değil.


ok mavi sağ balon Kutools for Word ile tüm köprüleri veya yalnızca adresleri panoya kopyalayın

Tüm köprüleri veya yalnızca adresleri Word belgesinden kolayca ve hızlı bir şekilde panoya kopyalamak istiyorsanız, Köprüyü Kopyala yarar Kutools for Word sana bu iyiliği yapabilir

Kutools for Word, ile daha fazla  kullanışlı fonksiyonlar, işlerinizi kolaylaştırır. 

Kurduktan sonra Kutools for Word, lütfen aşağıdaki işlemleri yapın:(Şimdi Kutools'u Word için Ücretsiz İndirin!)

1. tık Kutools Artı > Köprüyü Kopyala.
doc kopyalama köprüleri 1

2. Açılan iletişim kutusunda, ihtiyacınız olan bir seçeneği seçin.
doc kopyalama köprüleri 2

Şimdi, köprüleri yerleştirmek istediğiniz bir konumu seçin, Ctrl + V onları yapıştırmak için.

Köprüleri kopyalayıp yapıştırın
doc kopyalama köprüleri 3
Köprü adresini kopyalayıp yapıştırın
doc kopyalama köprüleri 4

Birden çok Word belgesine / Excel çalışma kitaplarına Firefox, Chrome, Internet Explorer 10 olarak sekmeli göz atma ve düzenleme!

Firefox / Chrome / IE'de birden çok web sayfasını görüntülemeye ve ilgili sekmelere kolayca tıklayarak aralarında geçiş yapmaya aşina olabilirsiniz. Burada Office Tab, tek bir Word penceresinde veya Excel penceresinde birden çok Word belgesine veya Excel çalışma kitabına göz atmanıza ve sekmelerine tıklayarak aralarında kolayca geçiş yapmanıza olanak tanıyan benzer işlemleri destekler.
Office Tab'in ücretsiz denemesi için tıklayın!

Firefox olarak tek pencerede birden çok sözcük belgesine göz atın

İlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!

🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur  /  Metni Yeniden Yaz  /  Belgeleri Özetleyin  /  Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de

📘 Belge Ustalığı: Sayfaları Böl  /  Belgeleri Birleştir  /  Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...)  /  PDF'ye Toplu Dönüştürme  /  Sayfaları Görüntü Olarak Dışa Aktar  /  Aynı Anda Birden Çok Dosyayı Yazdırma...

İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada  /  Tüm Resimleri Yeniden Boyutlandır  /  Tablo Satırlarını ve Sütunlarını Yer Değiştirme  /  Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar  /  Bölüm Sonları  /  Tüm Başlıklar  /  Metin kutuları  /  Köprüler  / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...

Yaratıcı Ekler: Ekle Bin Ayırıcı  /  Onay Kutuları  /  Radyo Düğmeleri  /  QR Code  /  Barkod  /  Çapraz Çizgi Tablosu  /  Denklem Başlığı  /  Görüntü Başlık  /  Tablo başlığı  /  Çoklu Resimler  / Daha fazlasını şurada keşfedin: Grup Ekle...

🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar  /  tablolar  /  şekiller  /  başlık paragrafları  / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...

Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin  /  tekrarlanan metni otomatik olarak ekle  /  belge pencereleri arasında sorunsuzca geçiş yapın  /  11 Dönüşüm Aracı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word şunları sunar: 60 günlük ücretsiz deneme, hiçbir sınırlama olmaksızın! ????
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una formula que separa los links del texto.Un saludo y un millón de gracias!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
This is great stuff! Many thanks. What changes do I need to make to GetAllHyperlinks() for the following case? -- original document contains both normal text and links -- result wanted: same document but each link is followed by a space and the URL Thanks
This comment was minimized by the moderator on the site
Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used. [quote]SubGetAllHyperlinks() ' Updateby20160504 ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> 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.InsertAfter (oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Next docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations