自动生成的word文档如何插入从数据库中读取的图片????

Question

如题

Answer 1

可以先从数据库里读出图片，然后写到临时文件里，在插入Word

Answer 2

'从数据库读出图片并生成临时文件：
Private Sub Command1_Click()
    Dim StmPic As ADODB.Stream
    On Error GoTo err
    StrPicTemp = "c:\temp.jpeg"
    Set StmPic = New ADODB.Stream
    With StmPic
        .Type = adTypeBinary
        .Open
        .Write rs.Fields("myPic")       '写入数据库中的数据至Stream中
        .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中(C:\temp.jpeg)
        .Close
    End With
    Exit Sub
err:
     MsgBox err.Description
End Sub

Answer 3

'将临时文件里的图片插入到Word:
'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
    On Error GoTo connecterr
    Dim wordApp As Object
    Set wordApp = CreateObject("word.application")
    
    wordApp.Visible = True
    Dim myDoc As Object
    Set myDoc = wordApp.Documents.Open("c:\Test.doc")
    
    myDoc.InlineShapes.AddPicture FileName:= _
        "C:\temp.jpeg" _
        , LinkToFile:=False, SaveWithDocument:=True
    
    
    myDoc.Close
    wordApp.Quit
    Set myDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
connecterr:
End Sub