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

wxhwhmanshan

                             作者：杨忠勋

                              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 '列数
                              Dim rowMax As Integer '行数
                              Dim wdcell As Integer '宽
                              Dim UnitEnd As Integer '截取结束点
                              Dim UnitName As String '单位名称
                              Dim BbDate As String '报表期别


                              wdcell = 12
                              colMax = MyRecord.Fields.count
                              rowMax = MyRecord.RecordCount

                              WdApp.Documents.Add

                              '获取报表单位
                              UnitEnd = InStr(sBBDetail, "期别")
                              UnitName = Mid(sBBDetail, 1, UnitEnd - 2)
                              BbDate = Mid(sBBDetail, UnitEnd, Len(sBBDetail))

                              If MyRecord.Fields.count >= 10 Then
                              WdApp.ActiveDocument.PageSetup.Orientation =
                              wdOrientLandscape
                              Else
                              WdApp.ActiveDocument.PageSetup.Orientation =
                              wdOrientPortrait
                              End If

                              '报表名称
                              WdApp.Selection.Font.Bold = wdToggle
                              WdApp.Selection.Font.Size = 14
                              WdApp.Selection.TypeText (sbbmc)
                              WdApp.Selection.ParagraphFormat.lignment =
                              wdAlignParagraphCenter
                              WdApp.Selection.Font.Bold = wdToggle
                              WdApp.Selection.TypeParagraph

                              '报表单位名称
                              WdApp.Selection.Font.color = wdColorBlack
                              WdApp.Selection.Font.Size = 11
                              WdApp.Selection.TypeText (UnitName)
                              WdApp.Selection.ParagraphFormat.Alignment =
                              wdAlignParagraphCenter
                              WdApp.Selection.TypeParagraph

                              '报表期别
                              WdApp.Selection.TypeText (BbDate)
                              WdApp.Selection.ParagraphFormat.Alignment =
                              wdAlignParagraphCenter
                              WdApp.Selection.TypeParagraph
                              WdApp.Selection.TypeParagraph

                              '生成列头
                              'wdApp.Selection.HomeKey wdLine, wdExtend
                              'dApp.Selection.Font.Bold = wdToggle

                              WdApp.ActiveDocument.Tables.Add
                              WdApp.Selection.Range, rowMax, colMax
                              Dim i As Integer
                              Do
                              For colloop = 0 To colMax - 1
                              WdApp.Selection.Font.Size = 9

                              If i = 0 Then

                              '表格中标题加粗显示
                              WdApp.Selection.Font.Bold = wdToggle

                              '表格标题行背景颜色设置为灰色,灰度为30
                              With WdApp.Selection.Cells
                              With .Shading
                              .Texture = wdTextureNone
                              .ForegroundPatternColor = wdColorAutomatic
                              .BackgroundPatternColor = wdColorGray30
                              End With
                              End With

                              End If
                              '最后一行右对齐，其余左对齐
                              If i > 0 Then
                              If MyRecord.Fields.Item(colloop).Name = "ZBMC" Or
                              MyRecord.Fields.Item(colloop).Name = "指标名称" Then
                              WdApp.Selection.ParagraphFormat.Alignment =
                              wdAlignParagraphLeft
                              Else
                              WdApp.Selection.ParagraphFormat.Alignment =
                              wdAlignParagraphRight
                              End If
                              End If


                              If i = 0 And (MyRecord.Fields.Item(colloop).Name =
                              "SXH" Or MyRecord.Fields.Item(colloop).Name =
                              "顺序号") Then
                              WdApp.Selection.TypeText ("序号")
                              Else
                              WdApp.Selection.TypeText
                              (CStr(MyRecord.Fields.Item(colloop).value))
                              End If
                              If (i <> rowMax - 1 Or (i = rowMax - 1 And colloop
                              < colMax - 1)) Then
                              WdApp.Selection.MoveRight (wdcell)
                              End If
                              Next
                              i = i + 1
                              MyRecord.MoveNext
                              Loop Until MyRecord.EOF

                              WdApp.ActiveDocument.SaveAs DocFileName, 0, False,
                              "", True, "", False, False, False, False, False
                              WdApp.Quit

                              SaveAsWord = 1
                              Exit Function

                              Err_All:
                              Set WdApp = Nothing
                              SaveAsWord = -1
                              OutMessage = err.Description
                              Exit Function
                              End Function

                              好了，到此为止，我想你们对在VB中利用Word宏命令开发ASP组件，有了一些了解。只要多使用，就会很快熟悉的。
                         发布人：cdfse