Excel veya Word Ortamındaki Bir Metni Heceleme

[vurkan]

Arkadaşlar Merhaba, İlkokul 1. sınıfı okutan arkadaşlarım bana sordular, bilemediğim için ben de size sorayım dedim.
Benden istedikleri şey öğrenciye heceleri belirten metinler hazırlamak. Okutulan kitaplarda bu matbaada hazırlanmış. Ama verdikleri ödevlerde halihazırda bunu manuel olarak tek tek yapıyorlar.
1- Metinleri yazarken her hecenin arasına bir boşluk, kelimelerin arasına ise 2 veya 3 boşluk koyuyorlar. Veya;
2- Heceler arsında boşluk bırakmadan aynı sayfadaki heceleri 2 farklı renge boyuyorlar. Çok zaman aldığından genelde birini siyah bırakıp diğerini kırmızı sarı vb. boyuyorlar. Veya;
3- 1. heceyi normal, diğerini kalın(bold) yapıyorlar.
Şimdi bunu yapan bir çalışma veya program bilen var mı acaba? Teşekkürler.

 

[Ömer BARAN]

Aşağıdaki konu sayfasında Sayın @leumruk 'un bir çalışması var, inceleyiniz .

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

 

[Cengiz Demir]

Sayın leumruk'un Word 'de böyle bir çalışması var. Alternatif linkden ilgili dosyaya ulşabilirsiniz

https://www.excel.web.tr/threads/metni-cuemle-kelime-ve-hecelerine-ayirma-word-dosyasinda.171242/

 

[tugkan]

Hocam Merhaba,
Aşağıdaki konuyu inceleyin lütfen
https://www.excel.web.tr/threads/cuemle-kelime-hece.170172/

 

[Muzaffer Ali]

Lemruk'un kodlarını size uygun şekilde uyarladım.
Kodları bir modüle kopyalayın.

Excel sayfasında bir fonksiyon gibi ullanabilirsiniz.

Örnek =hecele(A1)
yada =hecele("deneme")

Function hecele(Deger As String)
harf = "aâeıiîoöuûüAÂEIİÎOÖUÛÜ"
deg = Deger
If Len(deg) = 1 Then
hecele = Deger
Exit Function
End If
For x = Len(deg) To 1 Step -1
t = t + 1 'geçilen harf sayısı
If x <> Len(deg) Then
say = InStr(harf, Mid(deg, x, 1))
unlusay = InStr(harf, Mid(deg, x + 1, 1))
If x = 2 And say = 0 Then
    If InStr(harf, Mid(deg, x - 1, 1)) = 0 Then
        hece = hece & "-" & StrReverse(Mid(deg, x - 1, t + 1))
        Exit For
    End If
End If
If unlusay > 0 Or x = 1 Then
If say > 0 And x <> 1 Then
hece = hece & "-" & StrReverse(Mid(deg, x + 1, t - 1))
t = 1
Else
hece = hece & "-" & StrReverse(Mid(deg, x, t))
t = 0
End If
End If
End If
Next
hecele = Mid(StrReverse(hece), 1, Len(hece) - 1)
End Function

 

[vurkan]

Sayın Üstadlarım. İlgi ve alakanıza çok teşekkür ediyorum. Sayenizde Sayın Lemruk Üstadın çok güzel ve tam istediğim gibi bir çalışmasını edinmiş oldum. Rabbim bu güzel çalışmanın her kullanıldığında yapılacak hayır dualarla Sayın Lemruk ve vesile olan sizlere bol bol ecirler (sevaplar) ihsan eder inşallah. Bu dosya Sayın Lemruk'un izniyle eğitim ile alakalı forumlarda paylaşılırsa bir çok kişi istifade eder kanısındayım.
Sayın dalgalikur. Sizin önerdiğiniz kodları da alternatif olarak kullanacağım. Saygılarımla.

 

[leumruk]

Sn. Vurkan,
İyi dilekleriniz için teşekkür ederim.
Programı yapma aşamasında kızım 1. sınıfa gidiyordu, dolayısıyla kitaplarındaki hecelemeler dikkatimi çekmişti. Üzerine bir de bu yönde soru gelince böyle bir çalışma yaptım. Arkadaşlarımızın da önerileriyle son şeklini aldı.
Artık bu program kamuya bağışlanmıştır. Kaynağı belirtmek koşuluyla istediğiniz yerde paylaşabilirsiniz.

 

[vurkan]

Teşekkür ediyorum. Emekleriniz boşa gitmeyecektir inşallah. Saygılar sunuyorum.