'это путь к каталогу, в который будем сыпать временные файлы 
 'типа можно хадействовать  
 'Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ 
 '(ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongDim strFileFavoritePath As String 
  strFileFavoritePath = "C:\ТРампампам\Временные документы\"
   '----------------------------- 
   'здесь высыпали файлы (не приводится), дальше работаем с вордом 
   '------------------------ 
  
  Dim wordApp As Word.Application
  Dim wrdDoc As Word.Document
   '... 
  Set wordApp = New Word.Application
   'создаем новый пустой файл по умолчательному образцу normal.dot 
  Set wrdDoc = wordApp.Documents.Add(DocumentType:=wdNewBlankDocument, Visible:=False)
  
   'меняем дефолтный каталог для открытия файлов на свой любимый 
   wordApp.ChangeFileOpenDirectory strFileFavoritePath
    wrdDoc.Range( 0 ,  0 ).InsertFile FileName:="ChunkedFromDB.doc", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
        
    'типа удалим временный файл 
   Kill strFileFavoritePath & wordApp.PathSeparator & "ChunkedFromDB.doc"

    'вернем взад дефолтный каталог для открытия файлов  
    дефолтный каталог для открытия файлов 
   wordApp.ChangeFileOpenDirectory wordApp.Options.DefaultFilePath(Path:= 0 )
 
    'отобразим результат 
   wrdDoc.Windows(wrdDoc.Name).Visible = True
      

  ReDim b(BufSize -  1 )
  Open s For Binary Access Write As #ff
  Do While lOffsFile < lSizeFile
    b() = rs![Содержимое].GetChunk(lOffsFile, _
                                   IIf((lOffsFile + BufSize) > lSizeFile, _
                                       lSizeFile - lOffsFile, _
                                       BufSize))
    Put #ff, , b()
    lOffsFile = lOffsFile + BufSize
  Loop

  Dim b() As Byte
  
  Dim rS As DAO.Recordset
  Dim tField As DAO.Field
  
  Set rS = db.OpenRecordset("ТвойЗапрос")
  Set tField = rS.Fields![ТвоеПолеОле]
 <...>  
  b() = tField.GetChunk( 0 , tField.FieldSize)
   <...>  

  rS.Close