vba/vb6 生成word示例(以生成投标文件封面为例)

Option Explicit

Private Sub Command1_Click()

    Dim WordApp, Word As Variant
    Set WordApp = CreateObject("Word.Application")
    Set Word = WordApp.Documents.Add
    WordApp.Visible = True
     Dim Table
    With Word
    .Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"
    .Paragraphs(.Paragraphs.Count).Range.Font.Size = 9
    .Paragraphs(.Paragraphs.Count).Range.Font.Bold = True
    .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft
    .Content.InsertAfter "投标文件編号:" & Text1.Text & vbCrLf & vbCrLf & vbCrLf
    
    .Paragraphs(.Paragraphs.Count).Range.Font.Name = "黑体"
    .Paragraphs(.Paragraphs.Count).Range.Font.Size = 14
    .Paragraphs(.Paragraphs.Count).Range.Font.Bold = False
    .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft
    .Paragraphs(.Paragraphs.Count).Range.Font.Underline = wdUnderlineSingle
    .Content.InsertAfter "    " & Text2.Text & "    采购及安装" & vbCrLf

    .Paragraphs(.Paragraphs.Count).Range.Font.Name = "隶书"
    .Paragraphs(.Paragraphs.Count).Range.Font.Size = 40
    .Paragraphs(.Paragraphs.Count).Range.Font.Bold = True
    .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter
    .Paragraphs(.Paragraphs.Count).Range.Font.Underline = wdUnderlineNone
    .Content.InsertAfter vbCrLf & "投 标 文 件" & vbCrLf & vbCrLf & vbCrLf

    .Paragraphs(.Paragraphs.Count).Range.Font.Name = "隶书"
    .Paragraphs(.Paragraphs.Count).Range.Font.Size = 20
    .Paragraphs(.Paragraphs.Count).Range.Font.Bold = True
    .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter
    .Content.InsertAfter vbCrLf


    .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter
    .Tables.Add Range:=.Range(Start:=.Range.End - 1, End:=.Range.End), NumRows:=8, NumColumns:=2, _
    DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed

    Dim h, zt, wt
    h = 15: zt = 14: wt = "宋体"
    
    With .Tables(1)
    

        .Cell(1, 1).Range.Font.Name = wt
        .Cell(1, 1).Range.Font.Size = zt
        .Cell(1, 1).Range.Font.Bold = True
        .Cell(1, 1).Range.Rows.Height = h
        .Cell(1, 1).Range.Text = "招标代理机构"
        
        .Cell(2, 1).Range.Font.Name = wt
        .Cell(2, 1).Range.Font.Size = zt
        .Cell(2, 1).Range.Font.Bold = True
        .Cell(2, 1).Range.Rows.Height = h
        .Cell(2, 1).Range.Text = "采   购   人"
        
        .Cell(3, 1).Range.Font.Name = wt
        .Cell(3, 1).Range.Font.Size = zt
        .Cell(3, 1).Range.Font.Bold = True
        .Cell(3, 1).Range.Rows.Height = h
        .Cell(3, 1).Range.Text = "供   应   商"
        
        .Cell(4, 1).Range.Font.Name = wt
        .Cell(4, 1).Range.Font.Size = zt
        .Cell(4, 1).Range.Font.Bold = True
        .Cell(4, 1).Range.Rows.Height = h
        .Cell(4, 1).Range.Text = "地        址"
        
        .Cell(5, 1).Range.Font.Name = wt
        .Cell(5, 1).Range.Font.Size = zt
        .Cell(5, 1).Range.Font.Bold = True
        .Cell(5, 1).Range.Rows.Height = h
        .Cell(5, 1).Range.Text = "法 定 代 表 人"
        
        .Cell(6, 1).Range.Font.Name = wt
        .Cell(6, 1).Range.Font.Size = zt
        .Cell(6, 1).Range.Font.Bold = True
        .Cell(6, 1).Range.Rows.Height = h
        .Cell(6, 1).Range.Text = "联 系 电 话"

        .Cell(7, 1).Range.Font.Name = wt
        .Cell(7, 1).Range.Font.Size = zt
        .Cell(7, 1).Range.Font.Bold = True
        .Cell(7, 1).Range.Rows.Height = h
        .Cell(7, 1).Range.Text = "开 标 日 期"
        
        .Cell(8, 1).Range.Font.Name = wt
        .Cell(8, 1).Range.Font.Size = zt
        .Cell(8, 1).Range.Font.Bold = True
        .Cell(8, 1).Range.Rows.Height = h
        .Cell(8, 1).Range.Text = "文 件 类 型"
        
        ''-----------------------------------------------
        .Cell(1, 2).Range.Font.Name = wt
        .Cell(1, 2).Range.Font.Size = 14
        .Cell(1, 2).Range.Font.Bold = True
        .Cell(1, 2).Range.Rows.Height = h
        .Cell(1, 2).Range.Text = Text3.Text
        
        .Cell(2, 2).Range.Font.Name = wt
        .Cell(2, 2).Range.Font.Size = 14
        .Cell(2, 2).Range.Font.Bold = True
        .Cell(2, 2).Range.Rows.Height = h
        .Cell(2, 2).Range.Text = Text4.Text
        
        .Cell(3, 2).Range.Font.Name = wt
        .Cell(3, 2).Range.Font.Size = 14
        .Cell(3, 2).Range.Font.Bold = True
        .Cell(3, 2).Range.Rows.Height = h
        .Cell(3, 2).Range.Text = Text5.Text
        
        .Cell(4, 2).Range.Font.Name = wt
        .Cell(4, 2).Range.Font.Size = 14
        .Cell(4, 2).Range.Font.Bold = True
        .Cell(4, 2).Range.Rows.Height = h
        .Cell(4, 2).Range.Text = Text6.Text
        
        .Cell(5, 2).Range.Font.Name = wt
        .Cell(5, 2).Range.Font.Size = 14
        .Cell(5, 2).Range.Font.Bold = True
        .Cell(5, 2).Range.Rows.Height = h
        .Cell(5, 2).Range.Text = Text7.Text
        
        .Cell(6, 2).Range.Font.Name = wt
        .Cell(6, 2).Range.Font.Size = 14
        .Cell(6, 2).Range.Font.Bold = True
        .Cell(6, 2).Range.Rows.Height = h
        .Cell(6, 2).Range.Text = Text8.Text

        .Cell(7, 2).Range.Font.Name = wt
        .Cell(7, 2).Range.Font.Size = 14
        .Cell(7, 2).Range.Font.Bold = True
        .Cell(7, 2).Range.Rows.Height = h
        .Cell(7, 2).Range.Text = Text9.Text
        
        .Cell(8, 2).Range.Font.Name = wt
        .Cell(8, 2).Range.Font.Size = 14
        .Cell(8, 2).Range.Font.Bold = True
        .Cell(8, 2).Range.Rows.Height = h
        .Cell(8, 2).Range.Text = Text10.Text
  

    End With
    ''***********************
    Dim oTable
    For Each oTable In .Tables
        oTable.AutoFitBehavior (wdAutoFitWindow)
        oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        oTable.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
        DoEvents
    Next
   ''*************************


    End With


    Word.SaveAs "C:\Users\" & Application.UserName & "\Desktop\VB6WORD.doc", True
    

    Set Word = Nothing
    Set WordApp = Nothing

End Sub

Private Sub Form_Load()
        Text1.Text = Format(Now, "yyyy-MMdd-HHmmss")
        Text2.Text = "微信公众号关注:VB小源码"
        Text3.Text = "VB小源码"
        Text4.Text = "VB小源码"
        Text5.Text = "VB小源码"
        Text6.Text = "VB小源码"
        Text7.Text = "VB小源码"
        Text8.Text = "11111111111"
        Text9.Text = Now
        Text10.Text = "A"
End Sub