内容发布更新时间 : 2025/5/21 23:27:13星期一 下面是文章的全部内容请认真阅读。
示 例：
2.1.15 GetDocumentObject 原 型: IDispatch* GetDocumentObject(); 功 能：
获取文档对象的ActiveDocument对象，此接口非常重要，基本所有的VBA功能都可以通过这个接口来实现。 参 数：
返回值: ActiveDocument对象的Dispatch 示 例：
/* 以下的JavaScript为采用ActiveDocument的方式直接操作VBA，向DOC文档的书签
中加入一个图片。
function AddPicture(strMarkName,strBmpPath,vType) 在书签位置插入图片, strMarkName 书签的名称 strBmpPath 图片的路径
vType 插入后的图片的样式，5为浮动在文字上面 AddPicture(\ AddPicture(\ */
function AddPicture(strMarkName,strBmpPath,vType) {
//定义一个对象，用来存储ActiveDocument对象 var obj;
obj = new Object(document.all.WebOffice1.GetDocumentObject()); if(obj !=null){
var pBookMarks;
// VAB接口获取书签集合
pBookMarks = obj.Bookmarks; var pBookM;
// VAB接口获取书签strMarkName
pBookM = pBookMarks(strMarkName); var pRange;
// VAB接口获取书签strMarkName的Range对象
pRange = pBookM.Range; var pRangeInlines;
// VAB接口获取书签strMarkName的Range对象的InlineShapes对象
pRangeInlines = pRange.InlineShapes; var pRangeInline;
// VAB接口通过InlineShapes对象向文档中插入图片
pRangeInline = pRangeInlines.AddPicture(strBmpPath);
//设置图片的样式，5为浮动在文字上面
pRangeInline.ConvertToShape().WrapFormat.TYPE = vType; delete obj;
} }
2.1.16 GetFieldValue 原 型: BSTR GetFieldValue(BSTR strFieldName, BSTR strSheetName); 功 能：获得书签位置的数值 参 数：
strFieldName：书签的名字
strSheetName：预留字段（值为空