通过

Cell.AutoSum Method

  • 项目
Word Developer Reference

Inserts an = (Formula) field that calculates and displays the sum of the values in table cells above or to the left of the cell specified in the expression.

Syntax

expression.AutoSum

expression   Required. A variable that represents a Cell object.

Remarks

For information about how Word determines which values to add, see the Formula method.

Example

This example creates a 3x3 table in a new document and sums the numbers in the first column.

Visual Basic for Applications 
  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

This example sums the numbers above or to the left of the cell that contains the insertion point.

Visual Basic for Applications 
  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

See Also