Awesome - I am trying to use the example you sent in the .zip file.
This is the 2nd table in the form so I changed the line
With ActiveDocument.Tables(1) to (2)
but when I go to try the form I get stopped at the code line
With .Cell(i, 2).Range.ContentControls(1)
I am not sure what that line is referring to.
Thank you for your help. I am trying my best to understand the code by reading in the VBA Word Help but it is a bit confusing for a novice.
The code in the .zip is below just to refresh your memory.
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, j As Long, k As Long, l As Long
With ActiveDocument.Tables(2)
If ContentControl.Range.InRange(.Range) Then
For i = 1 To .Rows.Count - 1
With .Cell(i, 2).Range.ContentControls(1)
If .Range.Text <> .PlaceholderText Then
k = k + 1
For j = 1 To .DropdownListEntries.Count
If .DropdownListEntries(j) = .Range.Text Then
l = l + .DropdownListEntries(j).Value
Exit For
End If
Next
End If
End With
Next
With .Rows.Last.Cells(2).Range
If k > 0 Then
.Text = Format(l / k, "0.00")
Else
.Text = vbNullString
End If
End With
End If
End With
End Sub