iWebOffice2004调用VBA脚本解释及翻译(8) if (webform.WebOffice.Error==""){ //如果是Word文件 if (webform.WebOffice.FileType==".doc"){ //替换所有的标签内容 for (mBookIdx = 1; mBookIdx<=webform.WebOffice.ActiveDocument.Bookmarks.Count;mBookIdx++){ //取出标签名 mBookName = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Name; //取出该标签对应的服务器上的数据 mBookValue = webform.WebOffice.WebGetMsgByName(mBookName); //如果该数据有值 if ((mBookValue)&&(mBookValue.length>0)) { //取得标签对应的对象 mBookObject = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Range; //设置为服务器数据 mBookObject.Text=mBookValue; //重新设置为标签 webform.WebOffice.ActiveDocument.Bookmarks.Add(mBookName, mBookObject); } } } } StatusMsg(webform.WebOffice.Status);}
//设置标签的内容function SetBookmarks(VBmName,VBmValue){