Gfrktyl

I have a table in the Word program like the following:

By opening this table file, I have to increase or decrease the number of rows. So I can not use the formula for the sum of the seasons (Because cell numbers change). In your opinion, how can I sum up the values of "Total Season 1" and "Total Season 2" and put it in "Total Seasons"?
Do you think Can I get help of the words "Total Season" or choosing the Bold words with VBA?

Hello dear friends who tried to help me! I worked on this topic the same day and I managed to solve the problem by writing the following code. I put this code here for everyone. If friends are willing, they can provide better codes for easier and faster running. be happy...

Sub CalculatingTotalSeasons()

ActiveDocument.Tables(1).Select

Selection.Copy

    Selection.EndKey Unit:=wdStory

    Selection.TypeParagraph

    Selection.PasteAndFormat (wdFormatOriginalFormatting)



    Dim t As Table

    Dim r As Row

    Dim ts As String

    Set t = ActiveDocument.Tables(2)



    ts = "Total Season"

    For Each r In t.Rows

        If Left(r.Cells(1).Range.Text, 12) <> ts Then r.Delete

    Next r



With ActiveDocument.Tables(2)

    ActiveDocument.Tables(2).Cell(1, 1).Select

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "Total Seasons"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute

    Selection.MoveRight Unit:=wdCell

    Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:=""

    Selection.MoveLeft Unit:=wdCell

    Selection.MoveRight Unit:=wdCell

    Selection.Copy

    ActiveDocument.Tables(2).Delete

End With



ActiveDocument.Tables(1).Select

With ActiveDocument.Tables(1)

    ActiveDocument.Tables(1).Cell(1, 1).Select

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "Total Seasons"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute

    Selection.MoveRight Unit:=wdCell

    Selection.PasteAndFormat (wdFormatPlainText)

End With



End Sub

To make a table in Word perform some automatic summation of values there are formatting steps you have to take. Below is an example of what you might want the final result to look like.

The shaded values in the image below are created from formula fields. In order for the "=SUM(ABOVE)" formula to work in the Subtotal rows, there must be a blank row or a non-numeric cell between the parts of the table. The red arrows point to the inserted blank rows. I have made them very narrow so they look like just a line separator, but in fact they are actually a blank row.

In order to calculate the Grand Total, which is a sum of the two Subtotals, each Subtotal formula is enclosed within a bookmark. For this example they are named Materials and Services.

The field formulas are shown in the image below. They include the code needed for formatting.

To update the table after adding new data rows, you select the table and then press F9.