Bu makale, bağlantıları takip etmek için Word belgenizdeki tüm köprüleri toplu olarak çıkarmanın 2 hızlı yolunu gösterecek.
Arada bir, bir Word belgesinin her yerine dağılmış yüzlerce köprü olabilir. Bu senaryoda, belirli bir bağlantıyı izlemeniz gerekiyorsa, onu bulmak için önce belgede gezinmeniz gerekir; bu, uzun bir dosyada çok zahmetli olabilir.
Ancak, bunları yeni bir belgeye aktarırsanız işler çok daha kolaylaşabilir. İşte çözümlerimiz.
Yöntem 1: "Bul" Özelliğini Kullanın
- İlk olarak, “Ana Sayfa” sekmesine, ardından “Bul” komutunun yanındaki ok başı düğmesine tıklayın.
- "Bul ve Değiştir" iletişim kutusunu açmak için açılır menüden "Gelişmiş Bul"u seçin.
- Daha sonra "Diğer" düğmesini tıklayın ve "Biçimlendir"i tıklayın.
- "Stil Bul" kutusunu açmak için "Stil"i seçin.
- "Köprü" öğesini seçin ve "Tamam" düğmesini tıklayın.
- Ardından "Bul"a tıklayın ve "Ana Belge"yi seçin.
Artık seçimdeki tüm köprüleri görebilirsiniz. Ancak, bunları kopyalayıp yeni bir belgeye yapıştırırsanız, bağlantıların biçimlendirmelerini kaybedip düz metinler haline geldiklerini göreceksiniz.
Şu anda, Microsoft'un bu sorun için bir çözümü yoktur. Bu nedenle, düz metinleri tekrar manuel olarak köprülere dönüştürmeniz gerekir. İşte izleyebileceğiniz çeşitli yolları listeleyen önceki makalemiz: Word Belgenizdeki URL Metinlerini Köprülere Dönüştürmenin 5 Yolu
Bu eksiklik nedeniyle, yine "Bul" özelliğinin yardımıyla gerçekleştirilen başka bir yol öneriyoruz. Lütfen bu makaledeki “Bir Belgedeki Tüm Köprüleri Bul” bölümüne bakın: Word Belgenizdeki Köprüleri Bulma, Değiştirme ve Silme
Tüm köprüleri bulduktan sonra, bunları dışa aktarmak için "Kopyala" ve "Yapıştır" işlemlerini yaparsınız.
Yöntem 2: VBA Kodlarını Çalıştırın
- Öncelikle, VBA düzenleyicisini açmak için “Alt+F11” tuşlarına basın.
- Ardından "Ekle"ye tıklayın ve "Normal" proje altında yeni bir tane oluşturmak için "Modül"ü seçin.
- Ardından, düzenleme alanını açmak için modüle çift tıklayın ve aşağıdaki kodları buraya yapıştırın:
Sub ExtractAllhyperlinksInDoc()
Dim objDoc As Document, objNewDoc As Document
Dim objHyperlink As Hyperlink
' Initialization
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
' Copy hyperlinks and paste them to a new document.
With objDoc
For Each objHyperlink In .Hyperlinks
objHyperlink.Range.Copy
objNewDoc.Activate
With Selection
.Paste
.InsertParagraph
.Collapse Direction:=wdCollapseEnd
End With
Next objHyperlink
End With
End Sub
- Son olarak, “Çalıştır” düğmesine tıklayın.
Şimdi yeni bir belge açık olacak ve tüm köprüler orada tıklanabilir.
Ayrıca, işlenmesi gereken bir grup dosya olması durumunda, aşağıdaki makroyu çalıştırabilirsiniz:
Sub ExtractHyperlinksFromMultiDoc()
Dim objDoc As Document, objNewDoc As Document
Dim objHyperlink As Hyperlink
Dim strFile As String, strFolder As String
' Initialization
Set objNewDoc = Documents.Add
strFolder = InputBox("Enter folder path here: ", "Folder path")
strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
' Open each file in the folder to extract hyperlinks and past them to a new document.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
With objDoc
For Each objHyperlink In .Hyperlinks
objHyperlink.Range.Copy
objNewDoc.Activate
With Selection
.Paste
.InsertParagraph
.Collapse Direction:=wdCollapseEnd
End With
Next objHyperlink
End With
objDoc.Close
strFile = Dir()
Wend
End Sub
Önce tüm belgeleri bir klasörde düzenlemeyi unutmayın. Sonra bir giriş kutusu almak için yukarıdaki makroyu çalıştırın. Klasör yolunu girin ve "Tamam"a tıklayın.
Tüm köprüler artık yeni bir belgede mevcuttur.
Kelime Hatalarına Hazır
Bir Word hatasıyla karşılaşmak konusunda ne kadar isteksiz olursak olalım. Bunu zaman zaman yaşamak kaçınılmazdır. Önerimiz, Word çöktüğünde, yetkin bir Kelime onarımı alet. Sadece her şeyi profesyonele bırakın.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls hasarı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com