vb6将图片和数据保存到word中的方法

vb6将图片和数据保存到word中的方法：
前提是你已经在vb程序中将图形（picture1）画好了，而且数据已经计算出来了。

在工程/引用中加入这个引用：Microsoft Word 11.0 Object Library
新建一个text（名字为Text1，并设置为不可见）和picturebox（名字为Final，并设置为不可见）
    On Error Resume Next
   
    Public MyWord As Object      
    Public NewDoc As Object      
    Set MyWord = CreateObject("Word.Application")  '创建一个word对象
    MyWord.Visible = True
    MyWord.Caption = "文档名字"
    Set NewDoc = MyWord.Documents.Add
    '图片保存
    Me.Final.Height = Me.picture1.Height
    Me.Final.Width = Me.picture1.Width    
    Me.Final.Height = Me.picture1.Height    'picture1为待存入word的图片
    Me.Final.Width = Me.picture1.Width
            'vbSrcCopy：源位图直接覆盖目标位图
    BitBlt Me.Final.hdc, 0, 0, Me.Final.Width, Me.Final.Height, Me.picture1.hdc, 0, 0,vbSrcCopy
    Me.Final.Picture = Me.Final.Image

    Set Me.Final.Picture = Me.Final.Image
    SavePicture Me.Final.Picture, "C:/1.bmp"   '将图像Final保存到 C:/1.bmp
    Clipboard.Clear                            '清除剪贴板
     Clipboard.SetData Me.Final.Picture         'vbCFBitmap 图片框中图片装入剪贴板
     MyWord.Selection.Paste                     '将剪贴板中的图像复制到Word文档中
     MyWord.Selection.TypeText (vbCrLf)         '换行
    '数据保存
     Me.Text1.Text = "***" & data     'data为存数据的变量 
    '如果需要换行
      Me.Text1.Text = Me.Text1.Text & vbCrLf & “***” 'vbCrLf 用来换行
      Clipboard.Clear                ' 清除剪贴板。
      Clipboard.SetText Me.Text1.Text   ' 将正文放置在剪贴板上。
      MyWord.Selection.Paste
     MyWord.Selection.TypeText (vbCrLf)

       Kill "C:/1.bmp"                                        '删除创建的图像
       Clipboard.Clear                                         '清除剪贴板
       Me.Final.Cls
       Set NewDoc = Nothing
       Set MyWord = Nothing       '清除对象
图像和数据存入word后，就可以使用word自带的打印功能了。