Untitled

Wscript.Echo "run test for defect 39930"
Set word = WScript.CreateObject("Word.Application")
Wscript.Echo "open the file"
word.documents.open("c:/andydocs/d39930.doc")
Wscript.Echo "Test1 "

word.Application.Run "phptest1"
word.Application.Run "phptest2", "string1"
word.Application.Run "phptest3", "strinm1", "string2"

Wscript.Echo "Test2 "
word.Application.Run "NewMacros.phptest1"
word.Application.Run "NewMacros.phptest2", "string1"
word.Application.Run "NewMacros.phptest3", "strinm1", "string2"

Wscript.Echo "Test3 "
word.Application.Run "Normal.NewMacros.phptest1"
word.Application.Run "Normal.NewMacros.phptest2", "string1"
word.Application.Run "Normal.NewMacros.phptest3", "strinm1", "string2"

Wscript.Echo "save and quit"
word.documents.save()
word.Quit()