長文件閱讀拖捲軸累手、盯螢幕累眼。Word 2003 內建「自動捲屏」命令隱藏於「所有命令」中,配合 VBA 呼叫 Excel Speech.Speak 朗讀選取文字,打造「聽書級」閱讀體驗,零成本、零外掛。
Sub ReadSelection()
Dim xlApp As New Excel.Application
xlApp.Speech.Speak Selection.Text
Set xlApp = Nothing
End Sub
插入 → 模組 → 貼上代碼。工具 → 參考 → 勾選 Microsoft Excel 11.0 Object Library(版本號視安裝 Office 版本而定)。ReadSelection → 系統語音朗讀。現代替代:Word 365 內建「朗讀」功能(
檢視 → 浸入式閱讀器 → 朗讀),支援中英混讀、語速調整、語音選擇,無需 VBA 跨應用程式呼叫,建議優先使用原生功能。