Thay thế văn bản thành giọng nói cho Word

Có vẻ như Microsoft đã quyết định xóa văn bản thành giọng nói khỏi Word 2007. Có sự thay thế hợp lý nào không, tốt nhất là không yêu cầu một ứng dụng riêng biệt? Tôi muốn nó được đọc trực tiếp từ.

Đây thực sự không phải là một câu hỏi tiếp cận. Tôi chỉ muốn có thể nghe những gì tôi viết to. Nó làm cho từ ngữ nghèo nàn rõ ràng hơn.

Vâng, Microsoft đã làm điều đó một lần nữa. Chuyển văn bản thành giọng nói đã bị xóa khỏi Word 2007.
May mắn thay, có một cách khá dễ dàng để thực hiện nó với một chút mã macro.

Bài viết Từ văn bản để nói mô tả cách thêm vào hai nút Word bằng cách sử dụng macro VBA, speakText và StopSpeaking.

Chuyển văn bản thành giọng nói trong MS Word 2007

Dưới đây là các macro để kích hoạt TTS. Các macro này nên được đưa vào trong bình thường.

Nhấn Alt + F11 để chỉnh sửa macro và dán mã này. Bạn cần thêm ba nút vào thanh công cụ truy cập nhanh. Bạn có thể thực hiện việc này bằng cách nhấp vào mũi tên hướng xuống nhỏ nói với Tùy chỉnh thanh công cụ truy cập nhanh vào thanh trên tiêu đề của từ MS nơi bạn sẽ tìm thấy các nút lưu, hoàn tác và làm lại. Chọn các lệnh khác Thêm vào trong menu thả xuống để mở các tùy chọn Word Word Cửa sổ. Chọn Tùy chỉnh tùy chỉnh trên menu bên trái và chọn Chọn từ Lệnh nên được đặt thành Chế độ Macros. Thêm tất cả ba macro và điều này sẽ tạo ra ba nút trên thanh công cụ truy cập nhanh. Bây giờ từ MS của bạn đã được bật TTS.

Option Explicit
Dim speech As SpVoice
Dim i As Integer

Sub SpeakText()
On Error Resume Next
If i = 0 Then
  Set speech = New SpVoice
  If Len(Selection.Text) > 1 Then 'speak selection
  speech.Speak Selection.Text, _
  SVSFlagsAsync + SVSFPurgeBeforeSpeak
  Else 'speak whole document
  speech.Speak ActiveDocument.Range(0, _
    ActiveDocument.Characters.Count).Text, _
    SVSFlagsAsync + SVSFPurgeBeforeSpeak
  End If
Else
  If i = 1 Then
  speech.Resume
  i = 0
  End If
End If
End Sub

Sub StopSpeaking()
On Error Resume Next
speech.Speak vbNullString, SVSFPurgeBeforeSpeak
Set speech = Nothing
i = 0
End Sub

Sub PauseSpeaking()
On Error Resume Next
If i = 0 Then
  speech.pause
  i = 1
Else
  If i = 1 Then
  speech.Resume
  i = 0
  End If
End If
End Sub

Nguồn

Bạn luôn có thể thử sao chép / dán văn bản vào Đọc . Nó có phiên bản miễn phí và trả phí, và phiên bản miễn phí hoạt động tuyệt quá! Chỉ cần cài đặt, sao chép dán văn bản của bạn, và bạn tắt! :)