Path = App.Path & "\Informes\" Rem Por decir algo
Archivo = "Plantilla03.dot" Rem Extencion de la plantilla de excel, esta es Word
Existe = Dir(Path & Archivo)
If Trim(Existe) <> "" Then
Set ExcelExp = CreateObject("EXCEL.APPLICATION")
With ExcelExp
.Workbooks.Add
.Sheets(1).Select
NumerodeCelda = 17 Rem Debido a que ahi empieza tu informe
.Range("AB" & NumerodeCelda).Font.Name = "Tahoma" Rem si quieres saber más metodos y propiedades puedes abrir Excel y en el editor de macros las intentas
.Range("CD" & NumerodeCelda).Value= VariabledelaCantidad
End With
End if