Code代码如下:
var doc = new ActiveXObject('Word.Application');
var range = doc.Range; //选择的区域
var sel = doc.Selection; //选择点
var seal_picture = doc.InlineShape; //嵌入型图片
var str ; //印章图片的路径和文件名
var seal_shape =doc.Shape; //粘贴版型图片
var docurl="C:\\temp\\"+document.forms[0].NewsTitleQG.value+".doc";
// doc.Visible = true;
doc.Documents.Open (docurl);
// doc.Application.Activate();
//获得书签位置
range = doc.ActiveDocument.Bookmarks("seal1").Range;
sel = range;
str = "D:\\印章\\南宁供电局合同印章2.bmp";
//插入图片
seal_picture = sel.InlineShapes.AddPicture(str);
//设置可用名
seal_picture.AlternativeText = "印章";
seal_picture.Select(); //当前图片为焦点
seal_shape = seal_picture.ConvertToShape(); //类型转换
seal_shape.WrapFormat.Type = 3; //图片类型
seal_shape.ZOrder(5); //5 图片沉于文字 ４ 图片浮于文字
doc.ActiveDocument.SaveAs("C:\\temp\\bb.doc");
doc=null;
Codevar seal_picture=TANGER_OCX_OBJ.ActiveDocument.InlineShape;
seal_picture=TANGER_OCX_OBJ.ActiveDocument.FormFields('CheckedBy').Range.InlineShapes.AddPicture('http://www.niyuewo.com\\aa\\aa.jpg');
seal_picture.Select(); //当前图片为焦点
seal_shape=seal_picture.ConvertToShape(); //类型转换
seal_shape.WrapFormat.Type = 3; //图片类型
seal_shape.ZOrder(5); //5 图片沉于文字 ４ 图片浮于文字