专栏首页VB小源码vba/vb6 生成word示例(以生成投标文件封面为例)

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

注意:需要引用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

本文分享自微信公众号 - VB小源码(vb_xym)

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-05-02

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • angularJS学习之路(四)---作用域(1)

    这里提到的“作用域”的概念,是一个在范围上与 DOM 结构一致,数据上相对于某个 $scope 对象的属性的概念。我们还是从 HTML 代码上来入手:

    wust小吴
  • 死磕 java集合之TreeSet源码分析

    TreeSet底层是采用TreeMap实现的一种Set,所以它是有序的,同样也是非线程安全的。

    彤哥
  • 实习杂记(27):如何解决Java.lang.NoClassDefFoundError

    其中第7点就是我碰到的原因,在android中主dex调用子dex的类,那肯定是不行的,因为那个时候子dex还没有加载,那么调用的类肯定就不行了,

    wust小吴
  • 死磕 java集合之LinkedHashMap源码分析

    LinkedHashMap内部维护了一个双向链表,能保证元素按插入的顺序访问,也能以访问顺序访问,可以用来实现LRU缓存策略。

    彤哥
  • 前端之 JavaScript 知识点小结

    当你需要有跨域的请求操作时发送请求给后端,让后端帮你代为请求,然后最后将获取的结果发送给你。

    AiSmart4J
  • 【Rust日报】 2019-05-20:经过3年零8个月的工作,WebRender将向稳定的用户发货!

    对Rust感兴趣的Scala开发人员可以来看看,对比Scala和Rust的语法和思想。

    MikeLoveRust
  • 死磕 java集合之LinkedHashSet源码分析

    上一节我们说HashSet中的元素是无序的,那么有没有什么办法保证Set中的元素是有序的呢?

    彤哥
  • ChannelHandler之间处理数据格式转换与Netty自带的Channelhandler

    Netty实现数据格式转换的方式是继承实现ByteToMessageDecoder和MessageToByteEncoder。

    爬蜥
  • Java 学习笔记(11)——多线程

    Java内部提供了针对多线程的支持,线程是CPU执行的最小单位,在多核CPU中使用多线程,能够做到多个任务并行执行,提高效率。

    Masimaro
  • angularJS学习之路(七)---子控制器关于是引用机制还是复制机制的问题---原型继承

    原型继承 要弄清一点:    修改父级对象中的alue值会同时修改 子对象中的alue值,但是反过来就不行了,

    wust小吴

扫码关注云+社区

领取腾讯云代金券