Tengo muchos objetos de Excel hayincrustado en un documento de MS-Word.

Quiero calcular elgran total: consumando los totales están allí en cada objeto de Excel especificado yregreso ese gran total en el documento de MS-Word.

El titular de la macro es el módulo VBA de MS-Word Document.

Medio: necesitoacceso a un incrustado especificadoObjeto de Excel, formar elMódulo MS-Word, luego realizarloactivo, luegoasignar a una variable de objeto por -Por ejemplo: -ExcelApplication = GetObject(, "Excel.Application") declaración. Luego intente acceder a su apropiadovalores totales , por -Por ejemplo: -Total = Range("Table1[[#Totals],[Amount]]").Value. El punto es todas las tablas El nombre está en los objetos de Excel esTable1 que contiene elAmount Columnas y elTotal Row.

La nota se encuentra en los objetos de Excel anteriores. La primera fila que contiene el encabezado de la tabla está oculta.

Ejemplo

Archivo de muestra

Este documento se extiende diariamente.

Necesito una macro en elNormal.dotm Cualcalcular el gran total de todos los objetos de Excel especificados (especificados con asignarles un nombre o ...) y realizar la devolución de este valor conSelection.TypeText Text:= donde se selecciona en la imagen a continuación: (al final del documento)

¿Por qué insisto en tener un objeto Excel incrustado?Porque tengo una fórmula para calcular la Columna1: A, B, C, ...Porque tengo una hoja de base de datos oculta para elementos de validación de datosTengo la columna Fórmula en cantidad para multiplicar las tasas y la cantidad de cada unidad de artículo que se encuentra en la hoja de base de datos