[讨论]关于vbs自动生成word文档

acezhang

现在的代码如下，可是好像红色的code不起作用

现在就是想询问一下对于修改文本的格式，如居中，修改字体这些如何实现

还有想给图片加黑色边框，如何用vbs实现

帮我一下吧，thx

'*******************************************************************************
Set Word = CreateObject("Word.Application")
Word.Documents.Add

Word.Selection.MoveDown 5, 1000
Word.Selection="统计结果"
Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Word.Selection.Style = Word.ActiveDocument.Styles("标题 1")

Word.Selection.MoveDown 5, 1000
Word.Selection.TypeParagraph

Word.Selection.MoveDown 5, 1000
Word.Selection="统计子项详细信息"
Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Word.Selection.Style = Word.ActiveDocument.Styles("标题 2")

Word.Selection.MoveDown 5, 1000
Word.Selection.TypeParagraph

Word.Selection.TypeParagraph

Word.Selection ="11 12 13 14 15 16 "+ vbCrLf+ _
"21 22 23 24 25 26 "+ vbCrLf+ _
"31 32 33 34 45 46 "+ vbCrLf+ _
"41 42 43 44 45 56 "

Word.Selection.ConvertToTable 100, 100, 0, 0
With Word.Selection.Tables(1)
        If .Style <> "网格型" Then
            .Style = "网格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
End With

Word.ActiveDocument.SaveAs ("test.doc")
Word.Quit (False)
Set Word = Nothing
'*******************************************************************************

守柔

请楼主注意两个事：

相同或者相关内容的贴子，请在同一主题贴中进行！

VBA与VBS是两个不同的编辑器（编程语言），请注意你的描述！

VBS我不是太懂的，VBA来凑个数吧：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-9-7 6:01:03
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0069^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub Example()
    Dim myDoc As Document, myRange As Range, myTable As Table
    Dim tabString() As Variant, oCell As Cell, N As Byte, myPicture As InlineShape
    Application.ScreenUpdating = False
    tabString = Array("列1", "列2", "列3", "列4", "列5", "aaa", "123", "456", "xxx", "zzz", _
                      "bbb", "345", "789", "yyy", "uuu")
    'Set myDoc = Word.Documents.Add
    Set myDoc = ThisDocument
    Set myRange = myDoc.Range(myDoc.Content.End - 1, myDoc.Content.End - 1)
    With myRange
        .InsertAfter "范例标题" & Chr(13)
        .Style = "标题 1"
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        .SetRange myDoc.Content.End - 1, myDoc.Content.End - 1
        .InsertAfter "标题 2" & Chr(13)
        .Style = "标题 2"
        .SetRange myDoc.Content.End - 1, myDoc.Content.End - 1

守柔

        Set myTable = .Tables.Add(Range:=myRange, numrows:=3, numcolumns:=5)
        With myTable
            .Style = "网格型"
            .Rows(1).Range.Font.Bold = True
            .Rows(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            For Each oCell In myTable.Range.Cells
                oCell.Range.Text = tabString(N)
                N = N + 1
            Next
        End With
        Word.CaptionLabels.Add Name:="表"
        With Word.CaptionLabels("表")
            .NumberStyle = wdCaptionNumberStyleArabic
            .IncludeChapterNumber = True
            .ChapterStyleLevel = 2
            .Separator = wdSeparatorEnDash
        End With
        Word.CaptionLabels.Add Name:="图"
        With Word.CaptionLabels("图")
            .NumberStyle = wdCaptionNumberStyleArabic
            .IncludeChapterNumber = True
            .ChapterStyleLevel = 2
            .Separator = wdSeparatorEnDash
        End With
        myTable.Range.InsertCaption Label:="表", TitleAutoText:="", Title:="", Position _
                                                                            :=wdCaptionPositionAbove, ExcludeLabel:=0
        myRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .SetRange myDoc.Content.End - 1, myDoc.Content.End - 1
        myRange.InsertAfter Chr(13)
        .SetRange myDoc.Content.End - 1, myDoc.Content.End - 1
        Set myPicture = myDoc.InlineShapes.AddPicture(FileName:="C:\Documents and Settings\shourou\My Documents\My Pictures\PROCESS_Start.bmp", Range:=myRange)
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        myPicture.Range.InsertCaption Label:="图", TitleAutoText:="", Title:="", Position _
                                                                              :=wdCaptionPositionBelow, ExcludeLabel:=0
    End With
    Application.ScreenUpdating = False
End Sub
'----------------------

acezhang

之前不太清楚，以后注意

下不为例

先谢过了，试试再说

duke008

将"wdAlignParagraphCenter"改为 "Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter"试试.

顺便问一下,你的开发环境是visual studio 2005吗?用的vb吗?

duke008

其实如果你用模板的话就不会这么麻烦了,在模板中的指定位置调好格式,插入书签,就不用写这些调格式的代码了.

在vb.net下的用如下语句以指定模板新建文档

        MyWord = CreateObject("word.application")
        MyWord.Visible = True
        MyDoc = MyWord.Documents.Add(Template:=dotname)

其中dotname是模板文件的路径

acezhang

我的开发环境是vc.net

我也想用模板的，只是还不知道怎么用书签

其实还有一个域我也很想用

只是一直找不到例子，不知如何使用

对了，你们现在所会的都是用vba写的吧

我现在把vba和vbs都混在一起了

acezhang

ps 把我的那段code copy下来另存为*.vbs

可以自动生成文档的

duke008

我举个例子来说一下模板和书签吧,假设你要生成的文档包括如下内容:

第一行是固定的两个字"标题",要求黑体四号字居中

第二行是从数据库导出的内容,要求宋体五号字

那么你可以建这样一个模板:

第一行是固定的两个字"标题",将其格式调整为黑体四号字居中

第二行插入书签,假设书签名为"head",把格式调整为宋体五号字

将这个模板存为一个dot模板文件或是直接存成doc文档,看你生成文件时的要求了.

假设你读取数据库,每条记录生成一个文档,那么用dot文件比较方便,每读取一条记录,以该模板文件为模板来创建一个word文档,然后定位到书签位置,插入指定字段的内容;如果所有记录生成到一个文档,那么模板文件存为doc文件比较方便,每读取一条记录,插入一次该模板,然后定位到书签位置,插入指定字段的内容,然后删除书签.

我使用较多的是vba,但有时vba的功能不能满足需要,就用vb.net了.

[此贴子已经被作者于2006-9-7 17:29:43编辑过]

gues1688

VBS知道一点，我来分析几行试试：

Word.Selection="统计结果"
Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Word.Selection.Style = Word.ActiveDocument.Styles("标题 1")

第1行不用说了，第2行代码，在VBS中是不认识wdAlignParagraphCenter的，幸好可以通过VBA的调试功能获取wdAlignParagraphCenter的数值（debug.print wdAlignParagraphCenter）,其值等于1，这样第2行代码在VBS中应写为如下

Word.Selection.ParagraphFormat.Alignment = 1

可是运行这3行代码，似乎仍得不到结果，原因是第3行代码，把第2行的段落居中改了。知道原因就好办了，把上面3行代码改为如下就行了：

Word.Selection="统计结果"
Word.Selection.Style = Word.ActiveDocument.Styles("标题 1")
Word.Selection.ParagraphFormat.Alignment = 1

其它各行代码的分析，大体相似

[此贴子已经被作者于2006-9-7 23:43:57编辑过]