You could probably save some typing by using something like this. Not tested at all
Performance-wise probably not much difference with either, but maintenance-wise I think the second option is easier to debug and modify
With ActiveDocument.SelectContentControlsByTag("Delivered").Item(1).Range
.Text = IIf(.optDeliveredNo.Value, "NO", "YES")
.Bold = IIf(.optDeliveredNo.Value, False, True)
End With
or maybe
Sub DoAll()
Call SetOptions("Delivered")
Call SetOptions("Evidence")
Call SetOptions("Employee")
Call SetOptions("Funds")
End Sub
Sub SetOptions(TheTag As String)
With ActiveDocument.SelectContentControlsByTag(TheTag).Item(1).Range
.Text = IIf(.optDeliveredNo.Value, "NO", "YES")
.Bold = IIf(.optDeliveredNo.Value, False, True)
End With
End Sub