word de hece sayısı

[safariyim]

word de yazdığım bir şiirin kaç hece olduğunu görmek istiyorum. böyle bir özellik varmı örneğin sözcük sayımı yaptığı gibi hece sayımıda yapılıyormu.

 

[security]

SÖZCÜK SAYIMI

1- İçerisinde geçen kelimelerin ya da harflerin sayısını öğrenmek istediğiniz herhangi bir Word belgesini açın

Daha sonra "Araçlar" menüsüne tıklayın ve açılan menüden "Sözcük Sayımı" satırını seçin

2- Karşınıza, biraz önce açmış olduğunuz dokümanın sözcük sayımı ile ilgili tüm bilgilerin yer aldığı küçük bir pencere gelecektir

Bu pencereyi dikkatle incelerseniz sayfa sayısı, kelime sayısı, boşluklu veya boşluksuz olarak hesaplanmış karakter sayısı gibi her türlü sayısal bilginin listelendiğini kolaylıkla fark edeceksiniz

Kolay Gelsin...Security

 

[safariyim]

evt orada sözcük karekter sayfa sayısı gibi bilgiler var ancak benim sorum hece sayısı. yani yazdığım bir satırda kaç hece var onu görmek istiyorum. saygılar

 

[İdris SERDAR]

word de yazdığım bir şiirin kaç hece olduğunu görmek istiyorum. böyle bir özellik varmı örneğin sözcük sayımı yaptığı gibi hece sayımıda yapılıyormu.

.


Word'ün böyle bir özelliği yok. Çünkü Microsofta çalışanların dilinde hece yok harf vardır.

Onun için, kelime, harf satır, paragraf saydırmışlar. Ama hece yok.

Ancak olsaydı eminim, bu kez divan şiirinin aruz veznini istiyecektiniz.

Her neyse, şaka bir yana...

Pek pratik değil ancak, iş görür derseniz. Şöyle bir yol izleyebilirsiniz.
Şiiri hecelere ayrılmış şekilde yazarsanız ve çıkan sonucu mısra aralarındaki boşluk satır sayısını düşüp kalan satır sayısına bölerseniz, her dizedeki hece sayısını bulursunuz.

.

 

[leumruk]

Merhaba,
İsteğiniz makro ile çözülebilir.
Aşağıdaki kodu deneyebilirsiniz.

Sub Hece_Say()
Selection.WholeStory
unlu = Array("A", "Â", "E", "I", "İ", "Î", "U", "Û", "Ü", "O", "Ö")
For x = LBound(unlu) To UBound(unlu)
deg = Split(UCase(Replace(Replace(Selection, "i", "İ"), "ı", "I")), unlu(x))
Say = Say + UBound(deg)
Next
Selection.MoveUp Unit:=wdLine, Count:=1
MsgBox "Seçili metindeki hece sayısı: " & Say, vbInformation, "leumruk"
End Sub

Bu kodları word dosyanızın makro bölümüne kopyalayın ve ARAÇLAR>MAKRO>Hece_Say makrosunu seçin ve çalıştıra basın. İsterseniz makroya kısayol tuşu atayarak da kullanabilirsiniz.
Ekte makronun eklendiği bir örnek var. Bu dosya üzerinde deneyebilirsiniz.
Alternatif Link: https://drive.google.com/open?id=1F5WUAslxjydmX20y3TuYeUM2ws0nVQ3U

 

[assenucler]

Teşekkürler..

 

[baranulger]

Bu dosyayı indirmek için kaç tane mesaj atmak gerekiyor acaba?

 

[BAZGİRET]

Altın üye olmanız gerekiyor.

 

[baranulger]

nasıl altın üye olunuyor acaba?

 

[BAZGİRET]

nasıl altın üye olunuyor acaba?

Buradan

Mağaza Excel Web TR | Excel Kitapları ve Excel Eğitimleri

www.excel.web.tr Forumun Online Satış Mağazasıdır. Excel Kitapları, Excel Eğitimleri ve Excel Forum Altın Üyelik satışları yapılır.

www.magaza.excel.web.tr

 

[leumruk]

5 nolu mesaja alternatif link eklenmiştir.

 

[Archivist]

Merhaba,
İsteğiniz makro ile çözülebilir.
Aşağıdaki kodu deneyebilirsiniz.

Sub Hece_Say()
Selection.WholeStory
unlu = Array("A", "Â", "E", "I", "İ", "Î", "U", "Û", "Ü", "O", "Ö")
For x = LBound(unlu) To UBound(unlu)
deg = Split(UCase(Replace(Replace(Selection, "i", "İ"), "ı", "I")), unlu(x))
Say = Say + UBound(deg)
Next
Selection.MoveUp Unit:=wdLine, Count:=1
MsgBox "Seçili metindeki hece sayısı: " & Say, vbInformation, "leumruk"
End Sub

Bu kodları word dosyanızın makro bölümüne kopyalayın ve ARAÇLAR>MAKRO>Hece_Say makrosunu seçin ve çalıştıra basın. İsterseniz makroya kısayol tuşu atayarak da kullanabilirsiniz.
Ekte makronun eklendiği bir örnek var. Bu dosya üzerinde deneyebilirsiniz.
Alternatif Link: https://drive.google.com/open?id=1F5WUAslxjydmX20y3TuYeUM2ws0nVQ3U

leumruk hocam merhabalar
makro için, yardımınız için çok teşekkürler
yukarıdaki makronun değişmiş bir haline ihtiyacım var;
metindeki "3 heceli", "4 heceli", "5 heceli", "6 ve daha fazla heceli" kelime sayılarını tespit etmem gerekli.
bu sorunu nasıl çözebilirim?
saygılarımla

 

[leumruk]

Metni Cümle, kelime ve hecelerine ayırma(Word dosyasında)

Selamlar, Forumda cevapladığım bazı kodları geliştirerek ve bir araya getirerek örnek bir Word dosyası hazırladım. Bu dosyada metni: 1) Cümlelerine ayırabilirsiniz. 2) Kelimelerine ayırabilirsiniz. 3) Hecelerine ayırabilirsiniz. Hecelerine: - Tire ile, - Çift renk ile - Ayrı...

www.excel.web.tr

Linkte paylaştığım dosyaya istediğiniz özelliği ekledim.

 

[Archivist]

çok teşekkür ederim