Make a field required

Guessed · #8 07-27-2022, 04:55 PM

I'm saying you can't have the same macro name twice in the same module. In this case the macro name is critical because the name and location means it automatically runs whenever the user moves out the selection out of a Content Control.

But you can combine the functionality in both macros into a single macro.

The following code should replace everything you had in the earlier posts

Code:

Private Sub Document_ContentControlOnExit(ByVal aCC As ContentControl, Cancel As Boolean)
  Dim aDate As Date
  If aCC.ShowingPlaceholderText Then
    Select Case aCC.Tag
      Case "Rev. #", "PDR #", "Date of Discovery", "Type"   'these CCs require an answer
        MsgBox "This Content Control requires a response.", vbInformation + vbOKOnly, "INPUT REQUIRED"
        Cancel = True
    End Select
  Else    'if CC has content, check its type matches the content
    If aCC.Tag Like "*[#]" Then     'if the CCs tag ends with '#'
      If Not IsNumeric(aCC.Range.Text) Then
        MsgBox "This field requires a numeric response.", vbInformation + vbOKOnly, "INPUT REQUIRED"
        Cancel = True
      End If
    ElseIf aCC.Tag Like "*Date*" Then   'if CCs tag includes 'Date'
      If Not IsDate(aCC.Range.Text) Then
        MsgBox "This field requires a date response.", vbInformation + vbOKOnly, "INPUT REQUIRED"
        Cancel = True
      ElseIf aCC.Title = "Date of Initiation" Then    'note tag doesn't match on this CC in your doc
        aDate = CDate(aCC.Range.Text) + 30
        ActiveDocument.SelectContentControlsByTitle("Due Date")(1).Range.Text = aDate
      End If
    End If
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to make a template with field and mailmerge to work together in protected mode	pjkon	Mail Merge	1	06-10-2019 04:35 PM
How To Make 2013 Populate To Field	abraxis	Outlook	2	08-10-2018 06:41 AM
How to make a Check Box Form Field red if not checked?	CarlCR	Word Tables	3	07-12-2016 08:35 PM
How to make a SEQ field show up in cross references?	Roscoe	Word	5	06-01-2016 01:39 PM
make text form field active dependent on dropdown	Glenn0004	Word VBA	1	06-23-2015 06:13 PM