iWebOffice2004调用VBA脚本解释及翻译(9) //取得标签对象 var mBookmarks=WebFindBookmarks(VBmName); if (mBookmarks){ //设置该标签的内容为新值 mBookmarks.Text=VBmValue; //重新设置为标签 webform.WebOffice.ActiveDocument.Bookmarks.Add(VBmName, mBookmarks); } }
//取得标签内容 function GetBookmarks(VBmName){ var VBmValue=""; //取得标签对象 var mBookmarks=WebFindBookmarks(VBmName); if (mBookmarks){ //取得内容 VBmValue=mBookmarks.Text; } return VBmValue; }
//调用打印 function WebOpenPrint(){ try{ //调用打印功能,true表示显示打印设置,false表示直接打印 webform.WebOffice.PrintOut(true); StatusMsg(webform.WebOffice.Status); }catch(e){} }
//调用打印页面设置对话匡 function WebOpenPageSetup(){ try{ if (webform.WebOffice.FileType==".doc"){ //如果是Word webform.WebOffice.ActiveDocument.Application.Dialogs(178).Show();