The hyperlink part is straightforward, and can be done with just a few
lines of code.

Dim h As Hyperlink

Set h = ActiveSheet.Hyperlinks.Add(Range("A1"), "http://www.yahoo.com")
h.Follow

Set h = Nothing

I'll let someone else answer the Word part of the question since I
haven't automated Word in a whole, but "Yes" it can be done.