'This is VBA in Excel
Dim thisBook as Workbook

'need to add ref in Tools/References
Dim otherApp as Word.Application 
Set otherApp = GetObject("Work.Application")
otherApp.Activate

'Send the keystrokes...
Application.SendKeys "keystrokes"