Dim oSH
Set oSH = WScript.CreateObject("WScript.Shell")

oSH.Run "winword.exe"
Do
WScript.Sleep 100
Loop Until oSH.AppActivate("Microsoft Word")

Wscript.sleep 100
oSH.SendKeys("Ich")
Wscript.sleep 100
oSH.SendKeys(" bin")
Wscript.sleep 100
oSH.SendKeys(" Winword!")
Wscript.sleep 100
oSH.SendKeys("{enter}{enter}")
Wscript.sleep 100
oSH.SendKeys("Dein")
Wscript.sleep 100
oSH.SendKeys(" Freund")
Wscript.sleep 100
oSH.SendKeys(" und")
Wscript.sleep 100
oSH.SendKeys(" Helfer!")