Try this:
sub sc()
set shell = createobject("WScript.Shell")
desktoppath = shell.specialfolders("Desktop")
set link = shell.createshortcut(desktoppath & "\WORD.lnk")
link.arguments=""
link.description = "Microsoft Word"
link.targetpath="C:\Program Files\Microsoft Office\Office\WINWORD.EXE"
link.save
set shell = nothing
set link = nothing
end sub
NOTE:
link.arguments=you can specify the name of an exixting DOC file
link.targetpath=may vary on your PC
