Намерих един пример, който може да ти послужи за отправна точка.Използва късно свързване.Ако искаш да видиш всичките свойства и методи можеш да си заредиш библиотеката Microsoft Excel XX Object Library и да ги разгледаш с Object Browser.Предполагам че с Word няма да е по-различно.


Dim objXL As Object
Set objXL = CreateObject("excel.sheet") 'създава обект
Set objXL = objXL.Application.ActiveWorkbook.Activesheet 'получаване на референция
objXL.range("A1").Value = Text1.Text
objXL.range("A2").Value = Text2.Text 'записване в клетките
objXL.range("A3").Formula = "=ATAN2(A1,A2)"
objXL.range("A4").Formula = "=A3*180/PI()" 'задаване на формули
Label1.Caption = objXL.range("A3").Value
Label2.Caption = objXL.range("A4").Value 'взема резултата от клетките
objXL.Application.ActiveWorkbook.SaveAs ("c:\tmp\myfile.xls") 'записва таблицата
Set objXL = Nothing