Giúp chỉnh sửa code file *.vbs trong notepad (1 người xem)

[MrPi]

Tôi thấy trên Quantrimang có hướng dẫn tạo một ứng dụng đọc tiếng Anh bằng notepad khá hay và đơn giản. Mở notepad và chép đoạn code sau:

Dim message, sapi

message = InputBox("A Free Pronunciation tool"+vbcrlf,"Text to Audio converter")
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak message

Lưu file với phần mở rộng là *.VBS
(Ví dụ trong file đính kèm, tải file và đổi phần mở rộng lại là VBS - vì GPE không cho tải file khác ạ!)
Tuy nhiên khi chạy thì sau khi nhập từ tiếng Anh hoặc Paste cả một đoạn văn bản tiếng Anh và Enter/OK thì sẽ nghe đọc được nhưng muốn đọc tiếp từ khác hoặc đoạn khác thì phải thực hiện file lần khác. Anh chị em rành phần này sửa giúp. Tôi xin cảm ơn ace nhiều.

​

 

[huuthang_bd]

Tôi thấy trên Quantrimang có hướng dẫn tạo một ứng dụng đọc tiếng Anh bằng notepad khá hay và đơn giản. Mở notepad và chép đoạn code sau:

Dim message, sapi

message = InputBox("A Free Pronunciation tool"+vbcrlf,"Text to Audio converter")
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak message

Lưu file với phần mở rộng là *.VBS
(Ví dụ trong file đính kèm, tải file và đổi phần mở rộng lại là VBS - vì GPE không cho tải file khác ạ!)
Tuy nhiên khi chạy thì sau khi nhập từ tiếng Anh hoặc Paste cả một đoạn văn bản tiếng Anh và Enter/OK thì sẽ nghe đọc được nhưng muốn đọc tiếp từ khác hoặc đoạn khác thì phải thực hiện file lần khác. Anh chị em rành phần này sửa giúp. Tôi xin cảm ơn ace nhiều.

​

Diễn đàn chuyên môn Excel nên chơi bằng Excel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
CreateObject("sapi.spvoice").Speak Target.Value
End Sub

Double click vào ô nào thì đọc ô đó. Nhớ enable macro.

 

[MrPi]

Cảm ơn bạn nhiều, nếu muốn file VBS chạy lặp thì có được không bạn?

 

[huuthang_bd]

Cảm ơn bạn nhiều, nếu muốn file VBS chạy lặp thì có được không bạn?

Thì bạn dùng code này

Dim message, sapi
Set sapi = CreateObject("sapi.spvoice")
Do
    message = InputBox("A Free Pronunciation tool" + vbCrLf, "Text to Audio converter")
    If Len(message) = 0 Then Exit Do
    sapi.Speak message
Loop

 

[MrPi]

Cảm ơn bạn nhiều, excel đúng là không giới hạn thật!