Please try the following simple script to see if there is a problem with security settings:
Set objWord = CreateObject("Word.Application")
objWord.Caption = "Test Caption"
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "This is a simple test"
objSelection.TypeParagraph()
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
objDoc.SaveAs("D:\TEST\VBS\Word\testdoc.doc")
objWord.Quit
This script will create a simple documents with some simple content, by default, the document will be saved to the file path ("D:\TEST\VBS\Word\").
Max Meng
TechNet Community Support
