62,072
社区成员
发帖
与我相关
我的任务
分享
var wrd=new ActiveXObject( "Word.Application ")
wrd.visible=true
wrd.Documents.Open( "C:\\deal_table.doc ")
wrd.Application.Activate()
wrd.Application.ActiveDocument.Paragraphs(3).Range.Text=document.form1.f_swrq.value
wrd.Application.ActiveDocument.Paragraphs(5).Range.InlineShapes.AddPicture( "http://localhost/bangong/getfile/userupdata/ediapen/2006619946500.jpg ")
wrd.ActiveDocument.SaveAs( "c:\\test1.doc ")
wrd=null