※ この情報はOffice 2010 Public Beta版を元にしています。製品版では変更になる可能性がありますのでご注意ください。
Wordの読み上げ機能をマクロから実行します。
Sub SpeakTest()
On Error Resume Next
Call Application.CommandBars.ExecuteMso("PlaybackTipPlay")
If Err.Number <> 0& Then Debug.Print Err.Description
On Error GoTo 0
End Sub