'This example was written in a plain text editor & was not tested , but I suppose that it will work.
Me.AutoRedraw = True

Dim strSp() As String
Dim intCnt As Integer

strSp = Split ( "Arab Team 2000" , " " )

For intCnt = 0 To Ubound(strSp)
	Print Left$ ( strSp(intCnt) , 1 ) & " - " & Right$ ( strSp(intCnt) , 1 )
Next

إقرأ معى:

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

هذا الموضوع مغلق.

مواضيع مشابهة

[ تمت الإجابة ]منع تكرار الحرف في التكست4 رد · 1 مارس 2009
كتابة حرف ثم مسافة ثم حرف مثل ( ه ل ا ) بدل كلمة (هلا)1 رد · 11 ديسمبر 2007
كيف امسح حرف من تكست بوكس (عاجل للأهميه)2 رد · 3 يونيو 2002
أريد عندما أضغط على زر امر يعمل عمل Enter بعد الكلمة التاسعة في تكست بوكس ؟6 رد · 7 فبراير 2008
عاوز ادوس كليك على الكلمة فى تكست بوكس اقدر اعرف اى كلمة ضغط عليها4 رد · 19 أغسطس 2008
ممكن مستند يحوي اكواد البحث و الأضافه2 رد · 4 يناير 2002

هل من الممكن عمل تكست يحوي الحرف الأول من كل كلمة

مواضيع مشابهة

عدد الزوار حالياً