Teach Notepad to talk

I told you a couple of days ago about the simple Windows text editor Notepad. (Click here to read that article.) Today I’m going to teach you a fun little trick.

Open Notepad and then copy and paste the text below. Make sure to copy and paste, it must be exact.

Dim msg, sapi
msg=InputBox(“Enter your text for Conversation”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak msg

notepad-paste-code.jpg

Click File and choose Save as.

notepad-save-as.jpg

Change the name to audio.vbs and the file type to All Files. Then hit Save.

audiofile.jpg

Click the file to open.

audiofile-icon.jpg

This box will open.

enter-text-convo.jpg

Type any text in the box and hit OK. Your PC will now speak that text to you.

text-spoken.jpg

 

One thought on “Teach Notepad to talk

  1. Well—that was FUN! When I first looked at this article, I thought I didn’t need such foolishness. But it kept nagging at me, and this morning I tried it. It works for up to 254 characters. I need to learn more about sapi…. I’ll be looking online for information.

    Thanks!

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.