Word Sayfalardaki Linkli Kelime - Cümle ve Tablo İsimlerinin Listelenmesi Hk Yrd

[skaan]

Merhaba;

100 sayfalık bie word dökümanım bulunmakta. Bu dosyada bazı kelımelere - cümlelere - tablo isimlerine köprü ile link tanımlanmış durumda.
Word dosyamdakı link verilen kelıme- cümle - tablo isimlerinin aynı dosya içerisinde ayrı bir sayfada listelemek istiyorum.
Listeyi word dosyamda nasıl oluşturabilirim ? ( verilen linkler ile oluşturabilirsem harıika olur)
Bu konuda yardımcı olmanızı rica ediyorum.

Saygılarımla;
Skaan

 

[Haluk]

https://www.datanumen.com/blogs/2-quick-ways-batch-extract-hyperlinks-word-document/

.

 

[skaan]

Merhaba;

100 sayfalık bie word dökümanım bulunmakta. Bu dosyada bazı kelımelere - cümlelere - tablo isimlerine köprü ile link tanımlanmış durumda.
Word dosyamdakı link verilen kelıme- cümle - tablo isimlerinin aynı dosya içerisinde ayrı bir sayfada listelemek istiyorum.
Listeyi word dosyamda nasıl oluşturabilirim ? ( verilen linkler ile oluşturabilirsem harıika olur)
Bu konuda yardımcı olmanızı rica ediyorum.

Saygılarımla;
Skaan

Sayın Haluk;
Verdiğiniz linki inceledim. Burada acaba Word dosyamdaki baslıklardakı tanımlamış olduğum stillerden herhangi birinin listesini almam mümkün olabilirmi..? Örneğin ; " Hafif Başvuru " isimli stili tanımladığım Kelime - Cümle ve Tablo İsimlerinin Listelenmesi gibi... Bu kodları nasıl düzenlemek gerekir ? Doğru kodlar aşağıdaki kodlarmıdır ?? Nasıl bir değişiklik yapmak gerekir.. ? Yardımcı olabilirmisiniz..

Saygılarımla;
Skaan


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