在VB中利用Word宏命令开发ASP组件

作者：杨忠勋
专业：计算机软件开发及应用
语言能力：tofel633 gre2140
email:[e-mail]

      在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       列数