DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
.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.
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
Buradannasıl altın üye olunuyor acaba?
leumruk hocam merhabalarMerhaba,
İsteğiniz makro ile çözülebilir.
Aşağıdaki kodu deneyebilirsiniz.
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.Kod: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
Ekte makronun eklendiği bir örnek var. Bu dosya üzerinde deneyebilirsiniz.
Alternatif Link: https://drive.google.com/open?id=1F5WUAslxjydmX20y3TuYeUM2ws0nVQ3U