Hãy để cho VBA đọc cho bạn.

[vbavn]

Đọan code sau giúp bạn đọc một câu bằng tiếng Anh.

Đọan code này làm việc với SAPI 4.0 đến 5.1. SAPI thì có trong hầu hết các phiên bản Windows.

Phiên bản SAPI tùy thuộc vào phiên bản Windows/hoặc Office. Các bạn hãy thử đọan mã sau:

Sub SpeakText()
    Dim oSpVoice As Object
    Set oSpVoice = CreateObject("SAPI.SpVoice")
    oSpVoice.Speak "Welcome to Scriptorium"
End Sub

Vậy các bạn có thể phát triển thêm tùy theo mục đích của mình.

Vbavn

Nguồn

 

[ndu96081631]

- Ta vào menu Tools\Speech\Show Text To Speech Toolbar
- Chọn 1 cell nào đó có chử tiếng Anh, bấm nút Speak Cells, sẽ nghe phát âm
- Nếu Office chưa cài Text to Speech thì sẽ hiện ra bảng thông báo lổi ---> Bấm OK để chấp nhận cài đặt
- Sau khi phần Text to Speech đã được cài xong, nếu muốn viết nó thành code thì:

Sub UseSpeech()
  Application.Speech.Speak "Hello"
End Sub

(như hướng dẩn trong Help)
Hoặc có thể chọn để đọc text tại ActiveCell:

Sub UseSpeech()
   ActiveCell.Speak
End Sub

Dùng code này xem ra khá đơn giản đây!