The below code in provides dialogue in MS Excel. Is there a similar code that provides Dialogue in MS Word, MS Access and MS Outlook.

Code:
Sub UseSpeech()
 
 Application.Speech.Speak "NOW TEACHER I WORKED VERY HARD ON THIS PROJECT AND I THINK I DESERVE AN A"
 
End Sub