|
楼主 |
发表于 2014-8-12 13:04:39
|
显示全部楼层
// VBA操作word文档
$("#div1").text(arguments.callee.toString());
// 获取 officeEditor的环境
var context = event.officeEditorContext;
var params = [ {
"title" : "拟稿人",
"value" : "system",
"title2" : "拟稿时间",
"value2" : "2014-01-01"
}, {
"title" : "核稿人",
"value" : "system",
"title2" : "核稿时间",
"value2" : "2014-01-01"
}, {
"title" : "签发人",
"value" : "system",
"title2" : "签发时间",
"value2" : "2014-01-01"
}, {
"title" : "登记人",
"value" : "system",
"title2" : "登记时间",
"value2" : "2014-01-01"
}, {
"title" : "拟办人",
"value" : "system",
"title2" : "拟办时间",
"value2" : "2014-01-01"
}, {
"title" : "承办人",
"value" : "system",
"title2" : "承办时间",
"value2" : "2014-01-01"
}, {
"title" : "协办",
"value" : "system",
"title2" : "协办时间",
"value2" : "2014-01-01"
} ];
/*
* context.execute(fn,params) fn将传递到officeEditor中执行,
* params为fn将要用到的本页数据,在这里传递
*/
context.execute(function() {
debugger;
var ovObj = $OV2("ov");
var Selection = ovObj.GetApplication().Selection;
var ActiveDocument = ovObj.GetApplication().ActiveDocument;
var Tables = ovObj.GetApplication().Tables;
// 移动至文档首部
Selection.HomeKey(6);
// 插入分页符
Selection.InsertBreak(7);
// 在文档首部插入7*4表格
var myRange = ActiveDocument.Range(0, 0);
ActiveDocument.Tables.Add(myRange, 7, 4, 1, 1);
// 设置表格样式网格型
ActiveDocument.Tables(1).Style = "网格型";
}, params);
调试
我这边调试报错 对象不支持GetApplication()方法 帮忙看看
|
|