求关于WORD的源代码

Question

希望通过VB后台运行在不打开WORD的情况下，把WORD的内容读出来 存在数据库中（VACHAR字段~）希望有代码~~

Answer 1

可以做到，用ADO的Command的流方法。

Answer 2

参考：
往数据库（SQL/Acess）读写Word文件（不是读写文件的内容）：'窗体放一个CommonDialg1,一个Command1(保存Word),一个Command2（读出Word）
'引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
'字段myWord为image类型（SQL库）或Ole对象类型(Access库)
Private Sub Command1_Click()
  On Error GoTo err
  Dim StmPic As ADODB.Stream
    '保存你所选择的文件
    Set StmPic = New ADODB.Stream
    StmPic.Type = adTypeBinary    '指定流是二进制类型
    CommonDialog1.ShowOpen    
    StmPic.Open                     '将数据获取到Stream对象中
    StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的文件加载到打开的StmPic中
    rs.AddNew
    rs.Fields("myWord").Value = StmPic.Read   '从StmPic对象中读取数据
    rs.Update
    StmPic.Close
  Exit Sub
err:
  MsgBox err.Description
End SubPrivate Sub Command2_Click()
     Dim StmPic As ADODB.Stream
     On Error GoTo err
        StrPicTemp="c:\temp.doc"
        Set StmPic = New ADODB.Stream
        With StmPic
            .Type = adTypeBinary
            .Open
            .Write rs.Fields("myWord")       '写入数据库中的数据至Stream中
            .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中(C:\temp.doc)
            .Close
        End With
        Exit Sub
err:
     MsgBox err.Description
End Sub