---Access - Excel
 
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject( "Excel.Application" )
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells( 1 ,  1 ).Value =  "This is column A, row 1 "
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST1.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

 ---Access - Word
 
 ---Нужно пользовать Office API. 
 
 ---Подключаешь MSWORDx.olb 
 
 ---Вот кусочек кода: 
 

Private Sub Number_DblClick(Cancel As Integer) 
dim WordApp As Word.Application, FS As FileSystemObject 
Set FS = CreateObject( "Scripting.FileSystemObject" ) 
' открыть документ 
Set WordApp = CreateObject("Word.Application") 
If FS.FileExists(Setting("Акты выполненых работ", "tFolders") & "\" & "АКТ ВЫПОЛНЕННЫХ РАБОТ_" & Me.Number & "_" & Me.Date & ".doc") Then 
WordApp.Application.Documents.Open Setting("Акты выполненых работ", "tFolders") & "\" & "АКТ ВЫПОЛНЕННЫХ РАБОТ_" & Me.Number & "_" & Me.Date & ".doc" 
WordApp.Application.Visible = True 
Set FS = Nothing 
Set Range = Nothing: Set Document = Nothing: Set WordApp = Nothing: Set RS = Nothing 
Exit Sub 
End If 
WordApp.Application.Documents.Add "АКТ ВЫПОЛНЕННЫХ РАБОТ", , , True 
WordApp.Application.Visible = True 
Set Document = WordApp.Application.ActiveDocument 
Set Range = Document.Range 

Set RS = CurrentDb.OpenRecordset("SELECT * FROM qJobsActs WHERE Number=""" & Me.Number & """") 
' заполнить поля документа 
Range.Find.Execute FindText:= "%DocNumber" , ReplaceWith:=RS.Fields( "Number" ), Replace:=wdReplaceAll 
Range.Find.Execute FindText:= "%Vendor" , ReplaceWith:=RS.Fields( "Vendor" ), Replace:=wdReplaceAll 
Range.Find.Execute FindText:= "%VDirector" , ReplaceWith:= "генерального директора "  & RS.Fields( "DSurname" ) &  " "  & Left(RS.Fields( "DName" ),  1 ) &  ". "  & Left(RS.Fields( "DPatronymicName" ),  1 ) &  "." , Replace:=wdReplaceAll 
Range.Find.Execute FindText:= "%Customer" , ReplaceWith:=RS.Fields( "Customer" ), Replace:=wdReplaceAll 

Document.SaveAs Setting( "Акты выполненых работ" ,  "tFolders" ) &  "\"  & _ 
 "АКТ ВЫПОЛНЕННЫХ РАБОТ_"  & Me.Number &  "_"  & Me.Date &  ".doc" , wdFormatDocument, , , False 
RS.Close 
Set Range = Nothing: Set Document = Nothing: Set WordApp = Nothing: Set RS = Nothing 

End Sub