Başlıkları kontrol etmek

[1903emre34@gmail.com]

Seçeğimiz word belgesinde; alt veya ana başlıklar sayfalarda en sonunda yer alıyorsa, hangi sayfada olduğuna dair bilgi vermesi için nasıl kod oluşturabiliriz. açıklamalar excel dosyasında yapılmıştır.

 

[leumruk]

Selamlar,
Örneği inceleyiniz.

Sub Düğme1_Tıklat()
wrd = Application.GetOpenFilename(",*.doc*")
If wrd = False Then Exit Sub
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open wrd

For i = wd.ActiveDocument.ComputeStatistics(2) To 1 Step -1
wd.Selection.GoTo What:=1, Which:=2, Name:=i
Set syf = wd.ActiveDocument.Bookmarks("\page").Range
For prg = syf.Paragraphs.Count To 1 Step -1
krkt = syf.Paragraphs(prg).Range.ComputeStatistics(3)

If krkt > 0 Then
If syf.Paragraphs(prg).Range <> Chr(13) Then
If IsNumeric(Left(syf.Paragraphs(prg).Range.Style, 1)) = False Then
Exit For
Else
sayfa = syf.Paragraphs(prg).Range.Information(3)
baslık = syf.Paragraphs(prg).Range
sf = sf & "Sayfa: " & sayfa & " - Başlık: " & baslık & Chr(10)
Exit For
End If
End If
End If
Next
Next
MsgBox sf, vbOKOnly, "l e u m r u k"
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, çalıştı, original dosya uyguladığım zaman aşağıdaki satır hata verdi.

If IsNumeric(Left(syf.Paragraphs(prg).Range.Style, 1)) = False Then

 

[leumruk]

Teşekkürler, çalıştı, original dosya uyguladığım zaman aşağıdaki satır hata verdi.

If IsNumeric(Left(syf.Paragraphs(prg).Range.Style, 1)) = False Then

Örnek dosyanızı görmeden yorum yapamayacağım. Değişik paragraflarda denedim, hata almadım.

 

[1903emre34@gmail.com]

Hatanın sebebi buldum, içindekiler kısmından kaynaklanıyor, dosya ekte gibidir.

 

[leumruk]

Hatanın sebebi buldum, içindekiler kısmından kaynaklanıyor, dosya ekte gibidir.

Dosyayı güncelledim.
Hata sebebi: Boş paragrafları karakter olarak alması, fakat başlık stil kodunda karşılık bulamaması.

 

[1903emre34@gmail.com]

Teşekkürler, çalıştı.