نطق

[LEMBMC]

السلام عليكم

أريد من خلال هذا الملف نطق الارقام بالترتيب الموجودة في العمود A

Speak.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

انسخ هذا الكود والصقه فى موديول واريطه بالزر المرفق

Sub Speaking()
For i = 1 To 6
x = Cells(i, 1).Value
Application.Speech.Speak x
Next
Application.Speech.Speak "Don"
End Sub

 

[محمد الورفلي1]

23 ساعات مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

انسخ هذا الكود والصقه فى موديول واريطه بالزر المرفق

Sub Speaking()
For i = 1 To 6
x = Cells(i, 1).Value
Application.Speech.Speak x
Next
Application.Speech.Speak "Don"
End Sub

 

 

كيف يكون الناطق بالعربي

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اخى الكريم لم اتوصل حتى الان الى النطق باللغة العربية

[محمد الورفلي1]

شكراً لك ولمجودك الباهر

[LEMBMC]

السلام عليكم

اولا لماذا تصف نفسك بالعجوز مازالت البركة يا اخي واريد ان اشكرك لكن انت تعرف اني اريد النطق بالعربي حتى وان لم تتوصل لذلك اريدك ان ترشدنا لبرمجية او موقع يكون فيه النطق بالعربي وصوت رجل 

ثانيا هل لك ان تعطينا الكود الخاص بالامر SPEAK اي اريد البرمجة من دون عمل SPEAK اي اريد البرمجة التفصيلية لهذا الامر فانت تعلم ان لكل امر كود تفصيلي لكن اوفيس يختصرها لنا لتسهيل البرمجة وبمعنى آخر اريد البرمجة من دون هذا الامر