兜兜窝

VBSCRIPT代码：
<SCRIPT LANGUAGE="vbscript">
function word_onclick()
Set myDocApp = CreateObject("Word.Application")
myDocApp.Visible = True
myDocApp.Activate
set myDoc = myDocApp.Documents.Open("http://localhost/test/test.doc")
str = word_proc.textarea.value
myDoc.FormFields("test").Range = str

end function
</SCRIPT>

javascript代码：
<SCRIPT LANGUAGE="javascript">
function word_onclick()
{
var myDocApp =new ActiveXObject("word.Application");
myDocApp.visible = true;
myDocApp.activate();
var myDoc = myDocApp.documents.open("http://localhost/test/test.doc");
var str = word_proc.textarea.value;
myDoc.formFields("test").range = str;

}
</SCRIPT>