Excel ile word tarama ve listeleme?

[Gorarr]

Selamlar, eğer mümkünse şöyle bir konuda yardımlarınıza ihtiyacım var (benzer bir konu hiç bulamadım).

Başlıkları ve konuları olan 1000 sayfalık bir word dosyası var elimde.
Yapmaya çalıştığım, excel dosyası benim yazdığım başlıkları (listbox,combobox yada textbox içine olabilir) tarayıp excel içine listelenmesi. Aynı zamanda sayfa numaralarınıda yanına yazması. "Excel kodlarını deneyebilmek için örnek bir word dosyası ekledim".

Yardımlarınız için şimdiden çok çok teşekkür ederim.

 

[Gorarr]

Soruyu inceleyen hocalarıma teşekkür ederim sanırım yapımı mümkün değil.

Artık bu sorunun cevabı için ümidimi kesip konuyu kapatayım mı?

 

[Gorarr]

Konuyu uygun yere açmamışım, bu başlığa taşıyabilirmisiniz, teşekkürler..

Diğer Yazılımlar\Windows-Word-PowerPoint

 

[leumruk]

Merhaba,
İsteğinizle örnek olarak eklediğiniz dosya uyumlu değil. Mümkünse elinizdeki asıl dosyanın 50-100 sayfalık bir bölümünü ekleyin. Örneğin başlıkların listelenmesini istemişsiniz; ama örnek dosyanızda hiç başlık yok.
NOT: Eğer örnek dosya ekleyebilirseniz dosyadaki başlıkları işaretlemeyi unutmayın. Eğer başlıklarınız başlık olarak biçimlendirilmemişse sorunuza çözüm bulmak zor. Wordde exceldeki gibi hücreler yok, adres belli değil. Bir şekilde kodlara tanıtabileceğimiz özelliklerin olması gerekiyor. Başlıklarınızın başlık olarak biçimlendirilmesi ya da diğer metinlerden farklı yazı boyutunun olması gibi...

 

[Gorarr]

Hocam vakit ayırdığınız için çok teşekkür ederim. #1 nolu mesajıma müdahele edemiyorum o yüzden buraya yeni dosyayı ekledim.

Ben excel deki kodları daha yeni kavrıyorum ama demek istediğinizi anladım. Bu başlıkları 14 puntoya ve kalın yazıya çevirdim.

Önsöz
Ayna
Kayıp Kasaba
Bilinmeyen Varlıklar Ailesi
Yeniden Hayata
Yalanla Kurulan Dünya
Hayatın İçinden

Tekrardan teşekkürler..

 

[leumruk]

Üzerinde çalışmadan önce bir kaç sorum ya da isteğim olacak.
Wordde oluşturduğunuz başlıkları koyu renk yapmak yerine yazı tipinin yanındaki kısımdan "Başlık1" olarak biçimlendirirseniz daha sade ve hedefini şaşırmayacak bir kod yazabiliriz. Sonuçta koyu renk yapmak için de aynı emeği harcıyacaksınız. Bu emeği başlık formatında biçimlendirmek için kullanın. Başlık olarak biçimlendirdiğinizde başlığınızın rengi zaten koyu olacaktır. Ekleyeceğiniz yeni örnekten sonra dosyanın üzerinde çalışacağım.

 

[Gorarr]

Hocam dün acil bir işim çıktı ancak dönebildim. Dosyadaki tüm başlıkları yazıya eşitledim sonrada tek tek "başlık 1" olarak biçimlendirdim. #5 nolu mesajımda dosyayı yeniledim. teşekkürler.

 

[leumruk]

Merhaba,
Ekteki klasörü rardan çıkarın ve excel dosyasını açın. Sayfa üzerindeki butona basarak formun açılmasını sağlayın. Açılan formda bulunan "Listbox"a çift tıklayın...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim kontrol As Boolean
kontrol = False
Application.ScreenUpdating = False
Set WDklm = CreateObject("Word.Application")
Set WD = GetObject(, "Word.Application")
WD.Visible = True
WD.Application.ScreenUpdating = False
yol = ThisWorkbook.Path

For Each knt In WD.Documents
If knt.FullName = yol & "\örnek.doc" Then kontrol = True: Exit For
Next

If kontrol = False Then
WD.Application.Documents.Open yol & "\örnek.doc"
End If

x = 1
WD.Selection.GoTo What:=11, Which:=1, Count:=x, Name:=""
Syf = WD.Selection.Information(1)
Sat = WD.Selection.Information(10)
ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "200,100,100"

Do
Baslik = WD.ActiveDocument.Bookmarks("\line").Range
Baslik = Left(Baslik, Len(Baslik) - 1)
satir = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(satir, 0) = Baslik
ListBox1.List(satir, 1) = "Sayfa: " & WD.Selection.Information(1)
ListBox1.List(satir, 2) = "Satır: " & WD.Selection.Information(10)
x = x + 1
WD.Selection.GoTo What:=11, Which:=1, Count:=x, Name:=""
If Syf = WD.Selection.Information(1) And _
Sat = WD.Selection.Information(10) Then Exit Do
Loop

If kontrol = False Then WD.Application.Quit
Label2.Caption = "İşleminiz başarıyla gerçekleşti. l e u m r u k"
'Kodlayan: l e u m r u k
End Sub

 

[Gorarr]

Hocam çok teşekkür ederim, ellerinize sağlık. Saygılar selamlar.

 

[Gorarr]

Hocam gerçekten çok işime yaradı, tekrardan teşekkür ederim.

Ek bir şey sorucam burda başlıkları kırmızı yapsam. kodlar sadece kırmızı yazılanları aynı şekilde çıkarabilirmi. modifiye etmeniz mümkünmü. teşekkürler..

 

[leumruk]

Hocam gerçekten çok işime yaradı, tekrardan teşekkür ederim.

Ek bir şey sorucam burda başlıkları kırmızı yapsam. kodlar sadece kırmızı yazılanları aynı şekilde çıkarabilirmi. modifiye etmeniz mümkünmü. teşekkürler..

Merhaba,
Ekteki örnekle kırmızı renkli başlıkları listeleyebilirsiniz.

 

[Gorarr]

Hocam ellerinize sağlık, çok çok teşekkür ederim. Saygılar selamlar..

 

[leumruk]

Hocam ellerinize sağlık, çok çok teşekkür ederim. Saygılar selamlar..

Rica ederim. İyi geceler...