比如在一个自动生成的DOC文档中插入一图片,图片左右挨着图片有序地再插入一些说明性文字,请问怎么实现.最好能给出例子,谢谢

解决方案 »

  1.   

    不知道你想要做到什么要求。不过你自己可以在word里面录制宏代码,然后根据你的操作就可以找到对应的vba的代码,稍微改一下就可以在vb程序中直接使用
      

  2.   

    Public Function GetPic(PicData() As Byte, FileName As String) As Boolean
    Attribute GetPic.VB_Description = "把图像数据PicData,存为PicFile指定的文件"
    '********************************************************************************
    '     把图像数据PicData,存为PicFile指定的文件
    '********************************************************************************
    On Error Resume Next
    If Len(FileName) = 0 Then
        C_ErrMsg = 2
        RaiseEvent HaveError
        Exit Function
    End If
    Open FileName For Binary As #1
    If Err.Number <> 0 Then
        C_ErrMsg = 3
        Exit Function
    End If
    '二进制文件用Get,Put存放,读取数据
    Put #1, , PicData
    Close #1
    C_PicFile = FileName
    GetPic = True
    End Function