Método Cell.AutoSum (Word)
Inserta un campo = (Fórmula) que calcula y muestra la suma de los valores de las celdas de la tabla situada sobre la celda especificada en la expresión o a la izquierda de la misma.
expresión. AutoSum
expresión obligatoria. Variable que representa un objeto 'Cell'.
Para obtener información acerca de la forma en que Word determina los valores que van a agregarse, vea el método Formula.
En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y se suman los números de la primera columna.
Dim docNew as Document
Dim tableNew as Table
Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3)
With tableNew
.Cell(1, 1).Range.InsertAfter "10"
.Cell(2, 1).Range.InsertAfter "15"
.Cell(3, 1).AutoSum
End With
En este ejemplo se suman los números sobre o a la izquierda de la celda que contiene el punto de inserción.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Cells(1).AutoSum
Else
MsgBox "The insertion point is not in a table."
End If
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.