Highlight Blanks In A Table & Grey Out Table Cells Given "Yes" in Content Control

[TimJones]

I would like to highlight cells yellow when they are blank. Once a user fills them out, the yellow highlight is removed.

Secondly, I would like to grey out certain fields based on whether a content control field is answered "Yes" or "No".

22803

[gmaxey]

Put this in the ThisDocument module:


Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
If Not ContentControl.ShowingPlaceholderText Then
ContentControl.Range.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Else
ContentControl.Range.Cells(1).Shading.BackgroundPatternColor = wdColorYellow
End If
Select Case ContentControl.Title
Case "YesNo1"
If ContentControl.Range.Text = "Yes" Then
'Do this
Else
'Do that
End If
End Select
End Sub

Tag you YesNo CC "YesNo1" "YesNo2" etc.

What do you mean "grey out fields"

[TimJones]

Thank you, Greg.

By "grey out", I just mean a grey background in a table cell. Also, will the yellow highlight work in a table without a content control? It's just a basic table and I would like the empty/blank cells to be highlighted. Picture below might better explain.

22802

[gmaxey]

Tim,

You could run a procedure manually to highlight all empty cells in a table (or selective cells), but there is no event triggers from just filling in a table cell.


Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
On Error Resume Next

Select Case ContentControl.Title
Case "YesNo1"
If ContentControl.Range.Text = "Yes" Then
ActiveDocument.Tables(1).Cell(2, 2).Range.Shading.BackgroundPatternColor = wdColorGray50
Else
ActiveDocument.Tables(1).Cell(2, 2).Range.Shading.BackgroundPatternColor = wdColorAutomatic
End If
End Select
End Sub

Sub ShadedCells()
Dim oCell As Cell
For Each oCell In ActiveDocument.Tables(1).Range.Cells
If Len(oCell.Range.Text) = 2 Then
oCell.Range.Shading.BackgroundPatternColor = wdColorYellow
Else
oCell.Range.Shading.BackgroundPatternColor = wdColorAutomatic
End If
Next oCell
End Sub

[TimJones]

Thank you, Greg. Got the greying out to work.

Can the greying out be locked (to prevent entering anything) if I use incorporate Legacy Form fields into the table?