Credits go to Rupp & Jon00. It's a combination of both their scripts!
Sub Main
Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
objXMLDoc.async = false
objXMLDoc.load("http://dictionary.reference.com/wordoftheday/wotd.rss")
set sData = objXMLDoc.selectSingleNode("rss/channel/item/description")
splData = split(sData.text,":")
hs.speak ("The word of the day is, " & splData(0) &". " & splData(0) & " is spelled, " )
For I = 1 to Len(splData(0))
hs.speak (UCase(Mid(splData(0),I,1)))
Next
hs.speak (", The definition of, " & splData(0) & " ,is, " & splData(1) )
End Sub
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
- If your post is deemed to be spam-free and relevant to the community, it will be approved and you'll be able to post freely here.
- If your post is deemed to be spam, your post will be deleted and your account will be permanently banned.