Word'daki sözcük sayısını excel sütununa aktarmak

[VeliDemir]

Merhaba, öncellikle bu forum hizmetinden ötürü sizlere çok teşekkür ederim.

Bilgisayarımdaki Windows Xp İşletim Sisteminin Masaüstünde birden çok Microsoft Word makale dosyasının bulunduğu bir klasör yer almaktadır. Bu klasördeki dosyaların sözcük sayılarını Word programının "Araçlar" menüsündeki "Sözcük Sayımı" kısmından bulan ve bu sayıları Masaüstündeki Microsoft Excel dosyasındaki A sütununa sırayla aktaran bir makro programına ihtiyaç duymaktayım. Bu hususta bana yardımcı olabilir misiniz?

İyi günler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu boş bir excel sayfasında bir butona bağlayarak çalıştırırmısınız.

Sub kelimelerisay()
Set pencere = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
klasor = pencere.Items.Item.Path
dosya = Dir(klasor & "\" & "*.doc")
Set nesne = CreateObject("word.Application")
[a:b].ClearContents
[a1] = "Dosya Adı"
[b1] = "Kelime Sayısı"
While Len(dosya) > 0
c = c + 1
Set worddosyasi = nesne.Documents.Open(klasor & "\" & dosya)
Cells(c + 1, "a") = worddosyasi.Name
Cells(c + 1, "b") = worddosyasi.Range.ComputeStatistics(0)
worddosyasi.Close
dosya = Dir
Wend
nesne.Quit
End Sub

 

[VeliDemir]

Çok teşekkür ederim.

 

[Husgvarna]

Sn. Levent hocanın mesajına; ilave olarak işinize yarayabilir: