Συλαβισμός λέξης

[kellis]

Καλησπέρα στο forum,
Θέλω να ρωτήσω πως γίνεται να κάνω μια λέξη σε μια έκθεση πχ ΒΑΓΓΕΛΗΣ να εμφανιστεί με κενά ενδιάμεσα Β Α Γ Γ Ε Λ Η Σ ή όπως το ορίσουμε εμείς. Στην ουσία θέλω να πάρω το κάθε γράμμα της λέξης και να το βάλω εκεί που θέλω.

[sarafis]

Δες μια εκδοχή στην συνημένη βάση

[kellis]

Στέλιο είναι αυτό που θέλω να κάνει αλλά επειδή θέλω να είναι σε έκθεση το κάθε γράμμα σε κουτάκι κάπου χάνεται αυτό που θέλω να κάνω.
Γίνεται από μια λέξη πχ. ΒΑΓΓΕΛΗΣ σε μια έκθεση σε διαφορετικά πλαίσια κειμένου να παίρνω μόνο το πρώτο γράμμα, μόνο το δεύτερο, μόνο το τρίτο κοκ ώστε να τα βάλω εκεί που θέλω εγώ;

Αρχική Δημοσίευση από sarafis

Δες μια εκδοχή στην συνημένη βάση

[sarafis]

καλησπέρα Βαγγέλη
Μπορείς να βάλεις σε ένα module την συνάρτηση
Function sylav(str) As String
Dim Change, Change1 As String
Change = ""
For j = 1 To Len(str)
Change1 = Mid(str, j, 1)
Change = Change & " " & Change1
Next
sylav = Change
End Function

και στην έκθεση να βάλεις sylav(Το όνομα του πεδίου σου)

[kellis]

Στέλιο,
Με αυτό που μου έστειλες (module), δεν μπόρεσα να κάνω κάτι. Μπορείς μήπως να μου στείλεις κάποιο δείγμα;
Σου επισυνάπτω μια φωτογραφία που φαίνονται τα κουτάκια που θέλω να μπαίνει το κάθε γράμμα. Το έκανα με το πρώτο παράδειγμα που μου είχες στείλει αλλά, δεν ταίριαζαν.