Microsoft Office Forums - View Single Post - Macro to check the data in a content control box

viewtost · 02-29-2024, 04:21 AM

Quote:

Originally Posted by gmaxey

Btw if every variable field in your form is a content control and every one needs to be filled in, you don't need to list the titles. Something like:

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oCC As ContentControl
Dim oRng As Range
Dim strMsg As String
  For Each oCC In ActiveDocument.ContentControls
    If oCC.ShowingPlaceholderText Then
      If oRng Is Nothing Then
        Set oRng = oCC.Range
        oRng.Select
        strMsg = "One or more content controls is blank. Please enter data in the following CCs:" & vbCr & vbCr & oCC.Title & vbCr
      Else
        strMsg = strMsg & oCC.Title & vbCr
      End If
    End If
  Next oCC
  If strMsg = vbNullString Then strMsg = "Form complete.  Thank you."
  MsgBox strMsg, vbOKOnly, "REPORT"
lbl_Exit:
  Exit Sub
End Sub

should do.

Hi Greg,

Many thanks. It works!

However, my question about listing the titles. Do you mean that the macro captures the content control titles without the need to list them here? Ie. I just have to give them a name in the Word file but I don't have to add those names to the code?