新功能:vba接口增加新建word表单
首发版本:14.0.76 首发日期:2018/12/25
功能描述:
1、VBA接口增加NewWordReport([word模板名称])、NewWordReportByNo([word模板编号])
2、VBA接口增加AddWordParam([参数名称],[参数值]),可以为word参数赋值。
3、点击VBA按钮后,弹出选择保存目录窗口。
4、如果word模板需要输入word参数,但vba程序没有调用AddWordParam()给全部参数赋值,则在点击vba按钮后,先弹出word参数录入窗口,并把已赋值的参数的值自动填入,点击确定,再弹出选择保存目录窗口。也就是说全部或部分word参数可以通过vba代码进行初始化,而不是像在我的工作台上一样,必须要手工录入。
5、模板名称、模板编号错误时弹出提示,无权限时弹出提示。
示例代码:
Sub word()
Dim oAdd As Object
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
oAdd.AddWordParam "参数1", Range("B1").Value
oAdd.AddWordParam "参数2", Range("C1").Value
oAdd.NewWordReport "word模板名称"
'oAdd.NewWordReportByNo "word模板编号"
Set oAdd = NothingEnd Sub
|