word操作问题

Question

Set wrdApp = New Word.Application 
With wrdApp
  
.Visible = True
 
.Documents.Add
 
.ActiveDocument.Content.Text = "Hi"
.ActiveDocument.Content.Text = "This is a test example"
End With
可以打开,但是如何得到挡前的word文件流呢!!???就是
set rs=new adodb.recordset
...
  rs("")=wrdapp  '////还是其他的??这个地方我想将word文件具体二进制付给结果集,以便入库,如何?

Answer 1

下面是一个ADO流操作函数.适用于ADO2.5以上的版本.'
'读/写二进制数据(流)
'函数名:AdoStream
'参数:  M_Conn ADODB连接,TabName 目标数据表,FldName 目标字段,WhereStr 更新条件,
'       FileName 源文件名或由流生成的文件名,RsStyle 记录集的操作类型.W:File to Recode,R:Recode to File
'返回值:
'例:    CALL  AdoStream(P_Cnn,"AchGoods","GdsPhoto","Where gdsid='001'","C:\Tmp.Bmp","W")Public Function AdoStream(M_Conn As ADODB.Connection, _
                          TabName As String, _
                          FldName As String, _
                          Optional WhereStr As String = "", _
                          Optional Filename As String, _
                          Optional RsStyle As SmRsType = RsWrite) As String
    
    Dim StrSql As String
    Dim TmpFileName As String
    Dim Rs As New ADODB.Recordset
    Dim AdoSem As New ADODB.Stream
    Dim ReturnVal As String
    Dim WorkPath As String
    Dim RsType  As Long
    Dim RsStyleStr As String
    
    On Error Resume Next
    
    WorkPath = App.Path
    If Right$(WorkPath, 1) <> "\" Then WorkPath = WorkPath & "\"
    ReturnVal = ""
    AdoSem.Type = adTypeBinary    '流数据类型
    AdoSem.Open                  '打开流
'/-----------------------------------------------------------
    '将流写入记录集
    RsType = RsStyle
    RsStyleStr = Choose(RsType, "W", "R")
    If RsStyleStr = "W" Then
        If Left$(Trim$(UCase$(WhereStr)), Len("where")) <> UCase$("where") Then WhereStr = " Where " & Trim$(WhereStr)
        StrSql = "Select Top 1 [" & TabName & "].[" & FldName & "] From [" & TabName & "] " & WhereStr
        Set Rs = RsOpen(M_Conn, StrSql, False)  '连接式记录集
        If Not (Rs.EOF And Rs.BOF) Then
            Rs.MoveFirst
            AdoSem.LoadFromFile Filename            '将文件LOAD到流
            DoEvents
            Rs.Fields(FldName).AppendChunk AdoSem.Read
            Rs.Update
        End If
        AdoStream = ""
    ElseIf RsStyle = "R" Then
        '/将流从记录集中取出
        If Len(Trim$(Filename)) = 0 Then Filename = "TmpFile.Bmp"
        If Len(Trim$(Dir$(TmpFileName, vbNormal + vbHidden))) > 0 Then Kill Filename
        If Left$(Trim$(UCase$(WhereStr)), Len("where")) <> UCase$("where") Then WhereStr = " Where " & Trim$(WhereStr)
        
        StrSql = "Select Top 1 [" & TabName & "].[" & FldName & "] From [" & TabName & "] " & WhereStr
        Set Rs = RsOpen(M_Conn, StrSql)
        If Not (Rs.EOF And Rs.BOF) Then
            Rs.MoveFirst
            If Not (IsNull(Rs.Fields(FldName))) Then
                TmpFileName = WorkPath & Filename
                AdoSem.Write Rs.Fields(FldName).GetChunk(Rs.Fields(FldName).ActualSize)
                DoEvents
                AdoSem.SaveToFile TmpFileName, IIf(Len(Trim$(Dir$(TmpFileName, vbNormal + vbHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)
                AdoStream = TmpFileName
            Else
                AdoStream = ""
            End If
        Else
            AdoStream = ""
        End If
    End If
    AdoSem.Close: Set AdoSem = Nothing
    Rs.Close: Set Rs = Nothing
    Err.Clear
End Function

Answer 2

楼上的加载的是文件,我的那个问题是没有文件,新建一个word,并写入了一些汉字,插入了图片点击保存,直接保存到数据库中,这样就必须得到word对象的流,怎么得到呢??

Answer 3

//楼上的加载的是文件,我的那个问题是没有文件可以调用word对象提供的save语句先保存为临时文件，用完再用kill删除文件

Answer 4

调用SAVE 或 SAVEASSub Save([NoPrompt], [OriginalFormat])Sub SaveAs([FileName], [FileFormat], [LockComments], [Password], [AddToRecentFiles], [WritePassword], [ReadOnlyRecommended], [EmbedTrueTypeFonts], [SaveNativePictureFormat], [SaveFormsData], [SaveAsAOCELetter])

Answer 5

这好像是保存我想将当前打开的word对象内容付给结果集,以便进行如库

Answer 6

就是如何得到当前word对象流??大虾呢???

Answer 7

//我是这么做的,但是总觉得不是很舒服,所以看看可不可以直接这么作,理论上可行建议这么做（将整个文件保存进数据库），否则读取数据库的内容时，你将面临更大的麻烦（你不得不分析word文件的格式）