david henrie,北京军区政委,猫扑魔兽世界
作者:杨忠勋
专业:计算机软件开发及应用
语言能力:tofel633 gre2140
email:zhongxunyang@yahoo.com.cn
在mis的实际开发中,我们有时需要将当前页面上报表的数据以word文档的格式下载到本地,这种实现并不困难。但是有时我们需要对下载的word文档的格式做一些设置,比如标题颜色,字体大小,字间距等等,这时我们就要用到word自带的宏功能。
比如我们想将此报表的标题在word文档中以如下格式显示:14号字,加粗,居中对齐。首先我们需要在word中录制相应的宏命令。打开word,新建一文档,手动敲入一行字,然后选择工具->宏->录制新宏命令,为新宏取一个名字如macro1,执行以上动作(14号字,加粗,居中对齐),word自动将这些动作保存以相应的vbscript命令。然后选择工具->宏->宏命令,选择刚才我们定义的宏macro1,就可以查看其内容了。在此例中我们保存的宏命令如下:
selection.paragraphformat.alignment = wdalignparagraphcenter 居中对齐
selection.font.bold = wdtoggle 加粗显示
selection.font.size = 14 14号字
因为宏命令的脚本语言是vbscript,我们不需要做任何改动就可以将上面的语句在vb中使用。这样,我们就可以编写出如下vb代码,实现我们所要求的功能。代码如下:
wdapp.selection.font.bold = wdtoggle 加粗显示
wdapp.selection.font.size = 14 14号字
wdapp.selection.typetext ("报表标题") 报表标题
wdapp.selection.paragraphformat.lignment = wdalignparagraphcenter 居中对齐
wdapp.selection.font.bold = wdtoggle 取消加粗
同样,我们如想对word文档进行其他处理,重复以上的步骤就可以了。以下提供我的一个完整的对word文档进行处理的例子:
private function saveasword(byref myrecord as recordset, byval docfilename as string, byref outmessage as string) as integer
*************************************************************************
说明:将数据集中的数据另存为doc文件
参数:
myrecord 数据集
docfilename word文件的名称(无路径,路径见实例变量spath)
outmessage 操作的的返回信息
返回: 1成功 -1失败
*************************************************************************
初始化word应用
err.clear
on error goto err_all
dim wdapp as word.application
set wdapp = createobject("word.application")
插入数据
dim colloop as integer 列号
dim rowloop as integer 行号
dim colmax as integer 列数
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
Net Core Web Api项目与在NginX下发布的方法
asp.net core3.1 引用的元包dll版本兼容性问题解决方案
IdentityServer4实现.Net Core API接口权限认证(快速入门)
ASP.NET Core MVC通过IViewLocationExpander扩展视图搜索路径的实现
网友评论