|
sp; mBookName = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Name;
if (mBookName==mPosition) {
mBookObject = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Range;
break;
}
}
}
return (mBookObject);
}
//插入服务器图片
function WebInsertImage(vLabName,vImgName,vTrans,vZOrder)
{
//取得文件目录
var mFilePath=webform.WebOffice.WebMsgFilepath;
var mImgShape=null;
var mPassword=null;
//清除所有设置变量
webform.WebOffice.WebMsgTextClear();
//设置COMMAND 为 INSERTIMAGE 命令
webform.WebOffice.WebSetMsgByName("COMMAND","INSERTIMAGE");
//设置要插入的图片名称
webform.WebOffice.WebSetMsgByName("IMAGENAME",vImgName);
//发送到服务器上
webform.WebOffice.WebSendMessage();
//如果没有错误
if (webform.WebOffice.Error==""){
//将服务器返回的图片保存
webform.WebOffice.WebMsgFileSave(mFilePath+vImgName);
//如果没有错误
if (webform.WebOffice.Error==""){
//如果是word文档
if (webform.WebOffice.FileType==".doc"){
var mInlineShapes=null; //=webform.WebOffice.ActiveDocument.InlineShapes.Count;
//var mShapes=webform.WebOffice.ActiveDocument.Shapes.Count;
var mBookMark=WebFindBookmarks(vLabName);
if (mBookMark){
mInlineShares=mBookMark.InlineShapes.AddPicture(mFilePath+vImgName);
}else{
mInlineShares=webform.WebOffice.ActiveDocument.Application.Selection.InlineShapes.AddPicture(mFilePath+vImgName);
}
//if (mInlineShapes!=webform.WebOffice.ActiveDocument.InlineShapes.Count){
// mImgShape = webform.WebOffice.ActiveDocument.InlineShapes.Item(webform.WebOffice.ActiveDocument.InlineShapes.Count).ConvertToShape();
//}
//if (mShapes!=webform.WebOffice.ActiveDocument.Shapes.Count){
// mImgShape = webform.WebOffice.ActiveDocument.Shapes.Item(webform.WebOffice.ActiveDocument.Shapes.Count);
//}
mImgShape=mInlineShares.ConvertToShape();
mImgShape.Select();
mImgShape.PictureFormat.TransparentBackground = vTrans;
mImgShape.PictureFormat.TransparencyColor = 16777215;
mImgShape.Fill.Visible = false;
mImgShape.WrapFormat.Type = 3;
mImgShape.ZOrder(vZOrder);
}
//如果是Excel文档
if (webform.WebOffice.FileType==".xls"){
webform.WebOffice.ActiveDocument.ActiveSheet.Pictures.Insert(mFilePath+vImgName).Select();
mImgShape =webform.WebOffice.ActiveDocument.Application.Selection.ShapeRange;
mImgShape.PictureFormat.TransparentBackground = vTrans;
mImgShape.PictureFormat.TransparencyColor = 16777215;
mImgShape.Fill.Visible = false;
mImgShape.ZOrder(vZOrder);
}
}
//清除文件
webform.WebOffice.WebMsgFileClear(mFilePath+vImgName);
}
StatusMsg(webform.WebOffice.Status+webform.WebOffice.Error);
}
//套用模版定稿
function WebInsertFile()
{
//var mDialogUrl = "Version/VersionList.asp?RecordID="+webform.WebOffice.RecordID;
//var mObject = new Object();
// mObject.FileID = "";
// mObject.Result = false;
// window.showModalDialog(mDialogUrl, mObject, "dialogHeight:280px; dialogWidth:420px;center:yes;scroll:no;status:no;");
//if (mObject.Result){
//取得目录名称
var mFilePath=webform.WebOffice.WebMsgFilepath;
//取得文件类型
var mFileName=webform.WebOffice.RecordID+webform.WebOffice.FileType;
var mBookRange;
//保存当前文件
webform.WebOffice.Save(mFilePath+mFileName,true);
//如果没有问题
if (webform.WebOffice.Error==""){
//清除所有设置变量
webform.WebOffice.WebMsgTextClear();
//设置COMMAND为INSERTFILE
webform.WebOffice.WebSetMsgByName("COMMAND","INSERTFILE");
//设置需要调用的模版名称
webform.WebOffice.WebSetMsgByName("TEMPNAME","模板一.doc");
//发送该信息到服务器上
webform.WebOffice.WebSendMessage();
//如果没有错误
if (webform.WebOffice.Error==""){
//关闭当前文件
webform.WebOffice.Close();
//保存模版文件
webform.WebOffice.WebMsgFileSave(gFileName);
//如果没有错误
if (webform.WebOffice.Error==""){
//打开模版文件
webform.WebOffice.Open(gFileName,true);
//查找需要插入的位置(标签)
var mPosition=webform.WebOffice.WebGetMsgByName(''''POSITION'''');
if (mPosition.length>0){
mBookRange = WebFindBookmarks(mPosition);
}else{
mBookRange = webform.WebOffice.ActiveDocument.Range.Application.Selection;
}
//将原工作文档插入到该位置
mBookRange.InsertFile(mFilePath+mFileName);
}
}else{
alert(webform.WebOffice.Error);
}
}
//清楚文件
webform.WebOffice.WebMsgFileClear(mFilePath+mFileName);
StatusMsg(webform.WebOffice.Status)
}
//作用：表格生成及填充
function WebSetWordTable(){
var mText="",mName="",iColumns,iCells,iTable;
//清除所有设置变量
webform.WebOffice.WebMsgTextClear();
//设置COMMAND为WORDTABLE
webform.WebOffice.WebSetMsgByName("COMMAND","WORDTABLE"); //OfficeServer.asp COMMAND=WORDTABLE
//发送到服务器上
webform.WebOffice.WebSendMessage(); //OfficeServer.asp OPTION=SENDMESSAGE
//如果没有错误
if (webform.WebOffice.Error==""){
//取得列
iColumns = webform.WebOffice.WebGetMsgByName("COLUMNS");
//取得行
iCells = webform.WebOff 上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
[VB.NET程序]VBA (2)常数 [VB.NET程序]VBA (1)常数
[VB.NET程序]转贴(电脑报):VBA开发实用指南 [Access]ACCESS入门教程（十六）模块与“VBA”语言
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
