Formatting ID numbers to insert dashes in between some characters

gmaxey · #1 12-21-2020, 01:27 PM

That would depend on what type of field. If it is a content control in the document itself then something like this

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Select Case ContentControl.Title
    Case "ID"
      If Not ContentControl.Range.Text Like "####-###-####" Then
        If IsNumeric(ContentControl.Range.Text) And Len(ContentControl.Range.Text) = 11 Then
           ContentControl.Range.Text = Format(ContentControl.Range.Text, "####-###-####")
        Else
          MsgBox "Please enter an eleven digit ID"
       End If
     End If
  End Select
End Sub

shaun0406 · #2 12-21-2020, 02:09 PM

Sorry I didn't specify, I thought I specified which text form field I used.
I am using the legacy text field set to Regular text with max length to 11

from the code you provided, that made sense to me, but is there a keyword to change
"ContentControl" to legacy text field instead?

Thank You

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to insert paragraph character after every 500 characters?	aditya_bokade	Word VBA	28	11-13-2021 10:48 PM
Insert text longer 254 characters in word	Esgrimidor	Word VBA	7	03-16-2017 01:02 PM
Insert more than 500 characters on FormField Word by VBA	Jow	Word VBA	4	09-15-2016 04:06 AM
Is there a quick way to remove the dashes and parentheses from phone numbers?	Stacy	Excel	2	09-12-2014 07:03 AM
Macro to insert WordArt characters	Jennifer Murphy	Word VBA	1	02-25-2014 03:10 AM